Auto Bildwechsel bei ComboBox

[Mister Burgey]

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

 

[Daniel Toplak]

Also du kannst die Eigenschatf .Picture bei einer ImageBox oder einer PictureBox zur Laufzeit nur mit der Methoder LoadPicture verändern:

Zitat aus der MSDN

Lädt eine Grafik in die Picture-Eigenschaft einer Formulars, eines Bildfeld-Steuerelement (PictureBox ) oder eines Anzeige-Steuerelement (Image).

Gruss Homer

 

[Mister Burgey]

Bildwechsel

high

leider ist aus meiner version diese msdn nicht mit bei. muß mich da auf die vb-referenz verlassen und werde das mal durchtesten.

das mit dem load.picture

werde mich da mal einlesen

thx für den tipp
melde mich wieder, wenn der frust wieder kommt

 

[Daniel Toplak]

Also hier nochmal ein Auszug aus der MSDN:

Syntax

LoadPicture([Dateiname], [Größe], [Farbtiefe],[x,y])

Beispiel:

Set imgMasstab.Picture = LoadPicture("c:\bild.bmp")

Gruss Homer

 

[Mister Burgey]

hmmmmmmmmmm

alles klar...

ich muß mir diese msdn wohl dringend besorgen. kann mir wer da helfen?

zum eigentlichen prob:
ok, ist einsichtig. wie aber bekomme ich unterschiedliche bildwechsel hin, wenn der user sich aus der combo box verschiedene masstäbe aussuchen kann?

if then else?
kann mir wer die hilfe der msdn für if...then...else mit hier rein posten?
THX
--funzt bei mir nicht....
--fehler. if ohne else?!?!?!

natürlich sollen sich mach dem auswählen des masstabes 1:2500 auch insgesammt 4 bilder in das 1:2500er bild verändert werden

(ausdrucken tut ers mir schon.....ufffffffffz)



das wars dann erst mal, jetzt gehe ich in die kiste pennen.....
kann den kaffee nicht mehr sehen, kippen sind alle, augen sind rot und geschwollen, aber sonst gehts mit gut
die sonne scheint nun aber schon heftig....

 

[VBnewbie]

else ohne if

mal abgesehen von dem Doppelpunkt hinter else sieht das eigentlich ganz passend aus.


Syntax

If Bedingung Then [Anweisungen] [Else elseAnweisungen]

Alternativ können Sie die Block-Syntax verwenden:

If Bedingung Then
[Anweisungen]
[ElseIf Bedingung-n Then
[elseifAnweisungen] ...
[Else
[elseAnweisungen]]
End If

hoffe es bringt was

 

[Grimreaper]

Die MSDN ist soviel ich weiß auch online abrufbar, schau mal auf die Website von Microsoft.

mfg Grimreaper