$$$$两个简单问题，抢分请进$$$$

Question

第二个问题
工具栏控件好象有个属性
可以设置是否浮动的

Answer 1

你这个控件是干什么的，怎么没听说过，或者不是通用控件，你把全名写出来
第一问题如果你使用comctl32的Toolbar可以这样
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As IntegerPrivate Declare Function SendMessage Lib "user32" Alias _
                                      "SendMessageA" _
                                     ( _
                                      ByVal hwnd As Long, _
                                      ByVal wMsg As Long, _
                                      ByVal wParam As Long, _
                                      ByVal lParam As Long _
                                     ) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias _
                                      "FindWindowExA" _
                                     ( _
                                      ByVal hWnd1 As Long, _
                                      ByVal hWnd2 As Long, _
                                      ByVal lpsz1 As String, _
                                      ByVal lpsz2 As String _
                                    ) As LongPrivate Const WM_USER = &H400
Private Const TB_SETSTYLE = WM_USER + 56
Private Const TB_GETSTYLE = WM_USER + 57
Private Const TBSTYLE_FLAT = &H800
Private Sub Form_Load()
Dim tbarHandle As Long
Dim result As Long     ' handle of the ToolBar32
     tbarHandle = FindWindowEx(Toolbar1.hwnd, 0, "ToolbarWindow32", vbNullString)    ' new style to the toolbar
      result = SendMessage(tbarHandle, TB_SETSTYLE, 0, TBSTYLE_FLAT)
      Toolbar1.RefreshEnd Sub