Question

vb,单击cmd控件组，label1的caption就显示cmd 的caption属性怎么写这个代码

Private Sub Command1_Click(Index As Integer)
Label1.Caption = Command1(i).Caption ‘这样是错咯。因为我每个cmd都不同的caption
End Sub

Answer 1

Private Sub Command1_Click(Index As Integer) '这里的Index就是你点的那个cmd的编号
Label1.Caption = Command1(Index).Caption
End Sub