当前位置：网站首页 > 热门文章 > 正文

VBA使用函数执行对象方法，一个不能错过的高级技能

bigegpt 2024-12-25 10:23 9 浏览

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---

r语言dim函数

上一篇：「资料」 VBA函数 vba中的函数大全
下一篇：VBA常见字典用法集锦及代码详解 vba字典的使用

VBA使用函数执行对象方法，一个不能错过的高级技能

No.1

No.2

No.3

No.4

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

Ceph运维手册(基于P版本)

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程