With Button1 .Text = "ok" .Visible = True .Top = 200 End With2.获得对象类型(或者说属于哪个类)
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
原文地址:https://www.jb51.cc/vb/259759.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。