易語言如何通過API創建工具條？

.支持庫?const

.子程序?CreateSimpleToolbar,?整數型

.參數?hWndParent

.局部變量?ImageListID

.局部變量?numButtons

.局部變量?bitmapSize

.局部變量?buttonStyles

.局部變量?hWndToolbar

.局部變量?tbButtons,?TBBUTTON,?,?"15"

.局部變量?i,?整數型

.局部變量?ButtonString,?文本型,?,?"15"

'?Declare?and?initialize?local?constants.

ImageListID?＝?0

numButtons?＝?15

bitmapSize?＝?16

buttonStyles?＝?#BTNS_AUTOSIZE

'?Create?the?toolbar

hWndToolbar?＝?CreateWindowEx?(0,?#TOOLBARCLASSNAME,?字符?(0),?位或?(#WS_CHILD,?#TBSTYLE_WRAPABLE),?0,?0,?0,?0,?hWndParent,?0,?0,?0)

.如果真?(hWndToolbar?＝?0)

返回?(0)

.如果真結束

'?Create?the?image?list.

g_hImageList?＝?ImageList_Create?(bitmapSize,?bitmapSize,?位或?(#ILC_COLOR16,?#ILC_MASK),?numButtons,?0)

.如果真?(g_hImageList?＝?0)

返回?(0)

.如果真結束

'?Dimensions?of?individual?bitmaps.

'?Ensures?transparent?background.

'?Set?the?image?list.

SendMessage?(hWndToolbar,?#TB_SETIMAGELIST,?ImageListID,?g_hImageList)

'?Load?the?button?images.

SendMessage?(hWndToolbar,?#TB_LOADIMAGES,?#IDB_STD_SMALL_COLOR,?#HINST_COMMCTRL)

'?Initialize?button?info.

'?IDM_NEW,?IDM_OPEN,?and?IDM_SAVE?are?application-defined?command?constants.

ButtonString?＝?{?“剪切”,?“復制”,?“粘貼”,?“重復”,?“撤銷”,?“刪除”,?“新建”,?“打開”,?“保存”,?“搜尋”,?“屬性”,?“幫助”,?“查找”,?“更新”,?“打印”?}

.變量循環首?(0,?14,?1,?i)

tbButtons?[i?＋?1].iBitmap?＝?合並整數?(i,?ImageListID)

tbButtons?[i?＋?1].idCommand?＝?#IDM_NEW?＋?i

tbButtons?[i?＋?1].fsState?＝?選擇?(i?＝?取隨機數?(1,?15),?#TBSTATE_INDETERMINATE,?#TBSTATE_ENABLED)?'?#TBSTATE_ENABLED

tbButtons?[i?＋?1].fsStyle?＝?buttonStyles

tbButtons?[i?＋?1].iString?＝?lstrcpyn_string?(ButtonString?[i?＋?1],?0,?0)

.變量循環尾?()

'?Add?buttons.

SendMessage?(hWndToolbar,?#TB_BUTTONSTRUCTSIZE,?20,?0)

SendMessage_tbbutton?(hWndToolbar,?#TB_ADDBUTTONS,?numButtons,?tbButtons)

'?Resize?the?toolbar,?and?then?show?it.

SendMessage?(hWndToolbar,?#TB_AUTOSIZE,?0,?0)

ShowWindow?(hWndToolbar,?真)

返回?(hWndToolbar)