¡¾VB¿ªÔ´´úÂëÀ¸Ä¿ÌáÐÑ¡¿£ºÍøѧ»áÔ±,¼øÓÚ´ó¼Ò¶ÔVB¿ªÔ´´úÂëÊ®·Ö¹Ø×¢£¬ÂÛÎÄ»áÔ±ÔÚ´ËΪ´ó¼ÒËѼ¯ÕûÀíÁË¡°Wince5 0ÏÂʵÏÖXP·ç¸ñµÄ¿ªÊ¼²Ëµ¥Ô´Â루VB net±àÂëʵÏÖ£© - ¼¼Êõ×ܽᡱһÎÄ£¬¹©´ó¼Ò²Î¿¼Ñ§Ï°!

Èç¹ûÏëѧ×Ô¶¨Òå¿Ø¼þ¼°×Ô¼ºÐ´Ê¼þºÍ°ó¶¨Ê¼þ´¦Àí¹ý³ÌÇë×ÐϸÔĶÁÔ´Âë´ËÔ´ÂëÊô100Ô­´´×ñÑ­GPLЭÒ鵫²»ÏÞÓÚGPL±¾È˸øÓ踴ÖÆ´´ÐÂÕßÒÔÓÃÓÚÉÌÒµÈí¼þµÄȨÁ¦µ«¸´ÖÆ´´ÐÂÕ߶ÔÓÚ±¾Ô´ÂëʵÏÖ¹¦ÄܵÄÌáÉýÐ޸ıØÐë×ñÑ­GPL¿ªÔ´¾«Éñ¡£

    ÏÂÃæÊÇÔ´Âëªò·ÖÁ½²¿·ÖªöµÚÒ»²¿·ÖªùͼÎÄ»ì±à°´Å¥×Ô¶¨Òå¿Ø¼þÔ´ÂëImports System.ReflectionImports System.Drawing.ImagingPublic Class PictureButtonMenuInherits System.Windows.Forms.UserControlPrivate ChangeColor As BooleanPrivate _BorderColor As Color Color.Gold±êʶÎı¾µÄλÖÃPublic Enum LayoutLeft 0right 1up 2down 3middle 4End Enum×Ö¶ÎÆðʼ°´Å¥ÑÕÉ«Private BackgroundImgColor As Color Me.BackColor°´Ïºó°´Å¥ÑÕÉ«Private PressedImgColor As Color Color.SteelBlueÊÇ·ñ°´ÏÂPublic Pressed As Boolean FalseÊÇ·ñÒƶ¯µ½ÉÏÃæPublic Moved As Boolean Falseµ±Ç°Í¼ÎIJ¼¾ÖPrivate TxtImgLayout As Layout 1µ±Ç°°´Å¥ÊÇ·ñ¿ÉÓñêÖ¾Private BtnEnabled As Boolean TrueÊôÐÔPrivate Ctext As String quot°´Å¥Îı¾°´Å¥Îı¾quotPublic imageHeight As Integer 16Public imageWidth As Integer 16µ±×÷Ϊ¹¤¾ßÀ¸×îÖÕÖØÐÂÉèÖÃÆä´óСʱµÄ±äÁ¿Public BtnWidth As Integer 0Public BtnHeight As Integer 0 ltsummarygt ÉèÖÃIconͼ±êµÄ¸ß¶È lt/summarygt ltremarksgtÉèÖÃIconͼ±êµÄ¸ß¶Èlt/remarksgt ltvaluegt32lt/valuegtPublic Property setImageHeight As IntegerGetReturn Me.ImageHeightEnd GetSetByVal Value As IntegerMe.ImageHeight ValueEnd SetEnd PropertyPublic Property SetTag As IntegerGetReturn MyBase.TagEnd GetSetByVal value As IntegerMyBase.Tag valueEnd SetEnd Propertyµ¥»÷°´Å¥ºóÆô¶¯µÄÍâ½Ó³ÌÐòªòƽ̨¿ÉÒÔÈÎÒâÌí¼ÓEXEÁ˪öPublic BtnAppName As String quotquotPublic Property SetAppName As StringGetReturn Me.BtnAppNameEnd GetSetByVal value As StringMe.BtnAppName valueEnd SetEnd PropertyPublic Property setImageWidth As IntegerGetReturn Me.ImageWidthEnd GetSetByVal Value As IntegerMe.ImageWidth ValueEnd SetEnd PropertyƽʱµÄ±³¾°É«Public Property BackgroundImgColorValue As ColorGetReturn Me.BackgroundImgColorEnd GetSetByVal Value As ColorMe.BackgroundImgColor ValueEnd SetEnd PropertyÊó±ê°´ÏºóµÄ±³¾°É«Public Property PressedImageColorValue As ColorGetReturn Me.pressedImgColorEnd GetSetByVal Value As ColorMe.pressedImgColor ValueEnd SetEnd PropertyÏÔʾµÄÎı¾Public Property Caption As StringGetReturn Me.CtextEnd GetSetByVal Value As StringMe.Ctext ValueEnd SetEnd PropertyÎÄ×ֵIJ¼¾ÖPublic Property TextImageLayout As LayoutGetReturn Me.TxtImgLayoutEnd GetSetByVal Value As LayoutMe.TxtImgLayout ValueEnd SetEnd Property¿Ø¼þ´óСÊÇ·ñ×Ô¶¯µ÷ÕûPrivate ControlSizeSet As Boolean FalsePublic Property ControlSizeSetF As BooleanGetReturn ControlSizeSetEnd GetSetByVal value As BooleanMe.ControlSizeSet valueEnd SetEnd PropertyPrivate bmpIconCount As Integer 0Private bmp As ImagePublic Sub AddBmpByVal bmpSl As Imagebmp bmpSlbmpIconCount 1End SubÊÇ·ñÊǸ¸²Ëµ¥ªòĬÈϲ»ÊǪöPrivate YNParentMenu As Boolean FalsePublic Property SetParentMenu As BooleanGetReturn YNParentMenuEnd GetSetByVal value As BooleanYNParentMenu valueEnd SetEnd Property»æÖƱíÃæProtected Overrides Sub OnPaintByVal e As PaintEventArgsDim gp As Graphics e.Graphics¿Ø¼þ´óС²»×Ô¶¯µ÷ÕûIf ControlSizeSet False ThenSelect Case bmpIconCountCase 0 »­±³¾°Dim backgroundImg As Image MakeBitmapBackgroundImgColor Me.Width Me.HeightDim pressedImg As Image MakeBitmapPressedImgColor Me.Width Me.HeightIf Me.Pressed AndAlso pressedImg IsNot Nothing Thengp.DrawImagepressedImg 0 0e.Graphics.DrawRectangleDirectCastNew Pen_BorderColor Pen 0 0 Me.Width -1 Me.Height -1ElseIf Me.Moved AndAlso pressedImg IsNot Nothing Thengp.DrawImagepressedImg 0 0ElseIf Me.BtnEnabled False Then°´Å¥²»¿ÉÓÃʱDim UnenableImg As Image MakeBitmapColor.FromArgb247 247 239 Me.Width Me.Widthgp.DrawImageUnenableImg 0 0e.Graphics.DrawRectangleDirectCastNew PenColor.FromArgb206 199 189 3 Pen 0 0 Me.Width -1 Me.Height -1UnenableImg.DisposeElsegp.DrawImagebackgroundImg 0 0ÈýάЧ¹û e.Graphics.DrawRectangleDirectCastNew PenColor.Transparent Pen 0 0 Me.Width Me.HeightEnd IfbackgroundImg.DisposepressedImg.DisposeIf Me.Ctext.Length gt 0 ThenDim size As SizeF e.Graphics.MeasureStringMe.Ctext Me.FontIf Me.BtnEnabled False Thene.Graphics.DrawStringMe.Ctext Me.Font New SolidBrushColor.FromArgb173 170 156 Me.ClientSize.Width -size.Width / 2 Me.ClientSize.Height -size.Height / 2Elsee.Graphics.DrawStringMe.Ctext Me.Font New SolidBrushMe.ForeColor Me.ClientSize.Width -size.Width / 2 Me.ClientSize.Height -size.Height / 2End IfEnd IfCase 1 »­Í¼ÏñDim vsizef As SizeFIf Me.Pressed AndAlso bmp IsNot Nothing ThenÎı¾ÑÕÉ«È¡°´ÏµÄÑÕÉ«Dim cbrush As New System.Drawing.SolidBrushMe.PressedImgColorSelect Case Me.TxtImgLayoutCase Layout.Leftvsizef gp.MeasureStringCtext Me.FontËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù8¸öÏñËØgp.DrawStringCtext Me.Font cbrush 4 Me.ClientSize.Height -vsizef.Height / 2ͼÏñµÄX×ø±êÊÇvsizef.Width 8Dim imgRect As Rectangle New Rectanglevsizef.Width 8 Me.ClientSize.Height -imageHeight / 2 ImageWidth ImageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.rightvsizef gp.MeasureStringCtext Me.FontͼÏñµÄY×ø±êÊÇcHeight -ImageHeight / 2Dim imgRect As Rectangle New Rectangle0 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù6¸öÏñËØgp.DrawStringCtext Me.Font cbrush Me.ImageWidth 3 Me.ClientSize.Height -vsizef.Height / 2Case Layout.upvsizef gp.MeasureStringCtext Me.FontÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 2ͼÏñµÄY×ø±êÊÇvsizef.Height 4Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 vsizef.Height 4 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.downvsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 0 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 -1 ImageHeight 2Case Layout.middlevsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 Me.ClientSize.Height -vsizef.Height / 2End Selectcbrush.Disposecbrush NothingËÄÖÜ»­ÑÕÉ«¾ØÐÎe.Graphics.DrawRectangleDirectCastNew Pen_BorderColor Pen 0 0 Me.ClientSize.Width -1 Me.ClientSize.Height -1gp.Disposegp NothingElseIf Me.Moved AndAlso bmp IsNot Nothing ThenÎı¾ÑÕÉ«È¡Ç°¾°É«Dim cbrush As New System.Drawing.SolidBrushMe.PressedImgColorSelect Case Me.TxtImgLayoutCase Layout.Leftvsizef gp.MeasureStringCtext Me.FontËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù8¸öÏñËØgp.DrawStringCtext Me.Font cbrush 4 Me.ClientSize.Height -vsizef.Height / 2ͼÏñµÄX×ø±êÊÇvsizef.Width 8Dim imgRect As Rectangle New Rectanglevsizef.Width 8 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.rightvsizef gp.MeasureStringCtext Me.FontͼÏñµÄY×ø±êÊÇcHeight -ImageHeight / 2Dim imgRect As Rectangle New Rectangle0 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù6¸öÏñËØgp.DrawStringCtext Me.Font cbrush Me.imageWidth 3 Me.ClientSize.Height -vsizef.Height / 2Case Layout.upvsizef gp.MeasureStringCtext Me.FontÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 2ͼÏñµÄY×ø±êÊÇvsizef.Height 4Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 vsizef.Height 4 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.downvsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 0 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 -1 imageHeight 2Case Layout.middlevsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 Me.ClientSize.Height -vsizef.Height / 2End Selectcbrush.Disposecbrush Nothinggp.Disposegp NothingElseIf Me.BtnEnabled False ThenÎı¾ÑÕÉ«È¡Ç°¾°É«Dim cbrush As New System.Drawing.SolidBrushColor.FromArgb173 170 156Select Case Me.TxtImgLayoutCase Layout.Leftvsizef gp.MeasureStringCtext Me.FontËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù8¸öÏñËØgp.DrawStringCtext Me.Font cbrush 4 Me.ClientSize.Height -vsizef.Height / 2ͼÏñµÄX×ø±êÊÇvsizef.Width 8Dim imgRect As Rectangle New Rectanglevsizef.Width 8 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.rightvsizef gp.MeasureStringCtext Me.FontͼÏñµÄY×ø±êÊÇcHeight -ImageHeight / 2Dim imgRect As Rectangle New Rectangle0 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù6¸öÏñËØgp.DrawStringCtext Me.Font cbrush Me.imageWidth 3 Me.ClientSize.Height -vsizef.Height / 2Case Layout.upvsizef gp.MeasureStringCtext Me.FontÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 2ͼÏñµÄY×ø±êÊÇvsizef.Height 4Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 vsizef.Height 4 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.downvsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 0 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 -1 imageHeight 2Case Layout.middlevsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 Me.ClientSize.Height -vsizef.Height / 2End Selectcbrush.Disposecbrush Nothinge.Graphics.DrawRectangleDirectCastNew PenColor.FromArgb206 199 189 3 Pen 0 0 Me.Width -1 Me.Height -1gp.Disposegp NothingElseÎı¾ÑÕÉ«È¡Ç°¾°É«Dim cbrush As New System.Drawing.SolidBrushMe.ForeColorSelect Case Me.TxtImgLayoutCase Layout.Leftvsizef gp.MeasureStringCtext Me.FontËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù8¸öÏñËØgp.DrawStringCtext Me.Font cbrush 4 Me.ClientSize.Height -vsizef.Height / 2ͼÏñµÄX×ø±êÊÇvsizef.Width 8Dim imgRect As Rectangle New Rectanglevsizef.Width 8 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.rightvsizef gp.MeasureStringCtext Me.FontͼÏñµÄY×ø±êÊÇcHeight -ImageHeight / 2Dim imgRect As Rectangle New Rectangle0 Me.ClientSize.Height -imageHeight / 2 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingËäȻԤÁôÁË8¸öÏñËØ µ«ÊÇֻƽ¾ù6¸öÏñËØgp.DrawStringCtext Me.Font cbrush Me.imageWidth 3 Me.ClientSize.Height -vsizef.Height / 2Case Layout.upvsizef gp.MeasureStringCtext Me.FontÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font cbrush Me.ClientSize.Width -vsizef.Width / 2 2ͼÏñµÄY×ø±êÊÇvsizef.Height 4Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 vsizef.Height 4 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingCase Layout.downvsizef gp.MeasureStringCtext Me.FontͼÏñµÄX×ø±êÊÇMe.Width -ImageWidth / 2 -1Dim imgRect As Rectangle New RectangleMe.ClientSize.Width -imageWidth / 2 -1 0 imageWidth imageHeightDim imageAttr As New ImageAttributesimageAttr.SetColorKeyBackgroundImageColorbmp BackgroundImageColorbmpgp.DrawImagebmp imgRect 0 0 imageWidth imageHeight GraphicsUnit.Pixel imageAttrimgRect NothingimageAttr NothingÎı¾Æðʼ×ø±ê32gp.DrawStringCtext Me.Font .