intCMD = intCMD + 1
Load Me.Command1(intCMD)
Me.Command1(intCMD).Caption = "我是按钮" + CStr(intCMD)
Me.Command1(intCMD).Top = Me.Height / 2 + intCMD
Me.Command1(intCMD).Left = Me.Width / 2 + intCMD
Me.Command1(intCMD).Visible = True
intCMD = Me.Command1.UBound
Debug.Print intCMD
VB动态加载数组控件
最新推荐文章于 2021-06-02 16:17:40 发布