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
窗体定位升起降落效果实例源码privatevoidbutton1_Click(objectsender,EventArgse){for(inth=0;hthis.Size.Height;h++){Rectangler=newRectangle(System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width-this.Size.Width,System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height-h,this.Size.Width,this.Size.Height);//(wz)宽,高,(ct)宽,高,this.DesktopBounds=r;}}privatevoidbutton2_Click(objectsender,EventArgse){for(inth=this.Size.Height;h0;h--){Rectangler=newRectangle(System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Wi