Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0689: Style-Eigenschaft einer Schaltfläche zur Laufzeit ändern

VB 5/6-Tipp 0689: Style-Eigenschaft einer Schaltfläche zur Laufzeit ändern

 von Tobias Koch

Schwierigkeitsgrad:

Verwendete API-Aufrufe: GetWindowLongA (GetWindowLong), SetWindowLongA (SetWindowLong)

Download: Download des Beispielprojektes [15,28 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 Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"


' Dieser Tipp zeigt, wie man per API die Style-Eigenschaft
' eines CommandButtons (Standart / Graphisch) zur Laufzeit
' ändern kann

' By Tobias Koch
'    TobiKochFN@T-Online.de
'    www.TKSoftware.de.ms

' Actung: zur Entwicklungszeit muss die Style Eigenschaft des
' Buttons auf vbButtonGraphical (=1) stehen!

Option Explicit

'Deklaration: API-Funktionen
Private Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _
    As Long
    
Private Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

'Deklaration: API-Konstanten
Private Const GWL_STYLE As Long = -16
Private Const BS_OWNERDRAW As Long = &HB
Private Const BS_MULTILINE As Long = &H2000

Private blnIsNormalStyle As Boolean

Private Sub Command1_Click()
    ' Achtung: Der Stil des Buttons wird intern zwar geändert,
    ' die Eigenschaft "Style" jedoch nicht!
    ' aus diesem Grund kommt die Variable blnIsNormalStyle zum Einsatz
    If blnIsNormalStyle Then
        ChangeStyle Command1, True
    Else
        ChangeStyle Command1, False
    End If
End Sub

Public Function ChangeStyle(ByVal Button As CommandButton, _
    ByVal Flag As Boolean)
'   ChangeStyle:
'   Ändert die Style-Eigenschaft eines Buttons zur Laufzeit
'   Button: CommandButton, dessen Stil geändert werden soll
'   Flag: True ->  Graphischen Button erstellen
'         False -> Normalen Buton erstellen
    Dim lngOldStyle As Long
    
    ' Aktuelle Fensterstile auslesen
    lngOldStyle = GetWindowLong(Button.hwnd, GWL_STYLE)
    
    ' Stil ändern
    If Flag Then
    
        ' Graphischer Button
        lngOldStyle = lngOldStyle Or BS_OWNERDRAW And Not BS_MULTILINE
        blnIsNormalStyle = False
    Else
    
         'Normaler Button
        lngOldStyle = lngOldStyle And Not BS_OWNERDRAW Or BS_MULTILINE
        blnIsNormalStyle = True
    End If
    
    ' Neue Stile setzen
    SetWindowLong Button.hwnd, GWL_STYLE, lngOldStyle
    Button.Refresh
End Function


'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 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.