🚀 go-pugleaf

Verhaeghe Pieter wrote:
 
> Hoe kan ik objecten (zoals ListBox, ComboBox, ...) invoegen op een TabStrip
> (tabblad) in Visual Basic?
> Hoe moet ik dan de verschillende tabbladen selekteren?

De truuk is dat je een aantal frames (een control-array!) definieert die
mekaar netjes overlappen binnen de Tab-control. (in de ontwikkelfaze zet
je die natuurlijk even uit mekaar). Elke frame (waarvan de border
uiteraard onzichtbaar kan zijn in de run-faze - ik hou het graag
zichtbaar, zet ze in de load-faze onzichtbaar) laat je overeenkomen met
1 tabbetje in de tab-control. Frame(0) komt overeen met het eerste
tabbetje, frame(1) met het tweede, enz...

*Binnen* die frames zet je dan al je controls en schermelementen. De
frame werkt als container, als je die dus zicht- of onzichtbaar zet,
worden alle controls en elementen erin ook meteen zicht/onzichtbaar. Je
weet toch hoe je een control binnen een frame/container brengt? (ikzelf
definieer hem vlug op de form, selekteer hem, dan knippen (ctrlx), dan
de container/frame aanklikken, en plakken (ctrlv).

Bij elk tabclick-event ga je nu de overeenkomstige frame zichtbaar
zetten, en alle andere onzichtbaar. Heb je bvb. 5 tabs, dan zet je bij
een klik op het tweede tabbetje frame(0),frame(2,3,4) onzichtbaar, en
frame(1) zichtbaar.

------------
' Per design zijn alle frames(0..NumberOfFrames-1) onzichtbaar... (naam
= TabFrame)

Dim mintCurFrame As Integer
Const NumberOfFrames = 7

Private Sub Form_Load()
  Dim I As Integer, H as Long
  '
  mintCurFrame = 0 ' (ofwel terug te halen uit de INI file of registry
(laatste waarde)
                   ' (je zet dan uiteraard bij de form_unload deze
waarde terug in de registry/ini)
  TabFrame(mintCurFrame).Visible = True
  For I = 0 To NumberOfFrames - 1
    TabFrame(I).Caption = "": TabFrame(I).BorderStyle = 0
    TabFrame(I).Left = (TabStrip1.Width - TabFrame(I).Width) / 2
    TabFrame(I).Top = TabFrame(0).Top
  Next I
End Sub

Private Sub TabStrip1_Click()
  Dim I As Integer, L As Long
  I = TabStrip1.SelectedItem.Index - 1
  If I = mintCurFrame Then Exit Sub
  TabFrame(I).Visible = True
  If mintCurFrame >= 0 Then TabFrame(mintCurFrame).Visible = False
  mintCurFrame = I
End Sub


Succes,
Hugo Maes