2023-06-30
COLORPICK拾色器源码
ColorPick拾色器源码程序介绍:使用VB.NET开发的Winform小程序,通过拾色器可以快速选择文本或背景色。显示精准RGB数值,对应某种颜色。部分代码SubPaintBall()panSample.Refresh()DimgAsGraphics=panSample.CreateGraphicsg.SmoothingMode=SmoothingMode.AntiAliasDimgpAsNewGraphicsPathDimrectAsRectangle=NewRectangle(3,3,panSample.Width-6,panSample.Height-6)gp.AddEllipse(rect)UsingpbrAsPathGradientBrush=NewPathGradientBrush(gp)pbr.CenterPoint=NewPointF((rect.Width/2)+3,(rect.Height/2)+3)pbr.CenterColor=iColorpbr.SurroundColors=oColorg.FillEllipse(pbr,rect)EndUsingUsin