UC知道vb在线跪求答案!!
来源：百度知道 编辑：UC知道 时间：2024/05/29 15:40:06
请先看下面的一段程序
Dim m As Integer
Private Sub Command1_Click()
If m = 0 Then m = 1
If m > 8 Then Exit Sub
m = m + 1
Load Option1(m)
Option1(0).SetFocus
Option1(m).Top = Option1(m - 1).Top + 400
Option1(m).Visible = True
Option1(m).Caption = "option" & m + 1
首先是第三行,教程上的注释是"设置全部按钮",看了好多次也不明白,有谁可以帮的解释的更好一点,还有一个是第七行,也不明白!先谢过了!~
真是谢谢你了,我编的时候原本是设计了两个选项按钮,这两个是设计时放进的,所以删不了,我现在想桌面上只留一个,可在
Option1(m).Top = Option1(m - 1).Top + 400
9控件的纵坐标 )这句上出现了错误,该怎么编好呢?
Dim m As Integer
Private Sub Command1_Click()
If m = 0 Then m = 1
If m > 8 Then Exit Sub
m = m + 1
Load Option1(m)
Option1(0).SetFocus
Option1(m).Top = Option1(m - 1).Top + 400
Option1(m).Visible = True
Option1(m).Caption = "option" & m + 1
首先是第三行,教程上的注释是"设置全部按钮",看了好多次也不明白,有谁可以帮的解释的更好一点,还有一个是第七行,也不明白!先谢过了!~
真是谢谢你了,我编的时候原本是设计了两个选项按钮,这两个是设计时放进的,所以删不了,我现在想桌面上只留一个,可在
Option1(m).Top = Option1(m - 1).Top + 400
9控件的纵坐标 )这句上出现了错误,该怎么编好呢?
这是一段在窗体自动放置Option1控件数组的程序：
If m = 0 Then m = 1 如果控件编号是0，先就他的编号为1
If m > 8 Then Exit Sub 如果控件编号大于8，不再放置
m = m + 1 自动加控件编号
Load Option1(m) 放置这个编号的控件
Option1(0).SetFocus 将焦点移动到控件0
Option1(m).Top = Option1(m - 1).Top + 400 控件的纵坐标
Option1(m).Visible = True 显示控件
Option1(m).Caption = "option" & m + 1 控件的名称