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