vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: TabStrip Demoprogramm 
Autor: Norbert
Datum: 16.05.02 16:33
oder so:
'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm ---------


Option Explicit

Const Max = 6

Private Sub Form_Load()
Dim x%, y%
TabStrip1.SelectedItem.Caption = "1. Reg"

For x = 2 To Max
TabStrip1.Tabs.Add , , x & ". Reg"
Next x

For x = 0 To TabStrip1.Tabs.Count - 1
If x > 0 Then
Load Frame1(x)
Load List1(x)
End If

With List1(x)
Set .Container = Frame1(x)
.Top = 300
.Left = 150
.Width = 3420
.Height = 1650

.Visible = True
For y = y To y + 20
.AddItem "List1(" & x & ") Wert:" & y
Next y
End With

Frame1(x).Visible = False
Frame1(x).Caption = "Frame1(" & x & ")"
Next x

Call TabStrip1_Click
End Sub

Sub TabStrip1_Click()
Dim x%, y%

x = TabStrip1.SelectedItem.Index
Me.Caption = x & " gewählt"

For y = 0 To Frame1.UBound
With Frame1(y)
If y + 1 = x Then
.Top = TabStrip1.Top + 420
.Left = TabStrip1.Left + 180
.Height = TabStrip1.Height - 600
.Width = TabStrip1.Width - 360
.Visible = True
.ZOrder
Else
.Visible = False
End If
End With
Next y
End Sub

Private Sub Command1_Click()
Dim x%
x = TabStrip1.SelectedItem.Index
x = x - 1
If x < 1 Then x = TabStrip1.Tabs.Count
TabStrip1.Tabs(x).Selected = True
End Sub

Private Sub Command2_Click()
Dim x%
x = TabStrip1.SelectedItem.Index
x = x + 1
If x > TabStrip1.Tabs.Count Then x = 1
TabStrip1.Tabs(x).Selected = True
End Sub
'---------- Ende Formular "Form1" alias Form1.frm ----------
' Die Komponente COMCTL32.OCX wird benötigt.
'-------------- Ende Projektdatei Projekt1.vbp --------------
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
TabStrip Demoprogramm41Jens16.05.02 15:49
Re: TabStrip Demoprogramm28Norbert16.05.02 16:30
Re: TabStrip Demoprogramm30Norbert16.05.02 16:33
Vielen dank23Jens16.05.02 16:37

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel