Mister Burgey
Grünschnabel
moin,
bin noch neuling in sachen vba.
habe schon ein paar tuts durchgekaut...
nutze die vers 6 und habe nu n problem.
folgendes:
es sollen mehrere comboboxen angezeigt werden, die bei auswahl der menüeinträge dann automatisch eine gfx wechseln.
mit der check box funzt es schon einwandfrei, aber ich möchte 800-900 bildwechseln-möglichkeiten einbauen und danach ausdrucken. da langt der platz für eine dina 4 seite dann nicht...grrrrr
combo box ist gesetzt, die auswahlmöglichkeiten sind mit
..Private Sub Form_Load()
..cmbMasstab.AddItem "ohne Masstab"
..cmbMasstab.AddItem "Masstab 1:500"
..cmbMasstab.AddItem "Masstab 1:2500"
..End Sub
eingetragen.
die gfx liegen bereits unsichtbar mit im form, ebenso das zu wechselde bild (leer)
wie erkenne ich nun welche der oben genannten 3 möglichkeiten der nutzer ausgewählt hat?
bzw.
wie ändert man duch die auswahl automatisch das leere bild?
habe schon versucht eine if..then..else einzubauen, aber es funzt einfach nicht.
..Private Sub cmbMasstab_Click()
..If cmbMasstab.ListIndex = 0 Then imgMasstab.Picture = imgMass0.Picture
..ElseIf cmbMasstab.ListIndex = 1 Then imgMasstab.Picture = imgMass2500.Picture
..Else: imgMasstab.Picture = imgMass500.Picture
..End If
..End Sub
die fehlermeldung:
else ohne if
irgendwas mit varialbeln falsch?
sitze nun seit 2 tagen vor diesem prob, und wende mich nun VÖLLIG fertig und übermüded an euch....
kann mir da wer helfen?
THX
bin noch neuling in sachen vba.
habe schon ein paar tuts durchgekaut...
nutze die vers 6 und habe nu n problem.
folgendes:
es sollen mehrere comboboxen angezeigt werden, die bei auswahl der menüeinträge dann automatisch eine gfx wechseln.
mit der check box funzt es schon einwandfrei, aber ich möchte 800-900 bildwechseln-möglichkeiten einbauen und danach ausdrucken. da langt der platz für eine dina 4 seite dann nicht...grrrrr
combo box ist gesetzt, die auswahlmöglichkeiten sind mit
..Private Sub Form_Load()
..cmbMasstab.AddItem "ohne Masstab"
..cmbMasstab.AddItem "Masstab 1:500"
..cmbMasstab.AddItem "Masstab 1:2500"
..End Sub
eingetragen.
die gfx liegen bereits unsichtbar mit im form, ebenso das zu wechselde bild (leer)
wie erkenne ich nun welche der oben genannten 3 möglichkeiten der nutzer ausgewählt hat?
bzw.
wie ändert man duch die auswahl automatisch das leere bild?
habe schon versucht eine if..then..else einzubauen, aber es funzt einfach nicht.
..Private Sub cmbMasstab_Click()
..If cmbMasstab.ListIndex = 0 Then imgMasstab.Picture = imgMass0.Picture
..ElseIf cmbMasstab.ListIndex = 1 Then imgMasstab.Picture = imgMass2500.Picture
..Else: imgMasstab.Picture = imgMass500.Picture
..End If
..End Sub
die fehlermeldung:
else ohne if
irgendwas mit varialbeln falsch?
sitze nun seit 2 tagen vor diesem prob, und wende mich nun VÖLLIG fertig und übermüded an euch....
kann mir da wer helfen?
THX