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 "