Tag: 类的用户

运行时创build的命令button代码不起作用

我需要创build将在运行时创build的CommandButton的代码。 这个命令button是dynamic的，因为它基于用户数据。 User_From代码 Private Sub UserForm_Activate() Dim ctlTXT As Control For RevNo = 1 To RevCounter Set ctlTXT = Me.Controls.Add("Forms.CommandButton.1") ctlTXT.name = RevNo ctlTXT.Caption = Sheet4.Range("D" & RevNo + 4).value ctlTXT.Left = 18 ctlTXT.Height = 18: ctlTXT.Width = 72 ctlTXT.Top = 15 + ((RevNo – 1) * 25) Next Me.Height = (RevNo * 17) + […]