VB6: Variable as Attribut/Typ deklarieren?

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe mal wieder eine Frage, die mir google nicht beantworten konnte. Ich weiß auch gar nicht ob das möglich ist, so wie ich mir das vorstelle.
Ich bekomme aus einer XML-Datei ein Control-Typ, eine Eigenschaft und einen Wert.

Zum Beispiel:

akControlTyp = "Label"
akAttribut = "AutoSize"
akValue = "True"

Jetzt wollte ich in einer Schleife alle [in diesem Fall] Labels auf AutoSize = True setzen. Aber ich weiß nicht recht, wie ich das machen soll. Ich hatte mir das im Schema so ähnlich gedacht:

Dim C as Control
Dim akControlTyp as ?ControlTyp?
Dim akAttribut as ?Attribut?

akControlTyp = Label
akAttribut = AutoSize
akValue = True

For Each C in Form1
 If TypeOf C Is akControlTyp
 C.akAttribut = akValue
 End If
Next

Ich denke, das ist alles eine Sache der Deklaration, aber vielleicht irre ich mich.

Schonmal danke für die Hilfe,
Gruß Simon

#2

Hallo Simon,

dein Vorhaben, ist so ohne weiteres leider nicht möglich. Oder mir faellt zumindest adhock spontan keine plausible lösung ein :s

Du kannst zwar deine Steuerelemente durchlaufen lassen und mit der Typename Eigenschaft das Control vergleichen.

dim c as control
for each c in me
 if lcase(typename(c))=lcase(DeinWert) then
 'Deine Aktionen
 end if
next

jedoch kannst du nicht mittels

c.deineeigenschaft\_Als\_Variable = Der\_Wert\_Als\_Variable

die Eigenschaften aendern :confused:

Das könntest du nur mittels einer Select case Zweisung machen.
Ist nen bissl unschön und sehr aufwendig, sollte aber klappen :smile:

On error resume next '

MfG Alex
#3

Hi Alex,
ich danke dir für die Antwort!
Die Zweite Schleife ist wohl wirklich etwas übertrieben, ich werde mein Vorhaben wohl etwas ändern.
Danke und Gruß, Simon

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]