VisualBasic5开发人员参考手册

类 元素 版本（见图例）

Abs 函数 CCE，LE，PE，EE

Ambientproperties 对象 CCE，LE，PE，EE

Animation; 控件 LE,PE,EE

AnimationControl.Close

AnimationControl.Drag [ DragAction ]

AnimationControl.Move Left [, Top [, Width [, Height ] ] ]

AnimationControl.OLEDrag

AnimationControl.Open [ AVlFile 1

AnimationControl.Play [Repeat [, StartFrame [, EndFrame ] ] ]

AnimationControl.SetFocus

AnimationControl.ShowWhatsThis

AnimationControl.Stop

AnimationControl.ZOrder [ position ]

EventsPrivate Sub AnimationControl CLick( [ index As Integer ])

Private Sub AnimationControl DragDrop( [ index As Integer,] source as Control, x as

Single, y as Single )

Private Sub AnimationControl _DragOver( [ index As Integer,] source as Control, x as

Sinale, v as Sinale, state as Integer)

Private Sub AnimatiOnControi _Go(pocus { [ inuex AS inieger]) ;

Private Sub AnimationControl LostFocus ([ index As Integer ])

Private Sub AnimationControl _MouseDown( [ index As Integer,] button as Integer, shift

as Single, x as Single, y as Single)

Private Sub AnimationControl _MouseMove ([ index As Integer,] button as Integer, shift

as Single, x as Single, y as Single)

Private Sub AnimationControl .MouseUpt [ index As Integer,] button as Integer, shift as

Sinale. x as Sinale. v as Sinale)

Private Sub AnimationControl OLECompleteDrag( [ index As Integer]

effect as Long )

Private Sub AnimationControl .OLEDragDropt [ index As Integer,] data as DataObject,

effect as Long, button as Integer, shift as Single, x as Single, y as Single)

Private Sub AnimationControl OLEDragOver([ index As Integer,] data as DataObject,

effect as Long, button as Integer, shift as Single, x as Single, y as Single,

state as Integer)

类? 元素 版本（见图例）

Anlmatlon(con't) , 控制 LE PE EE

Private suo AnimationControl ..OLEGiveFeedback ([ index As Integer,]

effect as Long)

Private Sub AnimationControl _OLESetData( [ index As Integer,] data as DataObject,

DataFormat as Integer)

Private Sub AnimationControl _OLEStartDrag ([ index As Integer,] data as DataObject

AllowedEffects as Long)

App 对象 CCE,LE,PE,EE

App.LogEvent (logBuffer, eventType )

App.StartLogging logTarget, logMode

AppActivate 语句 CCEEEE

Array 函数 CCEEEE

Asc 函数

AscB 函数 CCE,LE,PE,EE

Ascw 函数 CCE,LE,PE,EE

AsyncProperty 对象 CCEEEE

Atn 函数 CCE,LE,PE,EE

Axis 对象 PE,EE

AxisGrid 对象 PE ,EE

AxisScale 对象 PE,EE

AxisTitle 对象 PE EE

Backdrop 对象 PE ,EE

Beep 语句

Boolean 数据类型 CCE,LE, PE,EE

Brush 对象 PE,EE

Button 对象. CCE,LE,PE,EE

Buttons 集合 CCE,LE,PE,EE ButtonsCollection.Add ([ index ], [ key ] , [ caption ], [ style ], [ image ])

ButtonsCollection.Clear

ButtonsCollection.Remove reference

Byts 数据类型 CCE,LE,PE,EE

Call 语句 CCE,LE,PE,EE

Category Scale 对象 PE,EE

CBool 函数 CCE,LE,PE,EE

CByte 函数 CCE,LE,PE,EE

CCur 函数 CCE,LE,PE,EE

CDate 函数 CCE,LE,PE,EE

CDbl 函数 CCE,LE,PE,EE

CDec 函数 CCE,LE,PE,EE

ChDir 语句 CCE,LE,PE,EE

ChDrive 语句 CCE,LE,PE,EE

类 元素 版本（见图例）

CheckBox 控件 CCE,LE,PE,EE

CheckBoxControl.Drag [ Drai,

CheckBoxControl.Move Left [, Top [, Width [, Height ] ] ]

ChecKBoxControi.OLEDrag

CheckBoxControl.Refresh

CheckBoxControl.SetFocus

CheckBoxControl.ShowWhatsThis

CheckBoxControl.ZOrder [ position ]

Private Sub CheckBoxControl_Click( [ index As Integer ])

Private Sub CheckBoxControLDragDropt [ index As Integer,] source As Control, x As

Single, y As Single )

Private Sub CheckBoxControl-DragOver( [ index As Integer,] source As Control, x As

Single, y As Single, state As Integer)

Private Sub CheckBoxControLGotFocus ([ index As Integer ])

Private Sub CheckBoxControLKeyDown ([ index As Integer,] keycode As Integer, shift

As Single)

Private Sub CheckBoxControLKeyPress( [ index As Integer,] keychar As Integer)

Private Sub CheckBoxControLKeyUo ([ index As Integer,] keycode As Integer,

shift As Single)

Private Sub CheckBoxControLLostFocus ([ index As Integer ])

Private Sub CheckBoxControLMouseDownt [ index As Integer,] button As Integer, shift

As Single, x As Single, y As Single)

Private Sub CheckBoxControLMouseMove ([ index As Integer,] button As Integer, shift

As Sinale, x As Sinale, v As Sinole)

Private Sub CheckBoxControl_MouseUp( [ index As Integer,] button As Integer shitt As

Single, x As Single, y As Single)

Private Sub CheckBoxControLOLECompleteDrag( [ index As Integer,]

effect As Long )

Private Sub CheckBoxControLOLEDragDrop( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Single)

Private Sub CheckBoxControLOLEDragOver( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Single, state As

Integer)

Private Sub CheckBoxControLOLEGiveFeedback ([ index As Integer,]

effect As Long)

Private Sub CheckBoxControl_OLESetData( [ index As Integer,] data As DataObject,

DataFormat As Inteaer)

Private Sub CheckBoxControLOLEStartDrag ([ index As Integer,] data As DataObject,

AllowedEffects As Long)

图例

CCE.......Control creation Edition

EE....Enterprise Edition

LE....arning Edition

PE.......Professional Edition

VBA.....,...VSsu玶8lift^^^B^tans

类? 元素 版本（见图例）

Choose 函数 CCE,LE, PE, EE

Chr 函数 OCE, LE, PE, -EE

ChrB 函数 CCE,LE, PE, EE

ChrW 函数 CCE.LE.PE.EE

Clnt 函数 CCE, LE, PE, EE

Clipboard 对象 CCE.LE.PE.EE

Clipboard.Clear

Object = Clipboard.GetData ([ format ])

exisis = ClipDoara.Getformat ( l tormat l )

object = Clipboard.GetText ([ format ])

Clipboard.SetData ( data [, format ])

Clipboard.SetText (data [, format ])

CLng 函数 CCE, LE, PE, EE

Cfose 语句 CCE, LE, PE, EE

Collectlon 对象 CCE, LE, PE,EE

CollectionObject.Add item, kev, r before 1 , after ]

CollectionObject.Clear

Item = CollectionObject.ltem (index )

CollectionObject.Remove index

Column 对象 CCE,LE,PE,EE

text = ColumnObject.CellText ( bookmark )

value = ColumnObject.CellValue ( bookmark )

CSolumn Header 对象 CCE, LE, PE.EE

(SWamn Headers 集合 CCE, LE, PE, EE

ColumnHeaderObject = ColumnHeaders.Add ([ index ] , [ key ], [ text ] , [ width ],

[ alignment ])

ColumnHeaders.Clear

Item = ColumnHeaders.ltem (index )

ColumnHeaders.Remove index

Columns PE, EE

column = ColumnsCollection.Add index

column = ColumnsCollection.ltem (index )

ColumnsCollection.Remove index

ComboBox ISft CCE.LE.PE.EE

ComboBoxControl.Addltem item [, index ]

ComboBoxControl..Clear

ComboBoxControl.Drag [ DraaAction 1

ComboBoxControl.Move Left [, Top [, Width [, Height ] ] ]

ComboBoxControl.OLEDrag

ComboBoxControl.Refresh

ComboBoxControl.Removeltem index

ComboBoxControl.SetFocus

ComboBoxControl. ShowWhatsThis

ComboBoxControl.ZOrder [ position J

Private Sub ComboBoxControLChanget [ index As Integer ])

Private Sub ComboBoxControLCIick( [ index As Integer ])

Private Sub ComboBoxControLDblClick( [ index As Integer ])

Private Sub ComboBoxControLDragDrop( [ index As Integer,] source As Control,

x As Single, y As Single )

Private Sub ComboBoxControLDragOver( [ index As Integer,] source As Control,

x As Single, y As Single, state As Integer)

Private Sub ComboBoxControLGotFocus ([ index As Integer ])

Private Sub ComboBoxControLKeyDown ([ index As Integer,] keycode As Integer, shift

As Single)

Private Sub ComboBoxControl_KeyPress( [ index As Integer,] keychar As Integer)

Private Sub ComboBoxControLKeyUp ([ index As Integer,] keycode As Integer,

shift As Single)

Private Sub (-iomboboxoontroLLostFocus ([ index As Integer ])

Private Sub ComboBoxControLOLECompleteDrag( [ index As Integer,]

effect As Long)

Private Sub ComboBoxControLOLEDragDrop( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Single)

Private Sub ComboBoxControLOLEDragOver( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Single, state As

Integer)

Private Sub ComboBoxControLOLEGiveFeedback ([ index As Integer,]

effect As Long)

Private Sub ComboBoxControl_OLESetData( [ index As Integer,] data As DataObject,

DataFormat As Integer)

Private Sub ComboBoxControLOLEStartDrag ([ index As Integer,] data As DataObject,

AllowedEffects As Long)

Private Sub ComboBoxControl Scroll (r index As Inteaer 1)

Command 函数. CCE,LE,PE,EE

CommandButton 控件 CCEEEE

CommandButtonControl.Drag [ DragAction ]

CommandButtonControl.Move Left [. TOD [. Width [, Height ] ] ]

CommandButtonControl.OLEDrag

CommandButtonControl.Refresh

CommandBiittonControl.SetFocus

CommandButtonControl.ShowWhatsThis

CommandButtonControl.ZOrder [ position ]

类 元素 版本(见图例)

Private Sub CommandButtonControLCIick( [ index As Integer ])

Private Sub CommandButtonControLDragDrop( [ index As Integer,] source As

Control, x As Single, y As Single )

Private Sub CommandButtonControLDragOver( [ index As Integer,] source As

Control, x As Single, y As Single, state As Integer)

Private Sub CommandButtonControLGotFocus ([ inaex AS integer J )

Private Sub CommandButtonControl_KeyDown ([ index As Integer,] keycode As

Integer, shift As Single)

Private Sub CommandButtonControl_KeyPress( [ index As Integer,] keychar As

Integer)

Private Sub CommandButtonControLKeyUp ([ index As Integer,] keycode As

Integer, shift As Single)

Private Sub CommandButtonControl-LostFocus ([ index As Integer ])

Private Sub CommandButtonControLMouseDown( [ index As Integer,] button As

Integer, shift As Single, x As Single, y As Single)

Private Sub CommandButtonControLMouseMove ([ index As Integer,] button AS

Inteaer, shift As Single. x As Sinale, v As Single)

Private Sub CommandButtonControl-MouseUP( [ index As Integer,] button As

Integer, shift As Single, x As Single, y As Single)

Private Sub CommandButtonControLOLEConripleteDrag( [ index As Integer,]

effect As Long )

Private Sub CommandButtonControLOL.EDragDrop( [ index As Integer,] data As

DataObject, effect As Long, button As Integer, shift As Single, x As Single, y As

Single)

Private Sub CommandButtonControLOLEDragOver( [ index As Integer,] data As

DataObject, effect As Long, button As Integer, shift As Single, x As Single, y As

Single, state As Integer)

Private Sub CommandButtonControl-OLEGiveFeedback ([ index As Integer,] effect

As Long)

Private Sub CommandButtonControLOLESetData( [ index As Integer,] data As

DataObject, DataPormat As Integer)

Private Sub CommandButtonControLOLEStartDrag ([ index As Integer,] data As

DataObject, AllowedEffects As Long )

CommonDialog 控件 CCE,LE,PE,EE

CommonDialogControl.AboutBox

CommonDialogControl.ShowColor

CommonDialogControl.ShowFont

CommonDialogControl.ShowHelp

CommonDialogControl.ShowOpen

CommonDialogControl.ShowPrinter

CommonDialogControl.ShowSave

Connection 对象 PE, EE

ConnectionObject.Cancel

ConnectionObject.Close

querydef = ConnectionObject.CreateQueryDef ([ name ] [, [ sql j ])

类 元素 版本(见图例)

connectionObject.Execute source [, options ]

recordset = ConnectionObject.OpenRecordset ( source [, type [, options [

f. lockedits 11)

Connecttons 集合 PE, EE

ConnectionsCollection.Refresh

Const CCE,LE,PE,EE)

ContainedControls 集合

Container 对象

Contatners 集合

ContainersCollection.Refresh

CCE, l-E, PE, EE

CCE,LE, PE, EE

PE.EE

PE, EE

Control 对象 CCE, LE. PE, EE

Controls 集合 CCE, LE, PE, EE

ControlsCollection.Clear

Item = ControlsCollection.ltem (index )

ControlCollection.Remove index

Coor 对象 CCE.LE.PE.EE

CoorObiect.Set xvalue, yvalue

Cos 函数 CCE,LE,PE,EE

CreateObiec 函数 CCE, LE, PE, EE

CSng 函数 CCE, LE, PE, EE

CStr 函数 CCE, LE, PE, EE

CurDir 语句 CCE,LE, PE, EE

Currency 数据类型 CCE, LE, PE, EE

CVar 函数 CCE, LE, PE, EE

CVDale 函数 CCE, LE, PE, EE

CVEn 函数 CCE, LE, PE, EE

Data 控件 CGE, LE. PE, EE

DataControl.Drag [ DragAction ]

DataControl.Move Left [, Top [, Width [, Height ] ] ]

DataControl.OLEDrag

DataControl.Refresh

DataControl.ShowWhatsThis

DataControl.UpdateControls

DataControl.UpdateRecord

DataControl.ZOrder [ position ]

图例

CCE.....Control Creation Edition

EE.........Enterprise Edition

LE..........Learning Edition PE......... Professional Edition

VBA.........Visual Basic for Appllcations

类 元素 版本(见图例)Private Sub DataControl_DragDropt [ index As integer Jsource As Control

x As Single, y As Single )

Private Sub DataControl_DragOver( [ index As integer,] source As Control, x As

Single, y As Single, state As integer)

Private Sub DataControl_Error ([ index As integer,] errcode As integer, resp As

Single)

Private Sub DataControl_MouseDown( [ index As integer,] button As integer, shift

As Single, x As Single, y As Single)

Private Sub DataControl_MouseMove ([ index As integer,] button As integer, shift

As Sinale. x As Single, y As Single)

Private Sub DataControl_MouseUp( [ index As imeger,] button As integer, shift As

Single, x As Single, v As Single)

Private Sub DataControl_OLECompleteDrag( [ index As integer,] effect As Long )

Private Sub DataControl_OLEDragDrop(Linaex AS Integer,] data As DataObject,

effect As Lona. button As integer, shift As Single, x As Single, y As Single)

Private Sub DataControl_OLEDragOver( [ index As integer,] data As DataObject,

effect As Long, button As integer, shift As Single, x As Single, y As Single, state As

integer)

Private Sub DataControl_OLEGiveFeedback ([ index As integer ,] ettect As Long )

Private Sub DataControl_OLESetData( [ index As integer,] data As DataObject,

DataFormat As integer)

Private Sub DataControl_OLEStartDrag ([ index As integer,] data As DataObject,

AllowedEffects As Long )

Private Sub DataControl_Reposition ([ index As integer])

Private Sub DataComroi_hesize(ImdexAs integer ])

Private Sub DataControl_Validate ([ index As integer,] action As integer, save As

Single)

Database 对象 PE. EE

DatabaseObject.Close

property = DatabaseObject.CreateProperty ([ name ] [, [ type ] [, [ value ]

[, DDL]] ])

querydef = DatabaseObject.CreateQueryDef ([ name ] [, [ sql ] ])

relation = DatabaseObject.CreateRelation ([ name J [, [ table j [, l toreign J

[, attr ] ] ])

tabledet = DatabaseObject.CreateTableDef ([ name ] [, [ attr ] [, [ source ]

[, connect]]])

DatabaseObject.Execute source [, options ]

DatabaseObject.MakeReplica replica, description [, options ]

DatabaseObject.NewPassword oldpwd, newpwd

recordset = Databaseubject.upennecoraset ( source [, type [, options ]

[, lockedits ] ] ])

DatabaseObiect.PoDulatePartial dbname

DatabaseObject.Synchronize dbname [, exchange ]

Databases 集合 PE, EE

DatabasesCollection.Refresh

DataBinding 对象 PE, EE

类 元素 版本(见图例)

DataBindings 集合 PE, EE

DataGrid 对象 PE, EE

DataGridObject.DeleteColumnLabels labelindex, count

DataQridObject.DeleteColumns column, count

DataGridObject.DeleteRowLabels labelindex, count

DataGridObject.DeleteRows row, count

DataGridObject.GetData row, column, datapoint, nullflag

DataGridObject.lnitializeLabeis

DataGridObiect.InsertColumnLabels labelindex, count

DataGridObject.lnsertColumns column, count

DataGridObject.lnsertRowLabels labelindex, count

DataGridObject.lnsertRows row, count

DataGridObiect.MoveData top, left, bottom, right, overoffset, downoftset

DataGridObject.RandomDataFill

DataGridObject.RandomFillColumns column, count

DataGridObiect.RandomFillRows row, count

DataGridObject.SetData row, column, datapoint, nuimag

DataGridObject.SetSize rowlabelcount, columnlabelcount, datarowcount,

datacolumncount

OataObject 对象 CCE,LE,PE,EE

DataObjectObject.Clear

value = DataObjectObject.GetData format

bvalue = DataObjectObject.GetFormat format

DataObjectObiect.SetData [ data ] [, format ]

DataObjectFles 集合 CCE, :LE, PE, EE

DataObiectFilesCollection.Add filename, [ index ]

DataObjectFilesCollection.Clear

DataObjectFilesCollection. Remove index

DataPomt 对象 PE, EE

DataPointObject.ResetCustom

DataPointObject.Select

DataPointLabel 对象 PE,EE

DataPointObject.ResetCustomLabel

DataPointObject.Select

DataPotntS 集合 PE, EE

Date 数据类型 CCE,LE,PE,EE

CCE...Control Creation Edition EE.........Enterprise Edition LE.........Learning Edition P

PE......Professional Edition

VBA........Visual Basic for Applications

类' 元素 版本（见图例）

Date 函数 CCE，LE，PE，EE

DateAdd 语句 CCE，LE，PE，EE

DateDiff 函数 CCE，LE，PE，EE

Datepart 函数 CCE，LE，PE，EE AteVAiue 函数 CCE，LE，PE，EE

Day 函数 CCE，LE，PE，EE

DBCombo 控件 CCE，LE，PE，EE

DBComboControl.AboutBox

DBComboControl.Drag [ DragAction ]

DBComboControl.Move Left [, Top [, Width [, Height ] ] ]

DBComboControl.OLEDrao

DBComboControl.ReFill

DBComboControl.Refresh

DBComboControl.SetFocus

DBComboControl.ShowWhatsThis

DBComboControl.ZOrder [ position ]

Private Sub DBComboControl__CIicR( [ index As Integer ])

Private Sub DBComboControLDblClick( [ index As Integer ])

Private Sub DBComboControLDragDrop( [ index As Integer,] source As Control,

x As Single, y As Single )

Private Sub DBComboControLDragOver [ index As integer,] source As Control,

x As Single, y As Single, state As Integer)

Private Sub DBComboControLGotFocus ([ index As Integer ])

Private Sub DBcomDOControi__eyDown ( [ inaex MS integer J Keycode As Integer,

shift As Single)

Private Sub DBComboControl__KeyPress( l index AS integer J keychar As Integer)

Private Sub DBComboConiroleyup ( [ index As Integer,] keycode As Integer,

shift As Single)

Private Sub DBComboControLLostFocus ([ index As Integer ])

Private Sub DBComboBoxControLMouseDown( [ index As Integer,]

button As Integer, shift As Single, x As Single, y As Single)

Private Sub DBComboControLMouseMove ([ index As Integer,] button As Integer,

shift As Single, x As Single, y As Single)

Private Sub DBComboBoxControLMouseUp( [ index As Integer ,] outton AS integer,

shift As Single, x As Single, y As Single)

Private Sub DBComboControLOLECompleteDrag( [ index As Integer,]

effect As Long )

Private Sub DBComboControl_OLEDragDrop( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Sinale)

Private Sub DBComboControLOLEDragOver( [ index As Integer,] data As DataObject,

effect As Long, button As Integer, shift As Single, x As Single, y As Single, state As

Integer)

Private Sub DBComboControLOLEGiveFeedback ([ index As Integer,]

effect As Lona)

类 元素 版本(见图例)

WorkspaceObject.Close

WorkspaceObject.CommitTrans [ dbFlushOSCacheWrites ]

Database = WorkspaceObject.CreateDatabase ( dbname, locale, options )

Group = WorkspaceObject.CreateQroup ([ name ] [, pid ])

User = WorkspaceObject.CreateUser (f name ] [, [ pid ] [.password] ])

connection = WorkspaceObject.OpenConnection name [, options [, readonly [, connect ]] ]

database = WorkspaceObject.OpenDatabase name [, options [, readonly

[,connect ] ]]

WorksoaceObiect.RollBack

Workspaces 集合 PE, EE

WorkspacesCollection.Append object

WorksDacesCollection.Delete name

WorksoacesCollection.Refresh

Write 语句 CCE,LE,PE,Ee

Year 函数 CCE, LE, PE, EE