本帖最后由 happytc 于 2011-8-25 23:48 编辑
正在写实现QQ样的截图。
写得太久,头大了,代码只有四五百行时还没有问题,图标是可以显示的
现在增加到快到2000行了,结果别的都正常可用了,就是不显示图标了,得把鼠标指针划过/放在上面才显示。如下图所示。
代码现在还太乱了,估计也没有人会帮看这么长的代码,也就不上传了。
这个工具栏是子窗口
$hTopMostGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_DISABLED))
$ToolWin = GUICreate("", 250,30, 500, 300, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST), $hTopMostGUI)
$ToolBar = _GUICtrlToolbar_Create($ToolWin)
GUICtrlSetBkColor(-1, 0xE0EAF3)
$ToolImage = _GUIImageList_Create(20, 20)
For $I = 0 To 9
_GUIImageList_AddIcon($ToolImage, @ScriptDir & "\Icon.dll", $I)
Next
_GUICtrlToolbar_SetHotImageList($ToolBar, $ToolImage)
_GUICtrlToolbar_AddButton($ToolBar, $IdText, 0, 0, $BTNS_CHECKGROUP)
_GUICtrlToolbar_AddButton($ToolBar, $IdArrow, 1, 0, $BTNS_CHECKGROUP)
_GUICtrlToolbar_AddButton($ToolBar, $IdRectangle, 2, 0, $BTNS_CHECKGROUP)
_GUICtrlToolbar_AddButton($ToolBar, $IdEllipse, 3, 0, $BTNS_CHECKGROUP)
_GUICtrlToolbar_AddButton($ToolBar, $IdCurve, 4, 0, $BTNS_CHECKGROUP)
_GUICtrlToolbar_AddButtonSep($ToolBar)
_GUICtrlToolbar_AddButton($ToolBar, $IdUndo, 5)
_GUICtrlToolbar_AddButton($ToolBar, $IdExit, 6)
_GUICtrlToolbar_AddButtonSep($ToolBar)
_GUICtrlToolbar_AddButton($ToolBar, $IdCopy, 7)
_GUICtrlToolbar_AddButton($ToolBar, $IdSave, 8)
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
;--------------------
|