Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: TabStrip
anonim




Typ: Nie zarejestrowany
TabStrip

wie ktoś jak używac TabStripa?
no więc co chce wiedzieć :
- jak dodać zakładkę
- jak zrobić, że jak kliknę na "zakładka 2" to przeniesie mnie tam? i gdzie moge w edytorze edytować wygląd każdej zakładki (to co jest w środku)

02-04-2005 17:32
  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Czyli tak:

1.Zakładki dodaje się w ustawieniach Tabstripa (kliknij prawym na kontrolke)

2.W trybie Run-Time zakładki przełączane są automatycznie.

3.Zakładki Tabstripa ( w wersji MWCC 5.0) nie są kontenerami czyli nie możesz sobie do każdej zakładki dodać czego tam chcesz ale musisz zrobić to w inny sposób.

Dodajesz tyle ramek ile jest zakładek. Ponieważ ramki są kontenerami, więc możesz dodać do nich co tam chcesz


Następnie musisz wklepać kod, który spowoduje że po każdym kliknięciu zakładki pojawi się odpowiednia ramka:

Private Sub TabStrip1_Click()
Dim X As Integer

For X = 1 To TabStrip1.Tabs.Count
    If X = TabStrip1.SelectedItem.Index Then
        Frame(X).ZOrder
        Frame(X).Visible = True
    Else
        Frame(X).Visible = False
        Frame(X).ZOrder 1
    End If
Next X

End Sub


Oczywiście zeby ramki pokrywały się z Tabstripem musisz je jakoś ułożyć na formie ale najlepiej zrobić to kodem:



Call SetAfterResizing(Frame, TabStrip1.left + 10, TabStrip1.tOp + 330, TabStrip1.Width - 60, TabStrip1.Height - 380)

Public Sub SetAfterResizing(ByRef Obj As Control, ByVal left As Long, ByVal tOp As Long, Optional Width As Long, Optional Height As Long)
Obj.left = left
Obj.tOp = tOp
If Width > 0 Then Obj.Width = Width
If Height > 0 Then Obj.Height = Height
End Sub


Funkcję najlepiej wywołać w zdarzeniu Form_Resize

I Tyle

P.S. Osobiscie polecam użycie PictureBox'ów zamiast ramek ale to juz twój wybór

Pozdrawiam

[Post edytowany dnia 02-04-2005 19:39 przez DJK]


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

02-04-2005 19:37
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1