十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
应改成
创新互联服务紧随时代发展步伐,进行技术革新和技术进步,经过十年的发展和积累,已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员,并且完全形成了一套成熟的业务流程,能够完全依照客户要求对网站进行成都网站设计、网站建设、建设、维护、更新和改版,实现客户网站对外宣传展示的首要目的,并为客户企业品牌互联网化提供全面的解决方案。
Label4.ForeColor = Color.FromArgb(255, 255, 255, 255)
RGB函数是这样的
Public Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Integer
它返回一个Integer不是Color结构
应该用Color.FromArgb
Public Shared Function FromArgb(alpha As Integer, red As Integer, green As Integer, blue As Integer) As System.Drawing.Color
这个其实跟桃形或者心形(另一问题中提到的)其实是一个程序,改一下花瓣的半径就可以了。请看图
通过圆心的垂直线的距离为半径
圆心右侧垂直线的距离为半径
圆心左侧垂直线的距离为半径
过圆上左极点垂直线的距离为半径
与上次的桃形绘图的代码差异只有一句
使用颜色常数:Form1背景色=虚拟现实。
背景色=vbBlue'蓝色。
背景色=vbWhite'白色。
使用QBColor函数:form1。背景色=QBColor(n)n个值,从0到15。
使用RGB函数:form1。背景色=RGB(r,g,b)'r,b,值分别为0到255。
扩展资料:
VbGreen HFF00 green
VbYellow HFFFF黄色
VbBlue HFF0000蓝色
vb品红色 HFF00FF品红色
VbCyan HFFFF00青色
VbWhite HFFFFFF white
VbGrayText H80000011灰色(无效)文本
VbButtonText H80000012按下按钮上文字的颜色
VbInactiveCaptionText H80000013非活动标题中的文本颜色
Vb3DHighlight H80000014高亮显示3d显示元素的颜色
Vb3DDKShadow H80000015三维显示元素的最暗阴影颜色
在3d中,Vb3DLight和h80000016低于vb3Dhighlight
Vb3DFace H8000000F文本表面颜色
Vb3DShadow H80000010文本阴影颜色
VbInfoText H80000017提示窗口文字颜色
VbInfoBackground H80000018表示窗口中背景的颜色
要使用GetPixel函数来取得像素的颜色值,代码如下:
1
2
3
4
5
private void button1_Click(object sender, EventArgs e)
{
Color color = new Bitmap(pictureBox1.Image).GetPixel(10, 10);
MessageBox.Show(color.ToString());
VB可使用Point方法来获取图片指定点的颜色。
Point 方法
按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。
语法
object.Point(x, y)
'窗体判色代码:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub
获取控件的Graphic对象,绘图方法都集中在了该对像中了。
1. 通过控件GreateGrapic方法获得
2. Paint 事件参数e中也有此对象
相应的图形方法是DrawImage,vb.net中没有自动重绘功能,图形不是持久的,所以应当在Paint事件中绘图。
Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
e.Graphics.SetClip(e.ClipRectangle)
e.Graphics.DrawImage(PictureBox1.Image, New Rectangle(0, 0, PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height), New Rectangle(5, 5, 100, 100), GraphicsUnit.Pixel)
End Sub