新Visual Basic.NET程序设计 教学课件 李琦 王伟 张薇 张启军 chapter7 图形应用程序设计.pptVIP

图形应用程序设计 本章要学习的绘图对象 颜色对象color 画布对象graphics 画笔对象pen 笔刷对象brushes 颜色对象Color 用Color.FromArgb()设置颜色 使用该方法设置颜色是汇集透明程度、红色光、绿色光、蓝色光等四道不同性质的光线的调色效果，语法如下： Color.FromArgb( [A,]R,G,B) 1、说明：A代表不透明度，从0至255共分成256个程度，数值越小代表越透明；数值越大代表越不透明。其中0代表完全透明，255代表完全不透明。A的默认值为255。 2、R,G,B：三个量分别代表红、绿、蓝颜色光的强度，每个颜色值分别从0至255共分成256个强度，数值越大表示该颜色光越强。 例：将picturebox1控件的背景色设成紫色 Picturebox1.backcolor=color.fromArgb(255,0,255) 取出Color的（A,R,G,B）自变量值 语法：A=对象 Color.A R=对象 Color.R G=对象 Color.G B=对象 Color.B 例：取出PictureBox1控件背景色的R自变量值。 R=Picturebox1.BackColor.R 练习：指出图片控件Picturebox背景色的颜色构成（A,R,G,B） －－－Form1_Paint－－－ Dim A, R, G, B As Integer A = PictureBox1.BackColor.A R = PictureBox1.BackColor.R G = PictureBox1.BackColor.G B = PictureBox1.BackColor.B Label1.Text = 目前颜色设置值： vbNewLine ARGB( A , R , G , B ) End Sub 练习：接上例增加调色功能，使能在picturebox控件中显示调色动态。 Dim A, R, G, B As Integer Sub showARGB() A = PictureBox1.BackColor.A R = PictureBox1.BackColor.R G = PictureBox1.BackColor.G B = PictureBox1.BackColor.B Label1.Text = 目前颜色设置值： vbNewLine ARGB( A , R , G , B ) Label2.Text = A= A Label3.Text = R= R Label4.Text = G= G Label5.Text = B= B End Sub Private Sub TrackBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll, TrackBar2.Scroll, TrackBar3.Scroll, TrackBar4.Scroll A = TrackBar1.Value R = TrackBar2.Value G = TrackBar3.Value B = TrackBar4.Value PictureBox1.BackColor = Color.FromArgb(A, R, G, B) Call showARGB() End Sub 用Color列举设置颜色 使用Color列举可以直接指定系统定义的颜色，这些被定义的颜色都是用英文来命名的，超过140个，常用的名称有red, green, blue, yellow, brown, white, black等。 例：将Button1控件的背景色设置成粉红色。 button1.backColor=color.pink 练习：接上例,增加设置为指定颜色功能，即按了有颜色的按钮时，使picturebox1控件内显示按钮的颜色，轨迹棒也自动跟着移动。 －－－Form1_Paint－－－ Button1.BackColor = Color.Firebrick