VB使用技巧三.docVIP

VB使用技巧三 作者：white 日期：99-6-3 下午 07:53:57 把 VB 标准的工具栏变成平面式 平面式的工具栏好象显得很酷！但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的？这似乎很不容易。但事实并非如此，试试： BAS: Public Const WM_USER = H400 Public Const TB_SETSTYLE = WM_USER + 56 Public Const TB_GETSTYLE = WM_USER + 57 Public Const TBSTYLE_FLAT = H800 Public Declare Function SendMessageLong Lib user32 Alias SendMessageA _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Public 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 SUB: Private Sub MakeFlat() Dim style As Long Dim hToolbar As Long Dim r As Long hToolbar = FindWindowEx(Toolbar1.hwnd, 0, ToolbarWindow32, vbNullString) style = SendMessageLong(hToolbar, TB_GETSTYLE, 0, 0) If style And TBSTYLE_FLAT Then style = style Xor TBSTYLE_FLAT Else: style = style Or TBSTYLE_FLAT End If r = SendMessageLong(hToolbar, TB_SETSTYLE, 0, style) Toolbar1.Refresh End Sub 注意：需要 4.70 或其以上版本的 comctl32.dll 支持。 -------------------------------------------------------------------------------- 在 Caption 中显示 符号 大家知道， 符号是 Windows 的快捷键表示符号，如果要在 Caption 中显示 ，方法很简单，连续输入两个 符号即可。如在 Caption 中输入 Save Exit，则显示 Save Exit。 [返回技巧索引] -------------------------------------------------------------------------------- 让窗口一直在上面 很多流行软件都有这样一个选项：Always on Top。它可以让窗口在最上面，别的窗口不能覆盖它。我们在 VB 中，可以使用下面的方法来实现： Private Const SWP_NOSIZE = H1 Private Const SWP_NOMOVE = H2 Private Const SWP_NOZORDER = H4 Private Const SWP_NOREDRAW = H8 Private Const SWP_NOACTIVATE = H10 Private Const SWP_FRAMECHANGED = H20 Private Const SWP_SHOWWINDOW = H40 Private Const SWP_NOCOPYBITS = H80 Private Const SWP_NOOWNERZORDER = H200 Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER Private Const HWND_TOP = 0 Private Const HWND_BOTTOM = 1 Private Const HWND_TOPMOST = -1 Private Const HWN