我的第一个vb例子

 上周六开始了我的第一个vb例子，迟迟不愿开始，总觉得100个例子好多，又不明白，敲了也是白敲，但是在师傅的督促下还是开始了，结果第一个就报错了。错误就出在了图3，我是直接插了两个控件，当时还在奇怪代码里怎么只对 Command1进行编辑， Command2怎么不用管呢，结果就报错了，图1是我换台电脑做的，周六的电脑里并没有这个提醒。是的 ，这是一个控件数组。Index是索引，值指向的就是第几个控件。

                                           图1                                                                                       图2

                                  图3 
Private Sub Command1_Click(Index As Integer)
If Index = 1 Then
Label1.Visible = True
Else
End
End If
End Sub

Index As Integer这个一般出现在控件数组的事件中，比如有个按钮控件数组Command1()包含三个按钮分别是Command1(0)、Command1(1)、Command1(2)，那么这个按钮控件数组的点击事件就是：

Private Sub Command1_Click(Index As Integer)
'这个时候，如果你点击的是Command1(0)，那么这里的这个Index的值就是0
'同理，如果点击的是Command1(1)，那么这里的这个Index的值就是1
'因此，根据这个Index的值，就知道你究竟点的是哪个按钮了
If Index = 0 Then
MsgBox "你点了第一个按钮"
ElseIf Index = 1 Then
MsgBox "你点了第二个按钮"
Else
MsgBox "你点了第三个按钮"
End If
End Sub

这种出错之后找到原因并解决然后还学到知识的感觉其实挺美妙的。

今天，做了一件让我哭笑不得的事情，打开vb之后，发现控件拖不动了， 各种百度，都说是点下格式里的锁定控件，我找了没锁定啊，实在没有办法了，发消息给师傅，师傅说点一下就可以。。然后，真的可以了，这里没有表情，脑补。

• 点赞
• 收藏
• 分享
• 文章举报