Image - Picture wechseln + Variablen

[gRaf-eny]

Hier Mein Source:

HVAR = "r1z1"
VVAR = "vr1z1"
If (HVAR).FillColor = &HFF0000 Then
(VVAR).Picture = "C:\XX-kreis1blau.jpg"
ElseIf (HVAR).FillColor = &HFF& Then
(VVAR).Picture = "C:\XX-kreis1rot.jpg"
ElseIf (HVAR).FillColor = &HE0E0E0 Then
(VVAR).Picture = "C:\XX-kreis1not.jpg"
End If

Jetzt die Probleme,
1) Das mit den Variablen funktioniert gart nicht!
2) Auch ohne Variablen, funktioniert das Picture wechseln nicht!

Wie müsste derSource richtig heißen ?

 

[Shakie]

Set PicVariable = LoadPicture(Dateipfad)

Für dich also:

set VVAR.Picture = LoadPicture( "C:\XX-kreis1blau.jpg")

Aber mal 'ne Frage zwischendurch: Als was hast du "VVAR" denn definiert? Als PictureBox?

 

[gRaf-eny]

r1z1 ist eine picturebox VAR ist nur eine variable als string

'#################################### das geht
Public VAR As String
Private Sub Command1_Click()
VAR = r1z1
Set r1z1.Picture = LoadPicture("c:\XX-kreis1blau.jpg")
End Sub
'#################################### das geht nicht
Public VAR As String
Private Sub Command1_Click()
VAR = r1z1
Set VAR.Picture = LoadPicture("c:\XX-kreis1blau.jpg")
End Sub

ich möchte nämlich diesen sourch nur 1 mal schreiben, und immer nur den inhalt der variable wechsel


und sorry, mit ner picture box geht es zwar auch, aber ich wollte es mit nem Image machen, wie kann ich das image da wechseln ?

 

[Shakie]

Sorry, ohne "Set":

Me.Image1.Picture = LoadPicture("C:\Bild.gif")

Was ist ein "sourch"?
Und was meinst du mit "den Inhalt der Variable wechseln"? Welcher variable meisnt du? Die Picture-Eigentschaft des Images?

 

[gRaf-eny]

jop danke das mit dem bild geht,
aber das andere :

ok ich kann es einfach nicht erklären....

nochmal

Es gibt jetzt einfach 2 label

label1 und label 2

ich könnte jetzt schreiben:
label1.caption = "huhu"
label2.caption = "hoho"

ich will es aber mit einer variablen machen:
var1 = "label1"
~ var1.caption = "huhu"
var1 = "label2"
~var1.caption = "hoho"

verstanden ?

~so wie es da steht geht es natürlich nicht,
aber wie geht es?

 

[Shakie]

Öhm, meinst du das so?

    Dim Var1 As String
    Var1 = "huhu"

 

[gRaf-eny]

neee

ich will einfach nicht direkt das objekt ansprechen sondern über eine var!

'##### Jetzt schreibe ich in die Variable den Objektnamen:
var1 = "label1"

'#####So und nun möchte ich dem objekt ne eigenschaft zuordnen,
'##### aber halt per variablen
~ var1.caption = "huhu"

Ich möchte nicht das die variable den wert "huhu" hat sondern
das das objekt die caption "huhu" hat

 

[Shakie]

Ach sooooooo. Sag das doch gleich!

Private Sub Irgendwas()
    Dim MeinLabel As Label
    'Label von der Form der Variable vom Typ "Label" zuweisen:
    Set MeinLabel = Me.Label1
    'Jetzt kannst du das Label ansprechen:
    MeinLabel.Caption = "Ich hoffe das ist jetzt das, was du suchst."
End Sub

Wenn du noch andere Objekte ansprechen willst, wie eine TextBox usw. dann musst du halt die Variable als TextBox definieren. Wenn du mit einer Variable mal eine TextBox, mal ein Label ansprechen willst, dann kannst du die Variable auch als "Objekt" definieren:

Dim MeinObjekt As Object

Du könntest zum Beispiel auch die ganze Form in die Variable setzen:

Set MeinObjekt = Me

 

[gRaf-eny]

jo perfekt das ist es

jetzt nochmal ne frage:
das hier geht:

Private Sub TaskLabel001_Click()
Set TASK = Frame1
TASK.Show
End Sub

eine idee wie das hier gehen würde ?

Private Sub TaskLabel001_Click()
TASK001 = "Frame1"
Set TASK = TASK001
TASK.Show
End Sub

 

[Shakie]

Du musst halt "TASK001" auch schon als Objekt/Label definieren und dann:

Set TASK001 = Frame1
Set TASK = TASK001
TASK.Show