Container 属性示例 该例子演示在 Form 对象上把 CommandButton 控件从一个容器移动到另一个容器。要试用此例，先将以下代码粘贴到包含一个 Frame 控件、一个 PictureBox 控件和一个 CommandButton 控件的窗体的声明部分，然后按下 F5 键。Private Sub Form_Click() Static intX As Integer Select Case intX Case 0 Set Command1.Container = Picture1 Command1.Top= 0 Command1.Left= 0 Case 1 Set Command1.Container = Frame1 Command1.Top= 0 Command1.Left= 0 Case 2 Set Command1.Container = Form1 Command1.Top= 0 Command1.Left= 0 End Select intX = intX + 1 End Sub
dim TabX as object Set TabX = TabStrp.Tabs.Add(index,key ,Name)
Drag 方法 用于除了 Line、Menu、Shape、Timer 或 CommonDialog 控件之外的任何控件的开始、结束或取消拖动操作。不支持命名参数。语法object.Drag actionDrag 方法的语法包含下列部分：部分 描述 object 必需的。是一个对象表达式，其值为“应用于”列表中的一个对象。 如果省略 object，则认为该对象事件过程包含有 Drag 方法。 action 可选的。是一个常数或数值，如“设置值”中所描述的，它指定要执行的动作。如果省略 action，则缺省值为开始拖动对象。 设置值action 的设置值有：常数 值 描述 vbCancel 0 取消拖动操作 vbBeginDrag 1 开始拖动 object vbEndDrag 2 结束拖放 object 说明上述常数在 Visual Basic (VB) 对象浏览器的对象库里列出。只有当对象的 DragMode 属性设置为手工（0）时，才需要使用 Drag 方法控制拖放操作。但是，也可以对 DragMode 属性设置为自动（1 或 vbAutomatic）的对象使用 Drag。如果在拖动对象过程中想改变鼠标指针形状，使用 DragIcon 或 MousePointer 属性。如果没有指定 DragIcon 属性，则只能使用 MousePointer 属性。Drag 方法一般是同步的，这意味着其后的语句直到拖动操作完成之后才执行。然而，如果该控件的 DragMode 属性设置为 Manual (0 or vbManual)，则它可以异步执行。 Drag 方法示例 本示例使用 Drag 方法将一个位图 (bmp) 文件的文件名拖到显示该位图的图片框中。要检验此示例，可将本例所有代码粘贴到一个含有 DriveListBox、DirListBox、FileListBox、PictureBox 和 Label 控件的窗体的声明部分。对所有控件要使用缺省名。所有控件大小和位置的确定应使它们易于被看到和使用。标签的大小和位置并不重要，因为它们在运行时会改变。当程序开始时，可以浏览文件系统并装载任何需要的位图。装入所需要显示的位图后，可单击该位图的文件名并将它拖到图片框中。Private Sub Form_Load () Picture1.AutoSize = -1 ' 打开 AutoSize。 Label1.Visible = 0 ' 使该标签不可见。 File1.Pattern = "*.BMP; *.ICO; *.WMF" ' 设置文件的各种样式。 End SubPrivate Sub Dir1_Change () ' 任何 Dir1 中的变更 File1.Path = Dir1.Path ' 都显示在 ile1 中。 End SubPrivate Sub Drive1_Change () ' 任何 Drive1 中的变更 Dir1.Path = Drive1.Drive ' 都显示在 Dir1 中。 End SubPrivate Sub File1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Dim DY ' 声明变量。 DY = TextHeight("A") ' 取得一行的高度。 Label1.Move File1.Left, File1.Top + Y - DY /2, File1.Width, DY Label1.Drag ' 拖标签轮廓。 End SubPrivate Sub Dir1_DragOver (Source As Control, X As Single, Y As Single, State As Integer) ' 改变指针为不放。 If State = 0 Then Source.MousePointer = 12 ' 使用缺省鼠标指针。 If State = 1 Then Source.MousePointer = 0 End SubPrivate Sub Drive1_DragOver (Source As Control, X As Single, Y As Single, State As Integer) ' 改变指针为不放。 If State = 0 Then Source.MousePointer = 12 ' 使用缺省鼠标指针。 If State = 1 Then Source.MousePointer = 0 End SubPrivate Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer) ' 改变指针为不放。 If State = 0 Then Source.MousePointer = 12 ' 使用缺省鼠标指针。 If State = 1 Then Source.MousePointer = 0 End SubPrivate Sub File1_DragOver (Source As Control, X As Single, Y As Single, State As Integer) On Error Resume Next If State = 0 And Right$(File1.Filename,4) = ".ICO" Then Label1.DragIcon = LoadPicture(File1.Path + "\" + File1.Filename) If Err Then MsgBox "The icon file can't be loaded." ElseIf State = 1 Then Label1.DragIcon = LoadPicture () ' 使用非拖式图标。 End If End SubPrivate Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single) On Error Resume Next Picture1.Picture = LoadPicture(File1.Path + "\" + File1.Filename) If Err Then MsgBox "The picture file can't be loaded." End SubMove 方法 用以移动 MDIForm、Form 或控件。不支持命名参数。语法object.Move left, top, width, heightMove 方法的语法包含下列部分：部分 描述 object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。 left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。 top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。 width 可选的。单精度值，指示 object 新的宽度。 height 可选的。单精度值，指示 object 新的高度。 说明只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。对于 Frame 控件中的窗体和控件，坐标系统总是用缇 。移动屏幕上的窗体或移动 Frame 中的控件总是相对于左上角的原点 (0,0)。移动 Form 对象或 PictureBox 中的控件（或 MDIForm 对象中的 MDI 子窗体）时，则使用该容器对象的坐标系统。坐标系统或度量单位是在设计时 用 ScaleMode 属性设置。在运行时 使用 Scale 方法可以更改该坐标系统。 Move 方法示例 本示例使用 Move 方法在屏幕上移动一个窗体。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click () Dim Inch, Msg ' 声明变量。 Msg = "Choose OK to resize and move this form by " Msg = Msg & "changing the value of properties." MsgBox Msg ' 显示信息。 Inch = 1440 ' 将英寸设置为缇。 Width = 4 * Inch ' 设置宽度。 Height = 2 * Inch ' 设置高度。 Left = 0 ' 将左边对准起点。 Top = 0 ' 将顶部对准起点。 Msg = "Now choose OK to resize and move this form " Msg = Msg & "using the Move method." MsgBox Msg ' 显示信息。 Move Screen.Width - 2 * Inch, Screen.Height - Inch, 2 * Inch, Inch End SubSetFocus 方法 将焦点移至指定的控件或窗体。语法object.SetFocusobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后，任何的用户输入将指向指定的窗体或控件。焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。 Click 事件（SSTab 控件） 当用户在某个 SSTab 控件上选定了一个选项卡时，Click 事件就会发生。语法Private Sub object_Click ([index As Integer], previoustab As Integer)Click 事件的语法包含下面部分：部分 描述 object 对象表达式，其值是 SSTab 控件。 Index 整数，它唯一标识一个控件─如果该控件是在某个控件数组中的话。 previoustab 数值表达式，它标识先前为活动的选项卡。 说明用 Click 事件确定，用户在什么时候单击选项卡，使其成为活动选项卡。当某个选项卡接受 Click 事件时，它就会变成活动的选项卡，而且在设计时放置在其中的控件也就出现了。使用 previoustab 参数可检查那些更改，这些更改是在用户单击另一个选项卡时做出的。用 Tab 属性决定当前选项卡。 Click 事件（SSTab 控件）示例 在这个例子中，当用户选择了 SSTab 控件的一个不同选项卡时，就保存来自于该控件的两个选项卡的首选项信息。Private Sub sstbPrefs_Click(PreviousTab As Integer) Dim ThisSetting As String Select Case PreviousTab Case 0 If optLoanLen(0) = True Then ThisSetting = "Months" Else ThisSetting = "Years" End If SaveSetting "LoanSheet", "LoanLength", _ "Period", ThisSetting Case 1 Dim X As Integer For X = 0 To 3 If optPctsShown(X) = True Then SaveSetting "LoanSheet", "InterestRate", _ "Precision", optPctsShown(X).Tag Exit For End If Next X End Select End Sub
DblClick 事件 （ActiveX 控件） 当在一个对象上按下和释放鼠标按钮并再次按下和释放鼠标按钮时，该事件发生。对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick 事件发生。对于控件而言，DblClick 事件在以下情形下发生： 用鼠标左键双击控件。 双击 Style 属性设置为 1(Simple) 的 ComboBox 控件中的项目，或者在 FileListBox 、 ListBox 、DBCombo 或 DBList 控件中的项目。 语法Private Sub Form_DblClick ( )Private Sub object_DblClick (index As Integer)部分 描述 object 对象表达式，其值是“应用于”列表中的一个对象。 index 如果控件在控件数组内，则这个 index 值就用来标识该控件。 说明如果控件在一个控件数组内，则这个 Index 参数唯一地标识这个控件。可以使用 DblClick 事件过程执行一个隐式操作，如双击图标来打开一个窗口或文档。也可用这类过程执行单一操作的多个步骤，例如用双击在列表框中选定一项并关闭对话框。要在 Visual Basic 中产生这类快捷效果，可以使用带有缺省按钮的列表框的或叠层排列文件列表框的 DblClick 事件过程；所谓缺省按钮就是 Default 属性设置为 True 的 CommandButton 控件。作为列表框 DblClick 事件过程的一部分，只需简单调用缺省按钮的 Click 事件。对于那些接收 Mouse 事件的对象，事件按这样的次序发生：MouseDown， MouseUp， Click， DblClick 和 MouseUp。如果 DblClick 在系统双击时间限制内没有出现，则对象识别另一个 Click 事件。双击时间限制可以变化，因为用户可在控制面板设置双击速度。当与这些相关事件过程打交道时，必须确保它们的活动不发生冲突。不接受 DblClick 事件的控件可能接受两次单击而不是 DblClick 事件。注意 要想区别鼠标的左、右、中按钮，使用 MouseDown 和 MouseUp 事件。如果在 Click 事件中有编码，DlbClick 事件将永远不会触发。 DragDrop 事件 在一个完整的拖放动作（即将一个控件拖动到一个对象上，并释放鼠标按钮）完成，或使用 Drag 方法，并将其 action 参数被设置为 2 (Drop) 时，该事件发生。语法Private Sub Form_DragDrop(source As Control, x As Single, y As Single)Private Sub MDIForm_DragDrop(source As Control, x As Single, y As Single)Private Sub object_DragDrop([index As Integer,]source As Control, x As Single, y As Single)DragDrop 事件语法包含下列部分：部分 描述 object 一个对象表达式，其值是“应用于”列表中的一个对象。 index 一个整数，用来唯一地标识一个在控件数组中的控件。 source 正在被拖动的控件。可用此参数将属性和方法包括在事件过程中 — 例如，Source.Visible = 0。 x, y 是一个指定当前鼠标指针在目标窗体或控件中水平 (x) 和垂直 (y) 位置的数字。这些坐标值通常用目标坐标系统来表示，该坐标系是通过 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性而设置的。 说明DragDrop 事件过程用来控制在一个拖动操作完成时将会发生的情况。例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。当 source 参数中可能使用多个控件时： 应使用 TypeOf 关键字和 If 语句一起确定与 source 表示的控件的类型。 应使用该控件的 Tag 属性来标识一个控件，然后使用 DragDrop 事件过程。 注意 应使用 DragMode 属性和 Drag 方法来指定开始拖动的方法。一旦开始拖动，可使用 DragOver 事件过程来处理位于 DragDrop 事件前面的事件。 DragOver 事件 它在拖放操作正在进行时发生。可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。鼠标指针的位置决定接收此事件的目标对象。语法Private Sub Form_DragOver(source As Control, x As Single, y As Single, state As Integer)Private Sub MDIForm_DragOver(source As Control, x As Single, y As Single, state As Integer)Private Sub object_DragOver([index As Integer,]source As Control, x As Single, y As Single, state As Integer)DragOver 事件语法包括下列部分：部分 描述 object 一个对象表达式，其值是“应用于”列表中的一个对象。 index 一个整数，用来唯一地标识一个在控件数组中的控件。 source 正在被拖动的控件。可用此参数在事件过程中引用各属性和方法—例如， Source.Visible = False。 x, y 是一个指定当前鼠标指针在目标窗体或控件中水平 (x) 和垂直 (y) 位置的数字。这些坐标值通常用目标坐标系统来表示，该坐标系是通过 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性而设置的。 state 是一个整数，它相应于一个控件的转变状态，该控件在相关目标窗体或控件中正在被拖动： 0 = 进入（源控件正被向一个目标范围内拖动）。 1 = 离去（源控件正被向一个目标范围外拖动）。 2 = 跨越（源控件在目标范围内从一个位置移到了另一位置）。 说明为了确定在拖动开始后和控件放在目标上之前发生些什么，应使用 DragOver 事件过程。例如，通过加亮目标（由代码设置 BackColor 或 ForeColor 属性）或者显示一个特定的拖动指针（由代码设置 DragIcon 或 MousePointer 属性）可验证有效的目标范围。为了确定一些关键转变点处的操作，应使用 state 参数。例如，当 state 的设置为 0（进入）时可使一个可能的目标加亮，而当 state 的设置为 1（离去）时可恢复该对象先前的外观。在 state 的设置为 0（进入）对象接收 DragOver 事件的情况： 如果源控件被放在该对象上，则该对象就接收一个 DragDrop 事件。 如果源控件没有被放在该对象上，则当 state 的设置为 1（离去）时该对象就接收另一个 DragOver 事件。 注意 应使用 DragMode 属性和 Drag 方法指定开始拖动的方式。关于 source 参数的使用技巧，请参阅 DragDrop 事件说明主题部分。 DragOver 事件示例 本例演示一种指示有效的拖放目标的方法。当一个 TextBox 控件被拖过一个 PictureBox 控件时，指针从缺省的箭头变为特定的图标。当源被拖到其它地方时，指针恢复到缺省的状态。要尝试这个例子，可将代码粘贴到一个包含 1 个小 TextBox 和一个 PictureBox 的窗体的声明部分。将 TextBox 控件的 DragMode 属性设置为 1，然后按 F5 键并把 TextBox 拖过 PictureBox。Private Sub Picture1_DragOver (Source As Control, X As Single, Y As Single, State As Integer) Select Case State Case vbEnter ' 装载图标。 Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO") Case vbLeave Source.DragIcon = LoadPicture() ' 卸载图标. End Select End SubPrivate Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single) Source.DragIcon = LoadPicture() ' 卸载图标。 End SubGotFocus 事件 当对象获得焦点时产生该事件；获得焦点可以通过诸如 TAB 切换，或单击对象之类的用户动作，或在代码中用 SetFocus 方法改变焦点来实现。语法Private Sub Form_GotFocus( )Private Sub object_GotFocus([index As Integer])GotFocus 事件包含下列部分：部分 描述 object 一个对象表达式，其值是“应用于”列表中的一个对象。 index 一个整数，用来唯一地标识一个在控件数组中的控件。 说明通常，GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。例如，通过给窗体上每个控件附加一个 GotFocus 事件过程，就可以显示简要说明或状态条信息给外界提供指导。根据获取焦点控件的不同，通过使其有效、禁止或者是显示其它控件的方式，也可以提供出可视的提示。注意 一个控件仅当其 Enabled 和 Visible 属性都设置为 True 时才能接收焦点。为了移动焦点，在 Visual Basic 中要自定义键盘接口，对于窗体上的控件需设置 Tab 键顺序或指定访问键。 GotFocus 事件示例 本例在 OptionButton 组中的一个按钮得到焦点时显示一个状态栏信息。要尝试这个例子，可将代码粘贴到一个包含 2 个 OptionButton 控件和 1 个 Label 的窗体的声明部分。将两个 OptionButton 控件的 Name 属性都设置为 OptionGroup，然后按 F5 键并单击 OptionButton 控件。 Private Sub Form_Load () Label1.AutoSize = True End SubPrivate Sub OptionGroup_GotFocus (Index As Integer) Select Case Index Case 0 Label1.Caption = "Option 1 has the focus." Case 1 Label1.Caption = "Option 2 has the focus." End Select End SubPrivate Sub OptionGroup_LostFocus (Index As Integer) Label1.Caption = ""End SubKeyDown、KeyUp 事件 这些事件是当一个对象具有焦点时按下 ( KeyDown ) 或松开 ( KeyUp ) 一个键时发生的。（要解释 ANSI 字符，应使用 KeyPress 事件。）语法Private Sub Form_KeyDown(keycode As Integer, shift As Integer)Private Sub object_KeyDown([index As Integer,]keycode As Integer, shift As Integer)Private Sub Form_KeyUp(keycode As Integer, shift As Integer)Private Sub object_KeyUp([index As Integer,]keycode As Integer, shift As Integer)KeyDown 和 KeyUp 事件包括下列部分：部分 描述 object 一个对象表达式，其值是“应用于”列表中的一个对象。 index 是一个整数，它用来唯一标识一个在控件数组中的控件。 keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中
SSTab 控件提供了一组选项卡，每个选项卡都可作为其它控件的容器。在控件中，同一时刻只有一个选项卡是活动的，这个选项卡向用户显示它本身所包含的控件而隐藏其它选项卡中的控件。语法SSTab说明SSTab 控件就象笔记本中的分割线或一组文件夹上的标签一样。用 SSTab 控件，可以在应用程序中为某个窗口或对话框的相同区域定义多个页面。用这个控件的属性可以： 决定选项卡的数目。
把选项卡组织到多于一行中。
为每一个选项卡设置文本。
在每个选项卡上显示一幅图形。
决定所用选项卡的样式。
设置每个选项卡的大小。
为了使用这个控件，必须首先决定想怎样组织放置到不同选项卡中的控件。设置 Tabs 和 TabsPerRow 属性来创建选项卡，并把它们组织到各行中。然后在设计时通过单击每个选项卡来选择它。对每个选项卡，在用户选定该选项卡时希望显示控件，所以要将这些控件绘制出来。按照要求，设置 Caption、Picture、TabHeight 和 TabMaxWidth 属性，由此定制选项卡的顶部。在运行时，用户可按 CTRL+TAB 键或使用每个选项卡的标题中所定义的加速键在选项卡之间移动。也可用 Style、ShowFocusRect、TabOrientation 和 WordWrap 属性定制整个 SSTab 控件。发行注意 可在文件 TABCTL32.OCX 中找到 SSTab 控件。为在应用程序中使用 SSTab 控件，必须将该控件的 .OCX 文件添加到工程中。当发行应用程序时，把合适的 .OCX 文件安装到用户的 Microsoft Windows 的 System 或者 System32 子目录下。关于如何将附加控件添加到工程中去的详细信息，请参阅 Visual Basic《程序员指南》。
返回或设置 Form 上控件的容器。在设计时不能使用。语法Set object.Container [= container]Container 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
container 一个对象表达式其值是能够作为别的控件容器使用的对象，按照说明的描述。
说明下面的控件能够容纳别的控件： Frame 控件
PictureBox 控件.
SSTab 控件
该例子演示在 Form 对象上把 CommandButton 控件从一个容器移动到另一个容器。要试用此例，先将以下代码粘贴到包含一个 Frame 控件、一个 PictureBox 控件和一个 CommandButton 控件的窗体的声明部分，然后按下 F5 键。Private Sub Form_Click()
Static intX As Integer
Select Case intX
Case 0
Set Command1.Container = Picture1
Command1.Top= 0
Command1.Left= 0
Case 1
Set Command1.Container = Frame1
Command1.Top= 0
Command1.Left= 0
Case 2
Set Command1.Container = Form1
Command1.Top= 0
Command1.Left= 0
End Select
intX = intX + 1
End Sub
Set TabX = TabStrp.Tabs.Add(index,key ,Name)
返回或者设置在 SSTab 控件的当前选项卡中显示的一幅图形。语法object.Picture [ = picture]Picture 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
Picture 字符串表达式，它指明一幅显示在当前选项卡上的位图或者图标，“设置值”中有详细描述。
设置值picture 的设置值是：设置值 描述
(None) 对象表达式，其值是 SSTab 控件。
(Bitmap, icon, metafile) 字符串表达式，它指明一幅显示在当前选项卡上的位图或者图标。
说明在设计时，单击选项卡并在“属性”窗口中设置属性，由此就设置了选项卡的 Picture 属性。在运行时，可用 LoadPicture 函数，也可用另一控件或某个 Form 对象的 Picture 属性来设置 Picture 属性。通过设置 Tab 属性可使某个选项卡成为当前选项卡。在设置设计时的 Picture 属性时，图形被保存起来并用包含 SSTab 控件的 Form 对象来加载。如果创建一个可执行文件，则该文件包含图象。在运行时加载一幅图形，这时，不把该图形同应用程序一起保存起来。设置 Picture 属性后就可显示活动选项卡内的图片，也会影响当前选项卡的 TabPicture 属性值。
SSTab1.Tab = SSTab1.Tab+1
end sub
Private Sub Cmd1_Click()
SSTab1.Tab = 0'1,2,3,4,...根据你的选项卡来设置
end sub
你会发现这个才是你想要的控件。给分吧！：）
返回或设置 SSTab 控件上的选项卡样式。语法object.Style [ = value ]Style 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
value 常数或整数，它指定选项卡的样式，“设置值”中有详细描述。
设置值value 的设置值是：常数 值 描述
ssStyleTabbedDialog 0 （缺省的）出现在标记对话框中的选项卡看起来就象 Microsoft Office for Microsoft Windows 3.1 applications 中的那些一样。如果选择了这种样式，则活动选项卡的字体是粗体的。
ssStylePropertyPage 1 出现在标记对话中框的选项卡看起来就象 Microsoft Windows 95 中的那些一样。选择这种设置时，TabMaxWidth 属性就被忽略，而每个选项卡的宽度都调整到其标题中文本的长度。在选项卡中显示文本所用的字体不是粗体的。 Tab 属性（SSTab 控件）
返回或设置 SSTab 控件的当前选项卡。语法object.Tab [ = tabnumber ]Tab 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
tabnumber 数值表达式，它指示一个特定选项卡。第一个选项卡总是 0。
说明当前选项卡移动到前面并成为活动选项卡。一般说来，应用程序的用户单击选项卡，使之成为当前选项卡。但可能需要在代码中选择当前选项卡。例如，每次在应用程序中显示某个特定的对话框时，可能会希望相同的选项卡成为当前选项卡。如果用 Form 的 Hide 方法来解除对话框，当对话框下一次出现而且 Form 被隐藏起来时，最后的选项卡就成为活动选项卡。可以这样设置 SSTab 控件的 Tab 属性，使得在对话框每次出现时，相同的选项卡都是活动的。
Tab 属性（SSTab 控件）示例
在这个例子中，在显示了包含 SSTab 控件的窗体之前，总使该控件中的第一个选项卡成为活动选项卡。为试用此例，创建两个 Form 对象。将 CommandButton 控件放置在 Form1 上，而将 SSTab 控件放置在 Form2 上。在 Form1 上将代码粘贴到 CommandButton 的 Click 事件中，然后运行该例。Private Sub Command1_Click()
Form2.SSTab1.Tab = 1
Form2.Show
End SubRows 属性（SSTab 控件）
返回 SSTab 控件中的选项卡总行数。语法object.Rowsobject 所在处代表一个对象表达式，其值是 SSTab 控件。说明在设计时，通过设置 Tabs 和 TabsPerRow 属性来指定 SSTab 控件中的行数。TabCaption 属性（SSTab 控件）
返回或者设置 SSTab 控件的每个选项卡的标题。语法object.TabCaption(tab) [ = text ]TabCaption 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
tab 数值表达式，它指定选项卡，标题应出现在这个选项卡上。
text 字符串表达式，其值是文本，它显示指定选项卡的标题。
说明在设计时可单击选项卡，然后在“属性”窗口中设置 Caption 属性，由此就可设置 TabCaption 属性。也可在“属性”窗口中选择（定制） TabCaption 属性并在“属性”对话框的“通用”选项卡中设置 TabCaption 属性。在运行时，可用 TabCaption 属性读出或更改任何选项卡的标题。也可用 Caption 属性更改活动选项卡的 TabCaption 属性。可用 TabCaption 属性将访问键赋给选项卡。在 TabCaption 设置中，在充当访问键的字符前面直接附一个连字符 (&)。该字符带下划线。按下 ALT 键与带下划线的字符，就使选项卡成为活动选项卡。为了使标题包含连字符而又不创建访问键，要包含两个连字符 (&&)。在标题中显示单个连字符，而且没有字符是加下划线的。
TabCaption 属性（SSTab 控件）示例
在这个例子中，一个选项卡上列出了一场比赛中的防御队员，而在另一个选项卡列出了进攻方队员，现在要对 SSTab 控件的选项卡添加或删除一个附加字。单击 Form 上的 CheckBox 控件，用户可在较长标题或者较短标题之间切换。Private Sub Check1_Click()
Dim X As Integer
For X = 0 To SSTab1.Tabs - 1
Select Case Check1.Value
Case 0 '切换到短标题。
SSTab1.TabCaption(X) = Left(SSTab1.TabCaption(X), 7)
Case 1 '切换到长标题。
SSTab1.TabCaption(X) = SSTab1.TabCaption(X) & " Players"
End Select
Next X
End SubTabEnabled 属性（SSTab 控件）
返回或设置一个值，在单击 SSTab 控件中的选项卡时，该值确定选项卡是否可用。语法object.TabEnabled(tab)[ = boolean ]TabEnabled 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是一个 SSTab 控件。
tab 数值表达式，它指定了选项卡。
boolean 布尔表达式，它指定选项卡是否响应单击，“设置值”中有详细描述。
设置值boolean 的设置值是：设置值 描述
True （缺省的）单击选项卡时选项卡响应。
False 单击选项卡时选项卡不响应。
说明当选项卡被禁用时，选项卡上的文本以暗淡的形式出现，用户不能选择那个选项卡。TabEnabled 属性允许或禁用单个选项卡。可用 Enabled 属性允许或禁用整个 SSTab 控件。
TabHeight 属性（SSTab 控件）
返回或者设置 SSTab 控件上的所有选项卡的高度。语法object.TabHeight [ = height ]TabHeight 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
height 数值表达式，它指定选项卡的高度，这个高度是以容器的缩放模式为根据的。 TabMaxWidth 属性（SSTab 控件）
返回或设置 SSTab 控件上的每个选项卡的最大宽度。语法object.TabMaxWidth [ = width ]TabMaxWidth 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
width 数值表达式，它决定每个选项卡的最大宽度，这一宽度是根据容器的缩放模式度量的。
说明当 Style 属性设置为 ssStyleTabbedDialog 而且 TabMaxWidth 属性设置为零 (0) 时，SSTab 控件根据 TabsPerRow 属性自动调整选项卡大小，使它们适合于控件。如果在 Style 属性中选择 ssStylePropertyPage 设置，则忽略 TabMaxWidth 属性。每个选项卡的宽度自动调整到 TabCaption 属性中的文本的长度。
TabOrientation 属性（SSTab 控件）
返回或设置 SSTab 控件上的选项卡的位置。语法object.TabOrientation [ = number ]TabOrientation 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
number 数值表达式，它指定选项卡的位置，“设置值”中有详细描述。
设置值number 的设置值为：常数 值 描述
ssTabOrientationTop 0 选项卡出现在控件顶端。
ssTabOrientationBottom 1 选项卡出现在控件底部。
ssTabOrientationLeft 2 选项卡出现在控件左边。
ssTabOrientationRight 3 选项卡出现在控件右边。
说明如果使用 TrueType 字体，则当 TabOrientation 属性被设置为 ssTabOrientationLeft 或者 ssTabOrientationRight 时，文本就会旋转。
TabPicture 属性（SSTab 控件）
返回或设置在 SSTab 控件的指定选项卡上显示的位图或图标。语法object.TabPicture(tab) [ = picture ]TabPicture 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
tab 数值表达式，它指定显示图片的选项卡。
picture 字符串表达式，它指定一幅图形，“设置值”中有详细描述。
设置值picture 的设置值为：设置值 描述
(None) （缺省的）无图片。
(Bitmap, icon, metafile) 指定一幅图形。在运行时，可用 LoadPicture 函数、也可用另一个控件的 Picture 属性或 Form 对象的 Picture 属性来设置本属性。
说明在设计时可单击选项卡，然后在“属性”窗口内设置 Picture 属性，由此即可设置 TabPicture 属性。也可在“属性”窗口中选择（定制）并在“属性”对话框的“图片”选项卡中设置 Picture 属性。在运行时，可用 TabPicture 属性调用或改变任何选项卡上的图片，也可与活动选项卡一起用 Picture 属性来工作。
TabVisible 属性（SSTab 控件）
返回或设置一个值，该值指出在某个 SSTab 控件内的选项卡是可视的还是隐藏的。在设计时，该值是不可用的。语法object.TabVisible(tab) [ = boolean ]TabVisible 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
tab 数值表达式，它指定应成为可视或隐藏形式的选项卡。
boolean 布尔表达式，它指定选项卡是可视的还是隐藏的，“设置值”中有详细描述。
设置值boolean 的设置值为：设置值 描述
True （缺省的）选项卡是可视的。
False 选项卡是隐藏的。调整其它选项卡的位置，使选项卡之间没有空隙。
说明TabVisible 属性隐藏或显示单个选项卡。用 Visible 属性隐藏或显示整个 SSTab 控件。
Tabs 属性（SSTab 控件）
返回或设置 SSTab 控件上的选项卡总数。语法object.Tabs [ = tabnumber ]Tabs 属性的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
tabnumber 数值表达式，它指定应出现在控件上的选项卡数目。自动将标题 Tabx 赋给选项卡，这里的 x 是 0，1，2，3 等等。
说明可在运行时更改 Tabs 属性，从而添加新的选项卡或删除选项卡。在设计时，用 Tabs 属性连同 TabsPerRow 属性来决定控件显示的选项卡的行数。在运行时要使用 Rows 属性。
TabsPerRow 属性（SSTab 控件）
对 SSTab 控件的每一行，返回或设置选项卡的数目。语法object.TabsPerRow
用于除了 Line、Menu、Shape、Timer 或 CommonDialog 控件之外的任何控件的开始、结束或取消拖动操作。不支持命名参数。语法object.Drag actionDrag 方法的语法包含下列部分：部分 描述
object 必需的。是一个对象表达式，其值为“应用于”列表中的一个对象。 如果省略 object，则认为该对象事件过程包含有 Drag 方法。
action 可选的。是一个常数或数值，如“设置值”中所描述的，它指定要执行的动作。如果省略 action，则缺省值为开始拖动对象。
设置值action 的设置值有：常数 值 描述
vbCancel 0 取消拖动操作
vbBeginDrag 1 开始拖动 object
vbEndDrag 2 结束拖放 object
说明上述常数在 Visual Basic (VB) 对象浏览器的对象库里列出。只有当对象的 DragMode 属性设置为手工（0）时，才需要使用 Drag 方法控制拖放操作。但是，也可以对 DragMode 属性设置为自动（1 或 vbAutomatic）的对象使用 Drag。如果在拖动对象过程中想改变鼠标指针形状，使用 DragIcon 或 MousePointer 属性。如果没有指定 DragIcon 属性，则只能使用 MousePointer 属性。Drag 方法一般是同步的，这意味着其后的语句直到拖动操作完成之后才执行。然而，如果该控件的 DragMode 属性设置为 Manual (0 or vbManual)，则它可以异步执行。
Drag 方法示例
本示例使用 Drag 方法将一个位图 (bmp) 文件的文件名拖到显示该位图的图片框中。要检验此示例，可将本例所有代码粘贴到一个含有 DriveListBox、DirListBox、FileListBox、PictureBox 和 Label 控件的窗体的声明部分。对所有控件要使用缺省名。所有控件大小和位置的确定应使它们易于被看到和使用。标签的大小和位置并不重要，因为它们在运行时会改变。当程序开始时，可以浏览文件系统并装载任何需要的位图。装入所需要显示的位图后，可单击该位图的文件名并将它拖到图片框中。Private Sub Form_Load ()
Picture1.AutoSize = -1 ' 打开 AutoSize。
Label1.Visible = 0 ' 使该标签不可见。
File1.Pattern = "*.BMP; *.ICO; *.WMF" ' 设置文件的各种样式。
End SubPrivate Sub Dir1_Change () ' 任何 Dir1 中的变更
File1.Path = Dir1.Path ' 都显示在 ile1 中。
End SubPrivate Sub Drive1_Change () ' 任何 Drive1 中的变更
Dir1.Path = Drive1.Drive ' 都显示在 Dir1 中。
End SubPrivate Sub File1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim DY ' 声明变量。
DY = TextHeight("A") ' 取得一行的高度。
Label1.Move File1.Left, File1.Top + Y - DY /2, File1.Width, DY
Label1.Drag ' 拖标签轮廓。
End SubPrivate Sub Dir1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' 改变指针为不放。
If State = 0 Then Source.MousePointer = 12
' 使用缺省鼠标指针。
If State = 1 Then Source.MousePointer = 0
End SubPrivate Sub Drive1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' 改变指针为不放。
If State = 0 Then Source.MousePointer = 12
' 使用缺省鼠标指针。
If State = 1 Then Source.MousePointer = 0
End SubPrivate Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' 改变指针为不放。
If State = 0 Then Source.MousePointer = 12
' 使用缺省鼠标指针。
If State = 1 Then Source.MousePointer = 0
End SubPrivate Sub File1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
On Error Resume Next
If State = 0 And Right$(File1.Filename,4) = ".ICO" Then
Label1.DragIcon = LoadPicture(File1.Path + "\" + File1.Filename)
If Err Then MsgBox "The icon file can't be loaded."
ElseIf State = 1 Then
Label1.DragIcon = LoadPicture () ' 使用非拖式图标。
End If
End SubPrivate Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
On Error Resume Next
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.Filename)
If Err Then MsgBox "The picture file can't be loaded."
End SubMove 方法
用以移动 MDIForm、Form 或控件。不支持命名参数。语法object.Move left, top, width, heightMove 方法的语法包含下列部分：部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。
width 可选的。单精度值，指示 object 新的宽度。
height 可选的。单精度值，指示 object 新的高度。
说明只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。对于 Frame 控件中的窗体和控件，坐标系统总是用缇 。移动屏幕上的窗体或移动 Frame 中的控件总是相对于左上角的原点 (0,0)。移动 Form 对象或 PictureBox 中的控件（或 MDIForm 对象中的 MDI 子窗体）时，则使用该容器对象的坐标系统。坐标系统或度量单位是在设计时 用 ScaleMode 属性设置。在运行时 使用 Scale 方法可以更改该坐标系统。
Move 方法示例
本示例使用 Move 方法在屏幕上移动一个窗体。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
Dim Inch, Msg ' 声明变量。
Msg = "Choose OK to resize and move this form by "
Msg = Msg & "changing the value of properties."
MsgBox Msg ' 显示信息。
Inch = 1440 ' 将英寸设置为缇。
Width = 4 * Inch ' 设置宽度。
Height = 2 * Inch ' 设置高度。
Left = 0 ' 将左边对准起点。
Top = 0 ' 将顶部对准起点。
Msg = "Now choose OK to resize and move this form "
Msg = Msg & "using the Move method."
MsgBox Msg ' 显示信息。
Move Screen.Width - 2 * Inch, Screen.Height - Inch, 2 * Inch, Inch
End SubSetFocus 方法
将焦点移至指定的控件或窗体。语法object.SetFocusobject 所在处代表对象表达式，其值是“应用于”列表中的一个对象。说明对象必须是 Form 对象、MDIForm 对象或者能够接收焦点的控件。调用 SetFocus 方法以后，任何的用户输入将指向指定的窗体或控件。焦点只能移到可视的窗体或控件。因为在窗体的 Load 事件完成前窗体或窗体上的控件是不可视的，所以如果不是在 Form_Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。如果已在设计时将 Enabled 属性设置为 False，必须在使用 SetFocus 方法使其接收焦点前将 Enabled 属性设置为 True。
Click 事件（SSTab 控件）
当用户在某个 SSTab 控件上选定了一个选项卡时，Click 事件就会发生。语法Private Sub object_Click ([index As Integer], previoustab As Integer)Click 事件的语法包含下面部分：部分 描述
object 对象表达式，其值是 SSTab 控件。
Index 整数，它唯一标识一个控件─如果该控件是在某个控件数组中的话。
previoustab 数值表达式，它标识先前为活动的选项卡。
说明用 Click 事件确定，用户在什么时候单击选项卡，使其成为活动选项卡。当某个选项卡接受 Click 事件时，它就会变成活动的选项卡，而且在设计时放置在其中的控件也就出现了。使用 previoustab 参数可检查那些更改，这些更改是在用户单击另一个选项卡时做出的。用 Tab 属性决定当前选项卡。
Click 事件（SSTab 控件）示例
在这个例子中，当用户选择了 SSTab 控件的一个不同选项卡时，就保存来自于该控件的两个选项卡的首选项信息。Private Sub sstbPrefs_Click(PreviousTab As Integer)
Dim ThisSetting As String
Select Case PreviousTab
Case 0
If optLoanLen(0) = True Then
ThisSetting = "Months"
Else
ThisSetting = "Years"
End If
SaveSetting "LoanSheet", "LoanLength", _
"Period", ThisSetting
Case 1
Dim X As Integer
For X = 0 To 3
If optPctsShown(X) = True Then
SaveSetting "LoanSheet", "InterestRate", _
"Precision", optPctsShown(X).Tag
Exit For
End If
Next X
End Select
End Sub
DblClick 事件 （ActiveX 控件）
当在一个对象上按下和释放鼠标按钮并再次按下和释放鼠标按钮时，该事件发生。对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick 事件发生。对于控件而言，DblClick 事件在以下情形下发生： 用鼠标左键双击控件。
双击 Style 属性设置为 1(Simple) 的 ComboBox 控件中的项目，或者在 FileListBox 、 ListBox 、DBCombo 或 DBList 控件中的项目。
语法Private Sub Form_DblClick ( )Private Sub object_DblClick (index As Integer)部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
index 如果控件在控件数组内，则这个 index 值就用来标识该控件。
说明如果控件在一个控件数组内，则这个 Index 参数唯一地标识这个控件。可以使用 DblClick 事件过程执行一个隐式操作，如双击图标来打开一个窗口或文档。也可用这类过程执行单一操作的多个步骤，例如用双击在列表框中选定一项并关闭对话框。要在 Visual Basic 中产生这类快捷效果，可以使用带有缺省按钮的列表框的或叠层排列文件列表框的 DblClick 事件过程；所谓缺省按钮就是 Default 属性设置为 True 的 CommandButton 控件。作为列表框 DblClick 事件过程的一部分，只需简单调用缺省按钮的 Click 事件。对于那些接收 Mouse 事件的对象，事件按这样的次序发生：MouseDown， MouseUp， Click， DblClick 和 MouseUp。如果 DblClick 在系统双击时间限制内没有出现，则对象识别另一个 Click 事件。双击时间限制可以变化，因为用户可在控制面板设置双击速度。当与这些相关事件过程打交道时，必须确保它们的活动不发生冲突。不接受 DblClick 事件的控件可能接受两次单击而不是 DblClick 事件。注意 要想区别鼠标的左、右、中按钮，使用 MouseDown 和 MouseUp 事件。如果在 Click 事件中有编码，DlbClick 事件将永远不会触发。
DragDrop 事件
在一个完整的拖放动作（即将一个控件拖动到一个对象上，并释放鼠标按钮）完成，或使用 Drag 方法，并将其 action 参数被设置为 2 (Drop) 时，该事件发生。语法Private Sub Form_DragDrop(source As Control, x As Single, y As Single)Private Sub MDIForm_DragDrop(source As Control, x As Single, y As Single)Private Sub object_DragDrop([index As Integer,]source As Control, x As Single, y As Single)DragDrop 事件语法包含下列部分：部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，用来唯一地标识一个在控件数组中的控件。
source 正在被拖动的控件。可用此参数将属性和方法包括在事件过程中 — 例如，Source.Visible = 0。
x, y 是一个指定当前鼠标指针在目标窗体或控件中水平 (x) 和垂直 (y) 位置的数字。这些坐标值通常用目标坐标系统来表示，该坐标系是通过 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性而设置的。
说明DragDrop 事件过程用来控制在一个拖动操作完成时将会发生的情况。例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。当 source 参数中可能使用多个控件时： 应使用 TypeOf 关键字和 If 语句一起确定与 source 表示的控件的类型。
应使用该控件的 Tag 属性来标识一个控件，然后使用 DragDrop 事件过程。
注意 应使用 DragMode 属性和 Drag 方法来指定开始拖动的方法。一旦开始拖动，可使用 DragOver 事件过程来处理位于 DragDrop 事件前面的事件。
DragOver 事件
它在拖放操作正在进行时发生。可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。鼠标指针的位置决定接收此事件的目标对象。语法Private Sub Form_DragOver(source As Control, x As Single, y As Single, state As Integer)Private Sub MDIForm_DragOver(source As Control, x As Single, y As Single, state As Integer)Private Sub object_DragOver([index As Integer,]source As Control, x As Single, y As Single, state As Integer)DragOver 事件语法包括下列部分：部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，用来唯一地标识一个在控件数组中的控件。
source 正在被拖动的控件。可用此参数在事件过程中引用各属性和方法—例如， Source.Visible = False。
x, y 是一个指定当前鼠标指针在目标窗体或控件中水平 (x) 和垂直 (y) 位置的数字。这些坐标值通常用目标坐标系统来表示，该坐标系是通过 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性而设置的。
state 是一个整数，它相应于一个控件的转变状态，该控件在相关目标窗体或控件中正在被拖动：
0 = 进入（源控件正被向一个目标范围内拖动）。
1 = 离去（源控件正被向一个目标范围外拖动）。
2 = 跨越（源控件在目标范围内从一个位置移到了另一位置）。
说明为了确定在拖动开始后和控件放在目标上之前发生些什么，应使用 DragOver 事件过程。例如，通过加亮目标（由代码设置 BackColor 或 ForeColor 属性）或者显示一个特定的拖动指针（由代码设置 DragIcon 或 MousePointer 属性）可验证有效的目标范围。为了确定一些关键转变点处的操作，应使用 state 参数。例如，当 state 的设置为 0（进入）时可使一个可能的目标加亮，而当 state 的设置为 1（离去）时可恢复该对象先前的外观。在 state 的设置为 0（进入）对象接收 DragOver 事件的情况： 如果源控件被放在该对象上，则该对象就接收一个 DragDrop 事件。
如果源控件没有被放在该对象上，则当 state 的设置为 1（离去）时该对象就接收另一个 DragOver 事件。
注意 应使用 DragMode 属性和 Drag 方法指定开始拖动的方式。关于 source 参数的使用技巧，请参阅 DragDrop 事件说明主题部分。
DragOver 事件示例
本例演示一种指示有效的拖放目标的方法。当一个 TextBox 控件被拖过一个 PictureBox 控件时，指针从缺省的箭头变为特定的图标。当源被拖到其它地方时，指针恢复到缺省的状态。要尝试这个例子，可将代码粘贴到一个包含 1 个小 TextBox 和一个 PictureBox 的窗体的声明部分。将 TextBox 控件的 DragMode 属性设置为 1，然后按 F5 键并把 TextBox 拖过 PictureBox。Private Sub Picture1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
Select Case State
Case vbEnter
' 装载图标。
Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO")
Case vbLeave
Source.DragIcon = LoadPicture() ' 卸载图标.
End Select
End SubPrivate Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
Source.DragIcon = LoadPicture() ' 卸载图标。
End SubGotFocus 事件
当对象获得焦点时产生该事件；获得焦点可以通过诸如 TAB 切换，或单击对象之类的用户动作，或在代码中用 SetFocus 方法改变焦点来实现。语法Private Sub Form_GotFocus( )Private Sub object_GotFocus([index As Integer])GotFocus 事件包含下列部分：部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，用来唯一地标识一个在控件数组中的控件。
说明通常，GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。例如，通过给窗体上每个控件附加一个 GotFocus 事件过程，就可以显示简要说明或状态条信息给外界提供指导。根据获取焦点控件的不同，通过使其有效、禁止或者是显示其它控件的方式，也可以提供出可视的提示。注意 一个控件仅当其 Enabled 和 Visible 属性都设置为 True 时才能接收焦点。为了移动焦点，在 Visual Basic 中要自定义键盘接口，对于窗体上的控件需设置 Tab 键顺序或指定访问键。
GotFocus 事件示例
本例在 OptionButton 组中的一个按钮得到焦点时显示一个状态栏信息。要尝试这个例子，可将代码粘贴到一个包含 2 个 OptionButton 控件和 1 个 Label 的窗体的声明部分。将两个 OptionButton 控件的 Name 属性都设置为 OptionGroup，然后按 F5 键并单击 OptionButton 控件。 Private Sub Form_Load ()
Label1.AutoSize = True
End SubPrivate Sub OptionGroup_GotFocus (Index As Integer)
Select Case Index
Case 0
Label1.Caption = "Option 1 has the focus."
Case 1
Label1.Caption = "Option 2 has the focus."
End Select
End SubPrivate Sub OptionGroup_LostFocus (Index As Integer) Label1.Caption = ""End SubKeyDown、KeyUp 事件
这些事件是当一个对象具有焦点时按下 ( KeyDown ) 或松开 ( KeyUp ) 一个键时发生的。（要解释 ANSI 字符，应使用 KeyPress 事件。）语法Private Sub Form_KeyDown(keycode As Integer, shift As Integer)Private Sub object_KeyDown([index As Integer,]keycode As Integer, shift As Integer)Private Sub Form_KeyUp(keycode As Integer, shift As Integer)Private Sub object_KeyUp([index As Integer,]keycode As Integer, shift As Integer)KeyDown 和 KeyUp 事件包括下列部分：部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 是一个整数，它用来唯一标识一个在控件数组中的控件。
keycode 是一个键代码，诸如 vbKeyF1 （ F1 键）或 vbKeyHome （ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中