SetPropertyByName?

[Fox]

What I need is basically this:

Sub ApplyProperty(iObject As Object, iName As String, iValue As Variant)
    With iObject
        Select Case LCase(iName)
        Case "x": .Left = CLng(iValue)
        Case "y": .Top = CLng(iValue)
        Case "w": .Width = CLng(iValue)
        Case "h": .Height = CLng(iValue)
        
        Case "text": .Text = CStr(iValue)
        Case "caption": .Caption = CStr(iValue)
        End Select
    End With
End Sub

'Code improved by vBulletin Tool 2.0

I'm sure you know what I mean.. now is there a direct way to do this? Something like a CallByName function for properties?

Thanks,

Fox

[Zaei]

Simple:

In your class:

Private myData as Variant

Public Property Let Data(dat as Variant)
   myData = dat
End Property

That will be clsTest.
In your form:

Private x as clsTest

Private Sub Form_Load()
   CallByName x, "Data", vbLet, 33
End Sub

You can use CallByName, because Properties ARE functions in disguise.

Z.

[Fox]

I know that, sorry I didn't mentioned I want to set properties of the existing controls (TextBox, Label, aso.)

[Sastraxi]

It would work in the same way!

Sub ApplyProperty(iObject As Object, iName As String, iValue As Variant)
    CallByName iObject, iName, vbLet, iValue
End Sub

[Zaei]

Correct, Sas. =)

Z.

[Jotaf98]

Yeah if it wasn't for that function, my scripting language would have taken twice the time to develop, and would probably be a lot less organized

Hey Fox, when are you goint to update your site?

[Fox]

ah right, must be my mistake when I tried that and got an error

site? which site? *g

well i'm working on my personal site ATM, ever visited http://fox.acky.net/ again?

[Sastraxi]

Darn, I can't read German!

[Jotaf98]

I can read it, I just don't understand it (lame joke)

So you quit programming then?...

[Fox]

sure not see the Visual Basic link in the top-framed menu?

My whole old site is now a part of the new one, you can directly access it here:

http://fox.acky.net/vb/

you know.. once a programmer - always a porgrammer

[Jotaf98]

You mean, a poor-grammar? (Sorry, another lame joke hehe )

But it doesn't have anything new, does it? Weren't you working on a game or something?

[Fox]

no nothing new

im still working on that game, that's another cause why I don't update the site anymore.. just have no time (a wonder I was able to get the private site up )

[vcv]

Yeah if it wasn't for that function, my scripting language would have taken twice the time to develop, and would probably be a lot less organized

Ah, I know what you mean. That function sure saved a hell of a lot of time.

[Jotaf98]

Yeah. And if your game uses classes, it can easily access the properties of each unit, the map, etc