Code: Alles auswählen
;- Constants
#RBBS_SIZEABLE = $60000
#RBBS_VERTICALRESIZEABLE = $800000
#TVS_TRACKSELECT = $200
#TVM_SETITEMHEIGHT = (#TV_FIRST+27)
#TBSTYLE_BUTTON = $0
#TBSTYLE_SEP = $1
#TBSTYLE_CHECK = $2
#TBSTYLE_GROUP = $4
#TBSTYLE_CHECKGROUP = (#TBSTYLE_GROUP | #TBSTYLE_CHECK)
#TBSTYLE_DROPDOWN = $8
#TBSTYLE_AUTOSIZE = $10
#TBSTYLE_NOPREFIX = $20
#TBSTYLE_TOOLTIPS = $100
#TBSTYLE_WRAPABLE = $200
#TBSTYLE_ALTDRAG = $400
#TBSTYLE_FLAT = $800
#TBSTYLE_LIST = $1000
#TBSTYLE_CUSTOMERASE = $2000
#TBSTYLE_REGISTERDROP = $4000
#TBSTYLE_TRANSPARENT = $8000
#TBSTYLE_EX_DRAWDDARROWS = $1
#TBSTYLE_EX_UNDOC1 = $4
#TBSTYLE_EX_MIXEDBUTTONS = $8
#TBSTYLE_EX_HIDECLIPPEDBUTTONS = $10
#TBSTYLE_EX_DOUBLEBUFFER = $80
#BTNS_BUTTON = #TBSTYLE_BUTTON
#BTNS_SEP = #TBSTYLE_SEP
#BTNS_CHECK = #TBSTYLE_CHECK
#BTNS_GROUP = #TBSTYLE_GROUP
#BTNS_CHECKGROUP = #TBSTYLE_CHECKGROUP
#BTNS_DROPDOWN = #TBSTYLE_DROPDOWN
#BTNS_AUTOSIZE = #TBSTYLE_AUTOSIZE
#BTNS_NOPREFIX = #TBSTYLE_NOPREFIX
#BTNS_SHOWTEXT = $40
#BTNS_WHOLEDROPDOWN = $80
#CCS_VERT = $80
If OpenWindow(0, 0, 0, 200, 500, "Toolbar",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
tbn = ToolBarID(CreateToolBar(#PB_Any,WindowID(0)))
SetWindowLong_(tbn,#GWL_STYLE,GetWindowLong_(tbn,#GWL_STYLE)|#WS_BORDER| #CCS_VERT )
hiilist=ImageList_Create_(16,16, #ILC_COLOR32|#ILC_MASK,0,0);
ImageList_AddIcon_(hiilist, LoadIcon_(#NUL, #IDI_ASTERISK))
SendMessage_(tbn,#TB_SETIMAGELIST,#Null,hiilist);
Global Dim tbi.TBBUTTON(1)
tbi(0)\iBitmap = 0
tbi(0)\idCommand = 0
tbi(0)\fsState = #TBSTATE_ENABLED|#TBSTATE_WRAP
tbi(0)\fsStyle = #BTNS_BUTTON
tbi(0)\dwData = 0
tbi(1)\iBitmap = 0
tbi(1)\idCommand = 1
tbi(1)\fsState = #TBSTATE_ENABLED|#TBSTATE_WRAP
tbi(1)\fsStyle = #BTNS_BUTTON
tbi(1)\dwData =0
SendMessage_(tbn, #TB_BUTTONSTRUCTSIZE, SizeOf(TBBUTTON), 0);
SendMessage_(tbn, #TB_ADDBUTTONS,2,@tbi());
Repeat
Event = WaitWindowEvent()
Until Event=#PB_Event_CloseWindow
EndIf Laut MSDN müsste das so aussehen: http://i.msdn.microsoft.com/Bb760446.TB ... .85%29.png
quote -> code ; Link escaped - Kaeru fecit
