UC知道vb 动态添加控件,突然不能添加
来源：百度知道 编辑：UC知道 时间：2024/07/04 00:04:58
我在FORM已经添加有一个cc(0)的command控件,为什么添加到第六个的时候.就不能再显示.是不是我的计算有错误.谢谢帮忙纠正.
Private Sub Command1_Click()
i = i + 1
Load cc(i)
cc(i).Caption = "cc" & i
If i = 1 Then
cc(i).Left = cc(0).Left
cc(i).Top = 150
j = 150
ElseIf i \ 6 = i / 6 Then
j = (120 + 495) * 1.2
cc(i).Left = cc(0).Left
cc(i).Top = j '120+495
Else
z = (i - 1) * 1.2
cc(i).Left = cc(0).Left + cc(1).Width * z '120+1215
cc(i).Top = j
End If
cc(i).Visible = True
Print cc(i).Caption
End Sub
我想要 1行5个按钮 每个按钮left ,top间距0.2倍按钮宽度
Private Sub Command1_Click()
i = i + 1
Load cc(i)
cc(i).Caption = "cc" & i
If i = 1 Then
cc(i).Left = cc(0).Left
cc(i).Top = 150
j = 150
ElseIf i \ 6 = i / 6 Then
j = (120 + 495) * 1.2
cc(i).Left = cc(0).Left
cc(i).Top = j '120+495
Else
z = (i - 1) * 1.2
cc(i).Left = cc(0).Left + cc(1).Width * z '120+1215
cc(i).Top = j
End If
cc(i).Visible = True
Print cc(i).Caption
End Sub
我想要 1行5个按钮 每个按钮left ,top间距0.2倍按钮宽度
可以显示的 就是显示的位置不在同一行而已
你这代码每6个就会刷到一个特定位置去
j = (120 + 495) * 1.2
cc(i).Left = cc(0).Left
cc(i).Top = j '120+495 '这样 6 12 18...都会显示到同一位置上去