module1.bas

这里有很多很实用的VB编程案例,方便大家学习VB.

Attribute VB_Name = "Module1"
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const WM_USER = &H400
Private Const TB_SETSTYLE = WM_USER + 56
Private Const TB_GETSTYLE = WM_USER + 57
Private Const TBSTYLE_FLAT = &H800
Private Const TBSTYLE_LIST = &H1000

Public Sub ToolbarStyle(tlb As Toolbar, ts As Long)
    Dim lngStyle As Long
    Dim lngResult As Long
    Dim lngHWND As Long
    lngHWND = FindWindowEx(tlb.hwnd, 0&, "ToolbarWindow32", vbNullString)
    lngStyle = SendMessage(lngHWND, TB_GETSTYLE, 0&, 0&)

    Select Case ts
    Case 1:
        '类型1
        lngStyle = lngStyle Or TBSTYLE_FLAT
    Case 2:
        '类型2
        lngStyle = lngStyle Or TBSTYLE_LIST
    End Select
    lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle)
    tlb.Refresh
End Sub