Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0482: TabStrip-Control schon bei MouseDown umschalten lassen

VB 5/6-Tipp 0482: TabStrip-Control schon bei MouseDown umschalten lassen

 von Sebastian Schwarz

Schwierigkeitsgrad:

Verwendete API-Aufrufe: mouse_event

Download: Download des Beispielprojektes [3,02 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei TabStrip.vbp -------------
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX)' wird benötigt.

'------- Anfang Formular "frmMain" alias frmMain.frm  -------
' Steuerelement: Rahmensteuerelement "fraTab" (Index von 0 bis 1)
' Steuerelement: Beschriftungsfeld "lblText2" auf fraTab
' Steuerelement: Anzeige-Steuerelement "imgLight" auf fraTab
' Steuerelement: Anzeige-Steuerelement "Image1" auf fraTab
' Steuerelement: Beschriftungsfeld "lblText1" auf fraTab
' Steuerelement: Registersteuerelement "tbsMain"
'(c)2002 by Sebastian Schwarz
'mail: deepblue@amargorp.com

Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
    ByVal dx As Long, ByVal dy As Long, _
    ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Sub tbsMain_Click()
Dim i As Long
    For i = 0 To tbsMain.Tabs.Count - 1
        fraTab(i).Visible = False
    Next i
    fraTab(tbsMain.SelectedItem.Index - 1).Visible = True
End Sub

Private Sub tbsMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    'Click() Event auslösen
    mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub
'-------- Ende Formular "frmMain" alias frmMain.frm  --------
'-------------- Ende Projektdatei TabStrip.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 3 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.