获取控件属性VB6

Posted 2021-04-17

我试图改变VB6代码中的一些逻辑，我需要通过属性名来获取控件属性。类似于Access control.properties属性的东西。

Dim propertyName as string 
propertyName ="Visible"
Me.Controls("mnuRepots").Properties(propertyName)="True"

但是我的VB6说Object不支持这个属性或方法

答案

要根据动态名称执行方法或设置或获取属性，可以使用CallByName function，如下所示：

CallByName mnuReports, "Visible", vbLet, True

请注意，通过使用polymorphism或更简单的Select Case语句，在不同情况下调用不同代码几乎总是更好的方法。动态加载代码会使代码更难以阅读，并且（如果您从不受信任的来源获取任何输入）是一个简单的地方搞砸并允许人们调用不是您打算调用的方法，导致安全漏洞。