简单vb编程问题
来源:百度知道 编辑:UC知道 时间:2024/05/07 19:46:32
已经建立一个命令按钮,两个单选按钮(名称均为Optbutton)和一个图片框
Private Sub Command1_Click()
Static maxidx
If maxidx = 0 Then maxidx = 1(问题:这句有什么用?)
maxidx = maxidx + 1
If maxidx > 7 Then Exit Sub
Load Optbutton(maxidx)
Optbutton(maxidx).Top = Optbutton(maxidx - 1).Top + 360
Optbutton(maxidx).Visible = True
End Sub
Private Sub Command1_Click()
Static maxidx
If maxidx = 0 Then maxidx = 1(问题:这句有什么用?)
maxidx = maxidx + 1
If maxidx > 7 Then Exit Sub
Load Optbutton(maxidx)
Optbutton(maxidx).Top = Optbutton(maxidx - 1).Top + 360
Optbutton(maxidx).Visible = True
End Sub
Static maxidx
If maxidx = 0 Then maxidx = 1(问题:这句有什么用?)
静态变量 maxidx 初始化(刚定义的时候为0)
因为窗体中已经建立了两个单选按钮,所以它们的索引分别为0和1.
“Static maxidx”一句声明了一个静态变量maxidx,它的初始值是0
“If maxidx = 0 Then maxidx = 1”说明窗体已经建立了两个单选按钮。
注意后面有“maxidx = maxidx + 1”,
也就是说如果maxidx = 1,那么执行该句之后它就是 2.
而你要用 Load 语句加载的第一个单选按钮的索引恰好是 2.
这样不会引发错误。