上一页 1 2 3 4 设置工具栏为新的样式
Private Sub SetToolbar(tBar As Toolbar)
Dim lngResult As Long
Dim lngHWND As Long
Dim lngStyle As Long |
得到Toolbar的句柄
| lngHWND = FindWindowEx(tBar.hwnd, 0&, "ToolbarWindow32", vbNullString) |
得到原有的Toolbar的样式
| lngStyle = SendMessage(lngHWND, TB_GETSTYLE, 0&, 0&) |
设置一个图形在上、文字在下的平面工具栏
| lngStyle = lngStyle Or TBSTYLE_FLAT |
用API函数实现工具栏的新样式
| lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle) |
刷新工具栏
tBar.Refresh
End Sub
Private Sub exitfile_Click()
Unload Me
End Sub
Private Sub Form_Load() |
调用函数改变工具栏
Call SetToolbar(Me.Toolbar1)
End Sub | 上一页 1 2 3 4 |
