锐客网

  1. 首页 > 生活百科 > it技术 > >

关于vb.net原子加的信息

IT技术newtextbox

我知道在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 = nTop30 * 15
Next i
End Sub
添加动态控件 。你可以自己试试看 。form1上什么都不加运行这个程序后会发现自动生成了10个text控件
VB.net在原数据库内容的基础上追加新字段并对新字段进行赋值ALTER TABLE TABLE_Name ADD columnName varchar(30)'新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30)'新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1)‘插入新行 ， 只给新字段赋值
如何在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
【关于vb.net原子加的信息】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原子加和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何在网吧安装服务器主机？ 网吧服务器主机怎么安装

    下一篇：拍摄课程的名称是什么，课程拍摄制作收费标准