vb使用技巧三（VB using skills three）.docVIP

vb使用技巧三（VB using skills three） Author: white Date: 99-6-3 p.m. 07:53:57 Turn the VB standard toolbar into a flat type The flat toolbar seems cool! But the VB5 provides only plain raised toolbars. Do you want to turn it into a flat surface? It doesnt seem easy. But thats not the case. Try it: 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: 4.70 or more versions of comctl32.dll support are required. -------------------------------------------------------------------------------- Display symbol in Caption As you know, the symbol is the shortcut key notation for Windows, and if you want to display it in Caption the method is simple, you can enter two symbols consecutively. If the input Save and Exit in Caption, Save Exit show. [return skills index] -------------------------------------------------------------------------------- Keep the window up all the time Many popular software has such an option: Always, on, Top. It allows the window to top and other windows not to overwrite it. We can do this in VB using the following methods: Private, Const, SWP_NOSIZE = H1 Private, Const, SWP_NOMOVE = H2 Private, Const, SWP_NO