1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
deansroom 2005-12-22
- 打赏
- 举报
多谢
上官云峰 2005-12-22
- 打赏
- 举报
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
你试试
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
你试试
