ToolBarSeparator

ToolBarSeparator

ToolBarSeparator(hwndToolBar , IndexButton )

Разделитель.

hwndToolBar - ID тулбара (может быть получен с помощью CreateToolBar)

IndexButton - Место вставки (по умолчанию вставляется в конец) 

Пример:

#Include "window9.bi"

Dim As Integer hwToolBar
Dim sArray(42) As String

Var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,TBSTYLE_WRAPABLE Or TBSTYLE_FLAT Or 256)

For m As Integer=0 To 42
       If m=10 Or m=21 Or m=32 Or m=34 Then
               ToolBarSeparator(hwToolBar,-1)
       Else
               ToolBarImageButton(hwToolBar,m+1,CInt(Extract_Icon(GetSystemDir & "\SetupAPI.dll",m+1,&hf0f0f0)),,,,6,32)
               sArray(m) = "button " & Str(m+1)
               ToolBarToolTip(hwnd,m+1,sArray(m))
       EndIf
Next

Do
       Var ev=WaitEvent
       If ev=EventClose Then
               End
       ElseIf ev=EventGadget Then
               Select Case EventNumberToolBar
                       Case 1 To 46
                               MessBox("","Кнопка с номером  " & EventNumberToolBar)
               End Select
       EndIf
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents