学习vb.net

发布时间：2020-12-16 22:25:38 所属栏目：大数据来源：网络整理

导读：1.with...end with With Button1 .Text = "ok" .Visible = True .Top = 200End With 2.获得对象类型(或者说属于哪个类) If Typeof(myForm) Is Form Then 'Typeof 后面只能接is,看来只能用在if语句中End IfTypeName(myForm) As String '可以用在任何位置 3.Cal

1.with...end with

With Button1
    .Text = "ok"
    .Visible = True
    .Top = 200
End With

2.获得对象类型(或者说属于哪个类)

If Typeof(myForm) Is Form Then
    'Typeof 后面只能接is,看来只能用在if语句中
End If

TypeName(myForm) As String '可以用在任何位置

3.CallByName 函数执行对象的方法，或者设置或返回对象的属性。智能设备不支持此函数.

Public Function CallByName( _
   ByVal ObjectRef As System.Object,_
   ByVal ProcName As String,_
   ByVal UseCallType As CallType,_
   ByVal Args() As Object _
) As Object

第一个参数ObjectRef表示要操作的对象.第二个参数ProcName表示要操作的方法、属性或者过程名称的字符表示.第三个参数UseCallType是一个常数选项,CallType枚举类型的枚举成员,当操作是一个方法时,值是vbMethod;当被操作的是设置属性时,值是vbLet;得到属性时,值是vbGet;设置对象属性的值时,值是vbSet.第四个参数Args是可选的ParamArray,参数数组，包含要传递给所调用的属性和方法的参数。

Imports Microsoft.VisualBasic.CallType

'在下面的示例中，第一行使用 CallByName 设置文本框的 Text 属性，第二行检索 Text 属性的值，第三行调用 Move 方法以移动文本框。
Sub TestCallByName1()
    'Set a property.
    CallByName(TextBox1,"Text",CallType.Set,"New Text")

    'Retrieve the value of a property.
    MsgBox(CallByName(TextBox1,CallType.Get))

    'Call a method.
    CallByName(TextBox1,"Hide",CallType.Method)

'下一个示例使用 CallByName 函数调用集合对象的 Add 和 Item 方法。
Public Sub TestCallByName2()
    Dim col As New Collection()

    'Store the string "Item One" in a collection by 
    'calling the Add method.
    CallByName(col,"Add",CallType.Method,"Item One")

    'Retrieve the first entry from the collection using the 
    'Item property and display it using MsgBox().
    MsgBox(CallByName(col,"Item",CallType.Get,1))
End Sub

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!