loadpicture mit code aufheben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: loadpicture mit code aufheben
von: roland_k
Geschrieben am: 21.02.2005 09:50:43
hi guten morgen
ich habe zwei optionbutton1 und optionbutton3 in einem tabellenblatt
mit folgendem code lade ich in den button ein icon
wie kann ich das icon wieder entfernen wenn die bedingung nicht zutrifft ?

zeile = Cells(58, 2).End(xlUp).Row
For i = 11 To 45 Step 2
If zeile = i Then OptionButton1.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton1.Locked = True
Next i
For i = 12 To 45 Step 2
If zeile = i Then OptionButton2.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton2.Locked = False
Next i
wer kann mir da helfen bin mal wieder am ende mitmeiner weissheit
danke im voraus
gruss roland_k

Bild

Betrifft: AW: loadpicture mit code aufheben
von: EtoPHG
Geschrieben am: 21.02.2005 10:23:51
Hallo Roland,
OptionButton.Picture = LoadPicture("")
entfernt ein Bild.
Gruss Hansueli
Bild

Betrifft: AW: loadpicture mit code aufheben
von: roland_k
Geschrieben am: 21.02.2005 11:10:22
hm ja das geht ....aber ich bekomme das nicht in die schleife eingebaut
es wird kein bild mehr geladen
danke
gruesse roland_k
Bild

Betrifft: AW: loadpicture mit code aufheben
von: EtoPHG
Geschrieben am: 21.02.2005 13:04:01
Roland,
Etwa so ?
For i = 11 To 45 Step 2
If zeile = i Then
OptionButton1.Picture = LoadPicture("C:\icon\stopp.ico")
OptionButton1.Locked = True
Else
OptionButton1.Picture = LoadPicture("")
OptionButton1.Locked = False
end if
Next i
For i = 12 To 45 Step 2
If zeile = i Then
OptionButton2.Picture = LoadPicture("C:\icon\stopp.ico")
OptionButton2.Lockked = False
else
OptionButton2.Picture = LoadPicture("")
OptionButton2.Lockked = True
end if
Next i
Gruss Hansueli
Bild

Betrifft: AW: loadpicture mit code aufheben
von: roland_k
Geschrieben am: 21.02.2005 17:01:25
hi hansueli
irgendwas geht nicht: nach deinem code kommt das pic nicht ??
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
zeile = Cells(58, 2).End(xlUp).Row
For i = 11 To 45 Step 2
If zeile = i Then OptionButton1.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton1.Locked = True
Else
OptionButton1.Picture = LoadPicture("")
OptionButton1.Locked = False
Next i
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
habe das so geschrieben:
OptionButton1.Picture = LoadPicture("")
zeile = Cells(58, 2).End(xlUp).Row
For i = 11 To 45 Step 2
If zeile = i Then OptionButton1.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton1.Locked = True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
jetzt gehts ??
aber komischerweise lasst sich der button nicht sperren
wenn hier locked = true setzte nicht und wenn in den eigenschaften setze auch nicht ??
ev wäre beispiel ratsam...komische sache ((

danke fuer die muehe
gruss von schweizer grenze roland_k
 Bild

Beiträge aus den Excel-Beispielen zum Thema "loadpicture mit code aufheben "