第一问答网»论坛 › 中问网 › 问答 › 请问各位这件话是什么意思？private withevents button1 ...

请问各位这件话是什么意思？private withevents button1 as system.winforms.button，有什么作用？

11 |

0 | 2006-7-10 16:05:54 | 显示全部楼层 |阅读模式

给你两种方法Option ExplicitDim oCtrl As Object'使得控件可以响应事件Dim WithEvents MyBtn As CommandButtonPrivate Sub Form_Load()Dim i As Integer
'先在窗体上加载个Label1(0)的标签控件
For i = 1 To 3
Load Me.Label1(i)
Label1(i).Top = Label1(i - 1).Top + 2 * Label1(0).Height
Label1(i).Caption = "Label1(" & i & ")"
Label1(i).Visible = True
Next
'Debug.Print Me.Label1.Count
LoadControl
LoadControlWithEventsEnd SubPrivate Sub LoadControl()
Set oCtrl = Controls.Add("VB.CommandButton", "Button1")
With oCtrl
.Caption = "不会响应事件的按钮"
.Width = 2000
.Left = 100
.Top = 200
.Visible = True '控件加载后默认为不可见，故此步骤至关重要！
End WithEnd SubPrivate Sub LoadControlWithEvents()
Set MyBtn = Controls.Add("VB.CommandButton", "Button2")
With MyBtn
.Caption = "我可以响应事件！"
.Width = 1800
.Left = 100
.Top = 700
.Visible = True
End WithEnd SubPrivate Sub MyBtn_Click()
MsgBox "我要移除动态加载的控件了！"
Me.Controls.Remove "Button1"
Me.Controls.Remove "Button2"End Sub专家提供：

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行