vb代碼-顏色漸變的標(biāo)題欄（VB code - color gradient title bar）

vb代碼-顏色漸變的標(biāo)題欄（VBcode-colorgradienttitlebar）'agradualchangeinthetitlebox,inthiscasewecanseetheapplicationskillsofdrawingEspeciallythemethodofrealizinggradient,itisworthustodrawlessonsfrom'italsoinvolvesdraggingtheuntitledwindowOptionExplicitPrivateIsMaximizedAsBooleanPrivateIsMinimizedAsBooleanPrivateButtonsCountAsIntegerPrivateSubForm_Paint()ReSizeEndFRDragMe.Top,Me.LeftEndSubPrivateSubimgCloseForm_MouseDown(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)ImgCloseForm.Picture=imgCloseFormButtonDown.PictureEndSubPrivateSubimgCloseForm_MouseUp(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)'UnloadAlloftheFormsDimfrmAsFormImgCloseForm.Picture=imgCloseFormButton.PictureForEachfrmInFormsUnloadFRMNextFRMEndEndSubPrivateSubimgMaximize_MouseDown(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)IfIsMaximized=TrueThenImgMaximize.Picture=imgNormalizeButtonDown.PictureElseImgMaximize.Picture=imgMaximizeButtonDown.PictureEndIfEndSubPrivateSubimgMaximize_MouseUp(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)IfIsMaximized=FalseThenMe.WindowState=2IsMaximized=TrueForm_ResizeImgMaximize.Picture=imgNormalizeButton.PictureElseMe.WindowState=0IsMaximized=FalseForm_ResizeImgMaximize.Picture=imgMaximizeButton.PictureEndIfEndSubPrivateSubimgMinimize_MouseDown(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)ImgMinimize.Picture=imgMinimizeButtonDown.PictureEndSubPrivateSubimgMinimize_MouseUp(Button,As,Shift,As,x,As,y,As,Single,Integer,Single,Integer)IfIsMinimized=FalseThenMe.WindowState=1IsMinimized=TrueForm_ResizeImgMinimize.Picture=imgMinimizeButton.PictureElseMe.WindowState=0IsMinimized=FalseForm_ResizeImgMinimize.Picture=imgMinimizeButton.PictureEndIfEndSubPrivateSubForm_Activate()IsMinimized=FalseEndSubPrivateSubForm_Load()DimframeHeightAsLongDimframeWidthAsLongMe.ScaleMode=3''computethewidthoftheleftandrightdialogframeFrameHeight=GetSystemMetrics(SM_CYDLGFRAME)*2''computethewidthofthetopandbottomdialogframeFrameWidth=GetSystemMetrics(SM_CXDLGFRAME)*2me.scalemode=1buttonscount=0如果Me.MaxButton真的那么buttonscount=buttonscount+1如果Me.MinButton真的那么buttonscount=buttonscount+2選擇案例buttonscount案例0imgmaximize可視=假。imgminimize可視=假。案例1imgminimize可視=假。案例2imgmaximize可視=假。最后選擇調(diào)整大小drawcaption我。標(biāo)題imgformicon。照片=我。圖標(biāo)端子私有子form_resize()調(diào)整大小端子私有子pictitlebar_mousedown（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）beginfrdragx，y端子私有子pictitlebar_mousemove（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）如果按鈕=1然后dofrdragx，y端子私有子pictitlebar_mouseup（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）endfrdragx，y端子私有子lblformcaption_mousedown（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）beginfrdragx，y端子私有子lblformcaption_mousemove（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）如果按鈕=1然后dofrdragx，y端子私有子lblformcaption_mouseup（按鈕為整數(shù)，轉(zhuǎn)變?yōu)檎麛?shù)，X，Y為單，單）endfrdragx，y端子列兵SubBeginFRDrag（X單，Y為單）如果ismaximized=真ExitSub如果最小化=真ExitSub將TDC設(shè)為長昏暗的SDC長暗長“轉(zhuǎn)換點(diǎn)進(jìn)行結(jié)構(gòu)X=X的觀點(diǎn)。Y=Y的觀點(diǎn)?！矮@取我的屏幕區(qū)域GetWindowRectMe.hwnd，fbox屏幕矩形我twipsperpixelx=screen.twipsperpixelxtwipsperpixely=screen.twipsperpixely“在屏幕上鼠標(biāo)點(diǎn)坐標(biāo)溫度=觀點(diǎn)ClientToScreenMe.hwnd，溫SDC=GetDC（ByVal0）drawfocusrectSDCTBoxaReleaseDC（0，SDC）oldbox=TBox端子列兵SubDoFRDrag（X單，Y為單）如果ismaximized=真ExitSub如果最小化=真ExitSub將TDC設(shè)為長昏暗的SDC長暗長tpointx=x。tpointY=y。ClientToScreenMe.hwnd，tpointTBox。左=（fbox.left+tpoint。X/TwipsPerPixelX）-溫度。X/TwipsPerPixelXTBox。=（fbox.top+tpoint。Y/twipsperpixely）-臨時(shí)Y/twipsperpixelyTBox。右=（fbox.right+tpoint。X/TwipsPerPixelX）-臨時(shí)X/TwipsPerPixelXTBox。底=（fbox.bottom+tpoint。Y/twipsperpixely）-臨時(shí)Y/twipsperpixelySDC=GetDC（ByVal0）drawfocusrectSDC，oldboxdrawfocusrectSDCTBoxaReleaseDC（0，SDC）oldbox=TBox端子列兵SubEndFRDrag（X單，Y為單）如果ismaximized=真ExitSub如果最小化=真ExitSub將TDC設(shè)為長昏暗的SDC長暗長昏暗的newleft單紐拓普作為單一暗淡SDC=GetDC（ByVal0）drawfocusrectSDC，oldboxaReleaseDC（0，SDC）newleft=x+fbox。左*twipsperpixelx-X的觀點(diǎn)。紐拓普=y+fbox。頂*twipsperpixely-Y的觀點(diǎn)。我把newleft，紐拓普。cmddummy.setfocus端子列兵SubDrawCaption（scaption字符串）lblformcaption。標(biāo)題scaption端子私有子resize()lineborder1.bordercolor=vb3dhighlightlineborder2.bordercolor=vb3dhighlightlineborder3.bordercolor=vb3dshadowlineborder4.bordercolor=vb3dshadowlineborder1.y2高度=我。lineborder2.x2寬度=我。lineborder3.x1=我寬10。lineborder3.x2=我寬10。lineborder3.y1=0lineborder3.y2高度=我。lineborder4.x1=0lineborder4.x2=我寬10。lineborder4.y1=我身高10。lineborder4.y2=我身高10。pictitlebar。寬度=我寬25。imgcloseform。左=pictitlebar。寬度imgcloseform寬度gt_spacerval。imgmaximize。左=pictitlebar。寬度imgcloseform。寬度imgmaximize寬度gt_spacerval×2。如果ButtonsCount<>2imgminimize。左=pictitlebar。寬度imgcloseform。寬度imgmaximize。寬度imgminimize寬度gt_spacerval×2。其他的imgminimize。左=pictitlebar。寬度imgcloseform。寬度imgminimize寬度gt_spacerval×2。最后如果選擇案例gt_how“ttob”makegradpictitlebar，0，gt_red，gt_green，gt_blue、-3、-3、-3“激光目標(biāo)照射器接收機(jī)”makegradpictitlebar，1，gt_red，gt_green，gt_blue、-3、-3、-3其他案件makegradpictitlebar，1，gt_red，gt_green，gt_blue、-3、-3、-3最后選擇端子模塊明確選擇公共建設(shè)gt_how=“激光目標(biāo)照射器接收機(jī)”公共建設(shè)gt_how=“ttob”價(jià)值觀是對gt_how：“ttob指定顏色黑下去“blueltor消失左到右選擇顏色“布萊克“只是取消一個(gè)你想“評論另一個(gè)標(biāo)題欄的顏色值，它們是RGB，所以每個(gè)是0到255公共建設(shè)gt_red=0”的紅色值公共建設(shè)gt_green=0”的綠色價(jià)值公共建設(shè)gt_blue=255”的藍(lán)色值不要評論下面的任何一行！?。。?！公共建設(shè)gt_spacerval=40公共型矩形左為長最長正確的時(shí)間底長端式公共類型進(jìn)行X長Y長端式公共建設(shè)color_activecaption=2公共建設(shè)sm_cxdlgframe=7公共建設(shè)sm_cydlgframe=8公共常量平面=14的平面數(shù)公共建設(shè)每=12每像素比特?cái)?shù)公開聲明函數(shù)GetWindowRectlib“user32”_（ByValhwnd為長，長為矩形lpRect）公開聲明函數(shù)GetSystemMetricslib“user32”_（ByValnIndex為長）長公開聲明函數(shù)drawfocusrect