7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub addLabels()
For i = 1 To SSTab1.Tabs
SSTab1.Tab = i - 1
For j = 1 To 10
addLabel i, j
Next j
Next i
End Sub
Private Sub addLabel(ByVal i As Integer, ByVal j As Integer)
Me.Controls.Add "VB.Label", "label" & CStr(i) & CStr(j)
With Me("label" & CStr(i) & CStr(j))
Set .Container = SSTab1
.Top = 500 * j
.Left = 500
.Caption = "label" & CStr(i) & CStr(j)
.Visible = True
End With
End Sub
Private Sub Command1_Click()
addLabels ’用按钮调用则正常生成
End Sub
Private Sub Form_Load()
SSTab1.Tabs = 3
addlabels '在form load方法中执行则所有label都创建在sstab的第一页中
End Sub