2 problemer: TabStrip & ComboBox

Answer to Q1:
If You have a form in tab3 then you do it as follows in the main forms On load event.

Me.formToTab3.SetFocus

TabStrip problemet, kan vel løses, i en Form_Load procedure, der sætter den aktive strip til 3?
-----
Forstår ikke helt dit andet problem!
M.V.H.
Loke

Jeg kan ikke få \"Me.formToTab3.SetFocus\" til at virke?
Har prøvet:
TabStripToTab3.SetFocus
Me.formToTabStrip.Tab3.SetFocus
Og mange andre...
Hvordan skal det skrives???

-----------------------

Mit andet problem er at jeg vil indlæse en masse data i en combobox (navn, id)

byer.AddItem Trim(objRS.Fields(\"byer\"))
byer.ItemData(byer.NewIndex) = objRS.Fields(\"byerid\")

Bagefter vil jeg gerne vælge en bestemt i ComboBoxen, feks. id nr. 320 (står midt i menuen)

Daddooo

For at vælge en side på et tabstrip skal du gøre et af følgende i Form_Load:

1) Set TabStrib1.SelectedItem = TabStrib1.Tabs(3)

2) TabStrib1.Tabs(3).Selected = 2

Personligt foretrækker jeg metode 1

Med hensyn til combo-boxen, så kan jeg ikke se anden løsning end at søge comboboxen igennem og test ItemData på hver enkelt element. Finder du det ønskede id-nr, sætter du byer.listindex lig med det fundne index på itemdata.

Hvis du har mange elementer, skal du muligvis teste ItemData via API:

Private Const CB_ERR = (-1)
Private Const CB_GETITEMDATA = &H150

Private Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub Combo_FindItemData(cb as ComboBox, p_ItemData as Long) as Long
\' Returnerer index på det element, som har p_ItemData som ItemData.
Dim Idx as long, IData as long

For Idx = 0 to cb.ListCount-1
  IData = SendMessage(cb.hWnd, CB_GETITEMDATA, Idx, 0&)
  if IData = p_ItemDate then
    \' Vi fandt den - returner index.
    Combo_FindItemData = Idx
    Exit function
  end if
next Idx
\' Når vi hertil, blev p_ItemData ikke fundet. Så returneres -1
Combo_FindItemData = CB_ERR

Glemte lige:

End Sub

Desuden: Det skal være Function og ikke Sub :-/

Tak for svarene

Perfekt med løsningen på problemmet med comboboxen

Men \"Tabstrip\" kan stadig ikke få det til at virke.

1) Set TabStrib1.SelectedItem = TabStrib1.Tabs(3)
2) TabStrib1.Tabs(3).Selected = 2

Det skal siges jeg bruger den som knapper (Tabbuttons), men jeg har prøvet at lave dem om til almindelige Tabs, og det hjælp heller ikke.

Daddo

Hvad sker der i dit TabStrib1_Click event?

Det jeg er ved at lave er en statistik.
12 knapper 1 for hver månede.
Det jeg gerne vil have er at ved Form_Load, er  at hvis vi er i 10 månede, er knap 10 nede...

Daddooo

Er dine tabs lavet designtime eller bliver de tilføjet run-time?

De er lavet i designtime

Jeg har lige prøvet. Den her virker på min computer

Private Sub Form_Load()
    Set TabStrip.SelectedItem = TabStrip.Tabs(10)
End Sub

Jeg bruger Microsoft Windows Common Controls 6.0

Du har ret, jeg har lige prøvet igen og nu virker? jeg ved ikke hvad jeg har lavet galt første gang.

Så det er rigtig godt, det var det sidste problem.

Mange tak for din hjælp..

Daddo

Jeg glemte at dig point...