vb.netof用法 vbnet using

VB.NET 泛函数 system.collections.generic.list(of textbox) 的使用问题!Public Function GetTextboxFromFrm(ByVal frm As Control) As List(Of TextBox)
Dim obj As Control
Dim listTB As New List(Of TextBox)
For Each obj In frm.Controls
If TypeOf obj Is TextBox Then
Debug.WriteLine(obj.Name" "obj.Text)
listTB.Add(obj)
Else
If obj.HasChildren Then
listTB.AddRange(GetTextboxFromFrm(obj))
End If
End If
Next
Return listTB
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'我放到按钮事件里了 , 你自己改成函数
Dim AllTextBox As List(Of TextBox)
Dim cc() As String'这个数组保存所有文本框的Text
Dim i As Integer = 0
AllTextBox = GetTextboxFromFrm(Me)
For Each tb As TextBox In AllTextBox
ReDim Preserve cc(i)
cc(i) = tb.Text
i= 1
Next
End Sub
vb.net 线程 如何动态 address of 过程,即 "过程" 是可以用户动态传送的 。过程名是不可能作为参数使用的,想必你需要调用的过程是有限的,那么可以用一个变量来确定:
sub 过程名(p as integer)
Dim i As Threading.Thread
select case p
case 1
i = New Threading.Thread(AddressOf 过程1)
case 2
i = New Threading.Thread(AddressOf 过程2)
.........................
..........................
end select
i.start()
end sub
VB.NET 中的Of是什么意思泛型参数 , 表示一种特定类型,通常用于集合List,Dictionary之类的 。
原型:Dictionary(Of TKey, TValue)
原型不能直接使用,必须给TKey, TValue指定一个类型(Type)
强类型字典:Dictionary(Of String, String)
表示键和值都为String类型的字典 。
关于VB.NET 的AddressOf 问题你好vb.netof用法,EnableDisconnectNotification、 EnableWriteNotification这两个是外部函数吧 , 是委托吗vb.netof用法?
建议使用委托可以看看下面的例子
此示例演示如何使用委托将过程传递给另一个过程 。
委托是一种类型,与任何其他类型一样可在 Visual Basic 中使用 。AddressOf 运算符如果应用到一个过程名,则返回一个委托对象 。
此示例有一个具有委托参数的过程,该委托参数可接受对另一个过程的引用,而引用则是通过 AddressOf 运算符获得的 。
创建委托和匹配过程
创建一个名为 MathOperator 的委托 。
Visual Basic
复制代码
Delegate Function MathOperator( _
ByVal x As Double, _
ByVal y As Double _
) As Double
创建一个名为 AddNumbers 的过程,其参数和返回值与 MathOperator 的参数和返回值匹配 , 以使签名匹配 。
Visual Basic
复制代码
Function AddNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return xy
End Function
创建名为 SubtractNumbers 的过程,其签名与 MathOperator 匹配 。
Visual Basic
复制代码
Function SubtractNumbers( _
ByVal x As Double, _
ByVal y As Double _
) As Double
Return x - y
End Function
创建一个名为 DelegateTest 的过程,它接受一个委托作为参数 。
此过程可接受对 AddNumbers 或 SubtactNumbers 的引用 , 这是因为它们的签名与 MathOperator 签名匹配 。
Visual Basic
复制代码
Sub DelegateTest( _
ByVal x As Double, _
ByVal op As MathOperator, _
ByVal y As Double _
)
Dim ret As Double
ret = op.Invoke(x, y) ' Call the method.
MsgBox(ret)
End Sub
创建一个名为 Test 的过程,它使用 AddNumbers 的委托作为参数调用 DelegateTest 一次,然后使用 SubtractNumbers 的委托作为参数再次调用 。
Visual Basic
复制代码
Protected Sub Test()
DelegateTest(5, AddressOf AddNumbers, 3)
DelegateTest(9, AddressOf SubtractNumbers, 3)
End Sub
调用 Test 时 , 它首先显示 AddNumbers 对 5 和 3 的操作结果,也就是 8 。然后显示 SubtractNumbers 对 9 和 3 的操作结果,也就是 6 。
创建一个名为 MySubDelegate 的委托 。
Delegate Sub MySubDelegate(ByVal x As Integer)
声明一个类,该类包含与该委托具有相同签名的方法 。
Class class1Sub Sub1(ByVal x As Integer)MsgBox("The value of x is: "CStr(x))End SubEnd Class
定义一个方法,该方法创建该委托的实例并通过调用内置的 Invoke 方法调用与该委托关联的方法 。
Protected Sub DelegateTest()Dim c1 As New class1' Create an instance of the delegate.Dim msd As MySubDelegate = AddressOf c1.Sub1' Call the method.msd.Invoke(10)End Sub
【vb.netof用法 vbnet using】关于vb.netof用法和vbnet using的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读