我知道在VB和VB.net中怎样添加动态控件,可是我添加的这些控件怎样添加相应的事件呢?

如题所述

Dim Text() As Object
Private Sub Form_Load()
Dim i As Integer
Dim nTop As Long

ReDim Text(1 To 10)
For i = 1 To 10
Set Text(i) = Controls.Add("VB.TextBox", "Text1" & CStr(i))
Text(i).Height = 300
Text(i).Top = nTop
Text(i).Visible = True
nTop = nTop + 30 * 15
Next i

End Sub
添加动态控件。你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成了10个text控件
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-10-19
我跟你遇到同样的问题,只不过我的是delphi,网上搜索好几天就是找不到!哎

vb.net给控件加事件
两种方法:1. 用WithEvents声明变量,这样你就可以像对待拖上去的控件一样操作:Public Class Form3 WithEvents btn As New Button Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load Controls.Add(btn) End Sub Private Sub btn_Click(sender As Object, ...

如何在 vb.net 为动态生成的控件添加事件并传递数据
'把图片的声明放在外面,类里面过程外面,而且要用As,不然等会儿没法用Dim myPicture As New System.Windows.Forms.PictureBox()'动态生成的控件,加一行Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadMe.Panel3.Controls.Add(myPicture)myPictur...

VB.NET 如何动态添加组件,如FileSystemWatcher,并且响应同一事件?_百度...
上面代码放到一个调用过程中 Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created ‘我用fsw的path属性区别多个分区,你用自己的代码就行,如果你没有创建FileSystemWatcher1,就把Handles FileSystemWatcher1.Created删除。If sender.path = "...

vb中怎么添加控件?
1、首先打开VB6.0,选择“标准EXE”。2、然后按下键盘上的“Ctrl+T”来选择部件。3、在其中找到“Microsoft Multimedia Control 6.0”选项。4、点击左侧的小框框来选中。5、点击对话框下部的确定按钮来完成添加。6、此时,工具箱内就会出现小部件。7、点击小部件,然后在窗体中画出小部件。8、画完...

vb 动态加载的控件,怎么激发其click事件
在通用声明区用 Dim WithEvents 声明变量。Dim WithEvents 姓名 As TextBoxPrivate Sub Form_Load() Set 姓名 = Me.Controls.Add("VB.TextBox", "姓名") 姓名.Visible = TrueEnd SubPrivate Sub 姓名_Click() MsgBox "点击了控件名为“姓名”的 TextBox "End Sub ...

VB.net怎样加第三方控件
工具箱右键单击——选择项……——选择.net组件或com组件——点击“浏览”选择控件dll文件,然后工具箱中就会出现新加的控件

VB动态控件如何触发事件
VB中可以用下面的方法动态添加Combo控件 1、在窗体中先手工添加一个 Combo1控件,设置其 Index=0 2、利用程序动态添加需要的 Combo1 控件 如:Dim x As Integer Dim y As Integer Dim i As Integer x = Combo1(0).Left y = Combo1(0).Top For i = 1 To 3 Load Com...

vb.net中定义控件数组,控件数组中加入多个按钮。怎么能在控件数组事件响...
bt.Add(Me.Button5)bt.Add(Me.Button6)bt.Add(Me.Button7)上面这段代码本人表示不懂,故没有使用。下面的代码在VS2015中运行通过:Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click Select Case CType(...

vb.net 动态生成的控件,事件也动态加,怎么做呢?
你需要的应该是反射,类似如下,我测试通过的:Imports System.ReflectionPublic Class Form1 Public Sub MMMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MMMToolStripMenuItem.Click MsgBox("menu click") End Sub '在按钮事件处理里面通过反射名称调用相应菜单事件 ...

vb如何在运行过程中动态的创建按钮,标签,文本框等对象?
添加动态按钮,及关联按钮事件的方法如下 --- ' 声明对象 Dim newButton As New System.Windows.Forms.Button ' 预设对象 With newButton .Name = [按钮控件名称].Text = [按钮显示内容].Location = New Point([x位置], [y位置]).Size = New System.Drawing.Size([控件宽], [控件高]).Fla...

相似回答
大家正在搜