Using EVALUATE to get Userform Control Property Value.

[HighAndWilder]

Hi

I am trying to get the property value of a UserForm Control but using the Control Name and the Property stored
in string variables.

I loop through all Controls on the form and a list of properties for each Control Type and use the last line of code to
assign the property value to the varValue variable. The first six lines of code just support the last line for
demonstration purposes.

Dim strProperty As String
Dim strControlName As String
Dim q As String

q = Chr(34)
strProperty = "Left"
strControlName = "cmdCommandButton"

Evaluate ("varValue = Me.Controls(" & q & strControlName & q & ")." & strProperty)

The value of the property is not assigned to the variable varValue but no error is generated.

Does anybody know what I am doing wrong or can suggest another way to achieve what I want to do.

Thanks

HighAndWild

 

[mikerickson]

If you have the control (as an Object) and the property (as a string), you can use the CallByName function to get an object's property value

Dim oneControl as Object
Dim varValue as Variant

Set oneControl = Userform1.Controls("cmdCommandButton")

varValue = CallByName(oneControl, "Left", vbGet)

MsgBox varValue

The Evaluate method is only for strings that would be valid worksheet formulas.

 

[HighAndWilder]

Thanks a lot Mike

All part of the long learning curve.

Another project nearly completed now.

HighAndWilder