vb.net动态添加类,vb动态添加控件

vb.net 如何动态添加N个一样的textbox控件?(马上采纳)

自己在窗体上加一个按钮，以下是详细代码（整个类）

Public Class Form1

Private N As Integer '用来记添加要加入textbox的个数

Private PL As Integer = 10 'textbox相对于窗体的Left

Private PT As Integer = 10 'textbox相对于窗体的Top

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.AutoScroll = True '窗体自动显示滚动条

N = 10 '初始化N为10

For i = 1 To N

Dim newtextbox As New TextBox

newtextbox.Left = PL

newtextbox.Top = PT

Me.Controls.Add(newtextbox)

PT += newtextbox.Height + 10 '各 newtextbox上下间隔10-------PL不变是希望左对齐

Next

End Sub

End Class

VB.NET 如何动态添加组件，如FileSystemWatcher，并且响应同一事件？

For Each i In My.Computer.FileSystem.Drives

Dim FSW As New FileSystemWatcher

FSW.NotifyFilter = NotifyFilters.FileName

FSW.Path = i.Name.ToString

FSW.Filter = "*.txt"

AddHandler FSW.Changed, AddressOf FileSystemWatcher1_Changed '与FileSystemWatcher1_Changed事件绑定，以下同。

AddHandler FSW.Created, AddressOf FileSystemWatcher1_Created

AddHandler FSW.Deleted, AddressOf FileSystemWatcher1_Deleted

AddHandler FSW.Disposed, AddressOf FileSystemWatcher1_Disposed

AddHandler FSW.Error, AddressOf FileSystemWatcher1_Error

AddHandler FSW.Renamed, AddressOf FileSystemWatcher1_Renamed

FSW.EnableRaisingEvents = True

Next

上面代码放到一个调用过程中

Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created

‘我用fsw的path属性区别多个分区，你用自己的代码就行，如果你没有创建FileSystemWatcher1，就把Handles FileSystemWatcher1.Created删除。

If sender.path = "C:\" Then

'代码

ElseIf sender.path = "D:\" Then

'代码

ElseIf sender.path = "F:\" Then

ElseIf sender.path = "H:\" Then

'……

End If

End Sub

vb.net动态添加控件问题

你还要把过程与控件事件绑定

AddHandler 控件.事件名,addressof 事件过程

RemoveHandler 这个是取消绑定

没发现自动生存的事件过程后面还有一个Hander button1.Click之类的，这就是所谓事件句柄。反而跟过程名没关系，改成阿猫阿狗也可以。

例外也可以像 Private WithEvents obj as ControlClass 这么声明控件变量，估计像vb6那样会在下拉列表中列出事件系列。

哎呀，说了半天跑题了。 ff不存在嘛多半不是它的作用域范围内，应该把ff变量定义在类中，而不是类中的某个过程中。

最好把代码添多一点，把ff部分也添出来看看。

如何在vb.net里面动态添加控件

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

如何在VB.NET中使用动态属性

　Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。

要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。

点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。

vb.net 动态菜单如何在指定位置添加新项,并添加单击事件?

常见事件有鼠的标单击、双击、移动；

有键盘的键按下、键松开、按键；

有窗体加载、窗体卸载等等。