新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
Visual Basic .NET支持动态属性,其动态属性储存在一个应用程序配置文件中,该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。
要看动态属性的例子,首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中;确认TextBox是被选中的,然后在属性窗口中定位Dynamic属性。
点击Advanced标签旁边的省略号按钮,打开一个对话框,该对话框中列出了TextBox所有的属性,选择Text属性,键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TabControl1.TabPages.Add("aa") /添加一个选项卡
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TabControl1.TabPages.RemoveAt(2) /删除第二个的选项卡
End Sub
TabControl1.TabPages.Add("NEW")
Dim ttl As Integer = TabControl1.TabPages.Count
TabControl1.SelectedIndex = ttl - 1
添加动态按钮,及关联按钮事件的方法如下
----------------------
' 声明对象
Dim newButton As New System.Windows.Forms.Button
' 预设对象
With newButton
.Name = [按钮控件名称]
.Text = [按钮显示内容]
.Location = New Point([x位置], [y位置])
.Size = New System.Drawing.Size([控件宽], [控件高])
.FlatStyle = FlatStyle.Standard
End With
' 生成添加对象
Controls.Add(newButton)
' 相关事件链接
AddHandler newButton.Click, AddressOf myButtonHandler_Click
----------------------
若为标签,则 首行对象为System.Windows.Forms.Label
若为文本框,则 首行对象为System.Windows.Forms.TextBox
如果要处理其他事件,自己在[相关事件链接]部分添加链接就可以了
举着例子如TextBox的TextChanged事件
AddHandler newTextBox.TextChanged, AddressOf myTextBox_TextChanged
AddHandler 后为事件对象, AddressOf 后为为事件对象分配的名称
这样在处理事件是,就可以用名称操作
Private Sub myTextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
...
End Sub