[转载]在VB中动态添加控件

本文介绍了如何使用VB.NET在窗体上动态添加多个控件,并确保其中一个控件能够响应点击事件。通过代码实现,演示了控件的加载、属性设置及事件处理的基本操作。

代码如下:

主要功能是在FORM上动态添加一个或多个控件。

 1 Option Explicit
 2 Dim oCtrl As Object
 3 '使得控件可以响应事件
 4 Dim WithEvents MyBtn As CommandButton
 5 Private Sub Form_Load()
 6 Dim i As Integer
 7     '先在窗体上加载个Label1(0)的标签控件
 8     For i = 1 To 3
 9         Load Me.Label1(i)
10         Label1(i).Top = Label1(i - 1).Top + 2 * Label1(0).Height
11         Label1(i).Caption = "Label1(" & i & ")"
12         Label1(i).Visible = True
13     Next
14     'Debug.Print Me.Label1.Count
15     LoadControl
16     LoadControlWithEvents
17 End Sub
18 Private Sub LoadControl()
19     Set oCtrl = Controls.Add("VB.CommandButton", "Button1")
20     With oCtrl
21         .Caption = "不会响应事件的按钮"
22         .Width = 2000
23         .Left = 100
24         .Top = 200
25         .Visible = True '控件加载后默认为不可见,故此步骤至关重要!
26     End With
27 End Sub
28 Private Sub LoadControlWithEvents()
29     Set MyBtn = Controls.Add("VB.CommandButton", "Button2")
30     With MyBtn
31         .Caption = "我可以响应事件!"
32         .Width = 1800
33         .Left = 100
34         .Top = 700
35         .Visible = True
36     End With
37 End Sub
38 Private Sub MyBtn_Click()
39     MsgBox "我要移除动态加载的控件了!"
40     Me.Controls.Remove "Button1"
41     Me.Controls.Remove "Button2"
42 End Sub

引自:百度知道-http://zhidao.baidu.com/question/5248806.html&__bd_tkn__=6fbc413b2a218731570caa66aeac19fe880c91fa8078338d51fed8133ea5c69d362ad36bb4bcda3b39bb3949f6bbe47087ac3af56e60b1f4e7eb60157d5ef93a9567afe6065506c64a7e3108d146ba0f3a70ee030f59c3fed43d40740029445fca170e4649c7d8d9e919fdb9cfde800ec9342bf0

转载于:https://www.cnblogs.com/aocshallo/archive/2012/11/03/2753056.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值