VB代码-颜色渐变的标题栏(国外英文资料).doc

VB代码-颜色渐变的标题栏(国外英文资料) a gradual change in the title box, in this case we can see the application skills of drawing Especially the method of realizing gradual change, it is worth our drawing lessons from It also covers techniques for dragging untitled windows Option Explicit Private IsMaximized As Boolean Private IsMinimized As Boolean Private ButtonsCount As Integer Private, Sub, Form_Paint () ReSize EndFRDrag, Me.Top, Me.Left End Sub Private, Sub, imgCloseForm_MouseDown (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) ImgCloseForm.Picture = imgCloseFormButtonDown.Picture End Sub Private, Sub, imgCloseForm_MouseUp (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) Unload, All, of, the, Forms Dim frm As Form ImgCloseForm.Picture = imgCloseFormButton.Picture For, Each, frm, In, Forms Unload FRM Next FRM End End Sub Private, Sub, imgMaximize_MouseDown (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) If IsMaximized = True Then ImgMaximize.Picture = imgNormalizeButtonDown.Picture Else ImgMaximize.Picture = imgMaximizeButtonDown.Picture End If End Sub Private, Sub, imgMaximize_MouseUp (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) If IsMaximized = False Then Me.WindowState = 2 IsMaximized = True Form_Resize ImgMaximize.Picture = imgNormalizeButton.Picture Else Me.WindowState = 0 IsMaximized = False Form_Resize ImgMaximize.Picture = imgMaximizeButton.Picture End If End Sub Private, Sub, imgMinimize_MouseDown (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) ImgMinimize.Picture = imgMinimizeButtonDown.Picture End Sub Private, Sub, imgMinimize_MouseUp (Button, As, Integer, Shift, As, Integer, x, As, Single, y, As, Single) If IsMinimized = False Then Me.WindowState = 1 IsMinimized = True Form_Resize ImgMinimize.Picture = imgMinimizeButton.Picture Else Me.WindowState = 0 IsMinimized = False Form_Resize ImgMinimize.Picture = imgMinimizeButton.Picture End If End Sub