VB.NET中如何动态创建控件

Option Explicit

专注于为中小企业提供网站建设、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业信阳免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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 的sub main()

Module Module1

Public form1 As form

Public Sub main()

form1 = New Form

form1.Show()

End Sub

End Module

VB.NET Public Sub 窗体 互相传值

Public Sub checkInjectionWithNoKeyword()

Dim injection_Type As String = My.Forms.SqlInjection.ComboBox_Type.Text.Trim()

Dim my_checkUrl As String = My.Forms.SqlInjection.ComboBox_Url.Text.Trim()

end sub

这个改成放在窗体内就行了，我也有遇到同样的问题，最后只好放窗体里才能实现。

网上找的什么委托都是不行的。

VB.Net Sub Main 的问题

看你的意思，你是不是想问怎么在VB.NET中获取命令行参数？如果是这样，很简单，在Vb.NET中，利用System.Environment.GetCommandLineArgs函数返回一组系统传送的启动参数。

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Dim myArg() As String, i As Integer

myArg = System.Environment.GetCommandLineArgs

If myArg.Length 0 Then

For i = 1 To UBound(myArg)

MsgBox(myArg(i).ToString)

Next

End If

End Sub

假设你的程序编译为A.EXE，运行时用 A.EXE /a /s /pt 带参数运行，则用上述代码，可分别显示/a /s /pt

c# 或vb.net Sub过程中定义传递参数

使用可选参数,(以C#4.0为例)

static int plus(int a,int b, int c=0)

{

return a+b+c;

}

当前文章：vb.net中的sub VBNET中的sendere和handles
分享URL：http://pwwzsj.com/article/docedio.html