SetPropertyByName?

What I need is basically this:

Code:

---

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

Simple:

In your class:

Code:

---

Private myData as Variant

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

---

That will be clsTest.
In your form:

Code:

---

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.

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

It would work in the same way!

VB Code:

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

Correct, Sas. =)

Z.

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

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

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

site? which site? *g

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

Darn, I can't read German!

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

So you quit programming then?...

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

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

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

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

Quote:

---

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.

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