No.1

VBA提供了许多对象，以及对象的方法和属性，面向对象编程的优点就在于此。

利用这些内置对象可以实现各种各样的编程目的。

本节介绍一个如何执行对象方法的函数。

也就是说代码中，需要对某个对象的方法进行执行，我样可以利用如下函数来实现调用过程。

No.2

CallByName函数

此函数的功能有两个，一个是执行对象的方法，另一个是设置或调取对象的属性。

具体语法可查看下图：

使用方法也很简单，但是要在熟悉对象方法和属性的前提下。

如果对于对象的方法和属性没有一个完整的了解，那么就不能很熟练地使用此函数。

所以首先要熟悉要操作的对象和其拥有的一些基本属性。

本节中使用了两个对象，一个是按钮对象，一个是标签对象。

通过对这两个对象的"Caption"属性进行设置，实现CallByName函数的应用。

同时，使用Move方法对按钮对象的位置进行移动。

如下图所示：

No.3

单击按钮后，实现上述过程描述。

CallByName函数应用于，过程中需要改变对象属性的，或要实现对象方法的过程中。

通常情况下可能不会随意改变对象属性，如果对象属性是一个可变量，那么就可以考虑使用本函数进行设置。

No.4

代码

Private Sub CommandButton1_Click()
''' CallByName函数使用方法
Dim Cname1 As String, Cname2 As String
Dim X1 As String, X2 As String
Cname1 = "设置前"
Cname2 = "设置后"
If Me.CommandButton1.Caption = Cname2 Then
        CallByName Me.CommandButton1, "Caption", VbLet, Cname1
        '设置按钮文本
        X1 = "按钮文本： " & CallByName(Me.CommandButton1, "Caption", VbGet)
        '取按钮文本属性
        CallByName Me.Label1, "Caption", VbLet, X1
        '设置标签文本
        CallByName Me.CommandButton1, "move", VbMethod, 100, 150
        '调用Move方法
Else
        CallByName Me.CommandButton1, "Caption", VbLet, Cname2
        X2 = "按钮文本： " & CallByName(Me.CommandButton1, "Caption", VbGet)
        CallByName Me.Label1, "Caption", VbLet, X2
        CallByName Me.CommandButton1, "move", VbMethod, 100, 100
End If
End Sub

实际应用中，CallByName函数还是有很大的作用，对于提高程序的执行效率和过程的便捷性，都是一个必不可少的函数。

特别是对于数据变化量比较大的情况下，可实现动态改变对象属性，有利于表单的整洁和美观。

欢迎关注、收藏

---END---