vb使用技巧三（Three skills of VB）.docVIP

vb使用技巧三（Three skills of VB） Author: white Date: 99-6-3 07:53:57 PM The VB standard toolbar into plane type Flat toolbar seemed very cool! But VB5 only provides a common convex toolbar. If you want to turn it into a plane? Its not easy. But that is not the case: 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 Note: you need 4.70 or more versions of the comctl32.dll support. -------------------------------------------------------------------------------- Display symbols in Caption As we all know, symbol is the shortcut Windows symbols, if you want to display in Caption, the method is very simple, continuous input two symbols will be. If the input Save and Exit in Caption, Save Exit show. [return] skill index -------------------------------------------------------------------------------- Let the window always on top Many popular software has such an option: Always on Top. It can make the window at the top, the other window will not cover it. Were in the VB, you can use the following approach to achieve: Private Const SWP_NOSIZE = H1 Private Const SWP_NOMOVE = H2 Private Const SWP_NOZORDER = H4 Private Const SWP_NOREDRAW = H8 Private Const SWP_N