学习vb.net

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, "Text", 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