会python真的可以为所欲为0(回)
352天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
762天前到处都是羊，不想上班0(回)
842天前
鸽子
0(回)
846天前Option Explicit |
Dim WithEvents cmdSayHello As CommandButton |
Dim WithEvents cmdClose As CommandButton |
Private Sub cmdClose_Click() |
Unload Me |
End Sub |
Private Sub cmdSayHello_Click() |
MsgBox "Hello world!", vbInformation, Me.Caption |
End Sub |
Private Sub Form_Load() |
Set cmdSayHello = Me.Controls.Add("VB.CommandButton", "cmdSayHello") |
With cmdSayHello |
.Left = 4000 |
.Top = 250 |
.Width = 1200 |
.Height = 350 |
.Caption = "&Say Hello" |
.Visible = True |
End With |
Set cmdClose = Me.Controls.Add("VB.CommandButton", "cmdClose") |
With cmdClose |
.Left = 4000 |
.Top = 700 |
.Width = 1200 |
.Height = 350 |
.Caption = "&Close" |
.Visible = True |
End With |
End Sub |
