Visual Basic Forum

Pyroman_ · Newbie Anmeldedatum: 19.06.2007 Beiträge: 13

Hallo,
Ich habe ein Programm welches wie eine Homepage aufgebaut sein soll.
D.h Links eine Navigationsleiste und der Rest ein sich immer anpassender Arbeitsbereich., je nach geklicktem Menüpunkt .

Das arbeiten mit Tabs will ich aber vermeiden ( kein MS tabbed Diealog etc. )

Ich hab jetzt mehrere Frames übereinander gelegt und hatte mir es so gedacht ,man könnte per Klick auf den jeweiligen Navigationspunkt sich da durch "blättern" mit Hilfe von ZOrder.
Leider will dies erstens nicht so recht klappen , und zweitens wäre das bei ca 10 Frames auch imense Schreibartbeit Smile

[vb:1:7e68494d94]
Private Sub LstOptions_Click()
Select Case (LstOptions.Text)
Case "Einkommen"
frmAusgaben.ZOrder (1)
frmBierkasse.ZOrder (1)
'...
'....
frmEinkommen.ZOrder (0)

End Select
End Sub
[/vb:1:7e68494d94]
Das könnte man vllt. aber auch mit einer Schleife machen.

Hat vllt. jemand eine Lösung oder Vorschläge ? Ich hoffe ihr wisst was gemeint ist.
Wie so eine kleine Homepage halt . Ein navigationsframe und ein Hauptframe .

Danke
mfg.

Viktor · Verfasst am: 03.10.2007, 11:59

Du musst alle Frames im Contentbereich ausblenden, bis auf den den du angezeigt habenn willst.
Klickst du auf den nächsten Menüpunkt musst du wieder alle ausblenden bis auf den den du anziegen willst.

Ausblenden und Einblenden kannst du mit der ".visible" Eigenschaft.

Pyroman_ · Newbie Anmeldedatum: 19.06.2007 Beiträge: 13

Danke,
ich weiß garnicht warum ich ZOrder der .Visible Eigenschaft vorgezogen hab Confused

[vb:1:33e761eafd]
Private Sub LstOptions_Click()
Dim i as Integer
For i = 0 to Me.frmOptions.Count -1
frmOptions(i).visible = False
Next i
Select case (lstOptions.Text)
Case "Ausgaben"
frmOptions(0).visible = True
Case "XXX"
frmOptions(1).visible = True
'...
'...
End select
End sub
[/vb:1:33e761eafd]

So hab ich es dann vor. frmOptions ist dann eine Steuerelementengruppe

Ich denke so wird es klappen

Danke
Mfg.