vb.net色谱图代码的简单介绍

在vb.net里,这行代码是错误的:Label4.ForeColor = RGB(255, 255, 255),相信大家都懂什么意思,那么正确的代

应改成

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

相关问答

Q1: 跪求vb.net代码

这个其实跟桃形或者心形（另一问题中提到的）其实是一个程序，改一下花瓣的半径就可以了。请看图

通过圆心的垂直线的距离为半径

圆心右侧垂直线的距离为半径

圆心左侧垂直线的距离为半径

过圆上左极点垂直线的距离为半径

与上次的桃形绘图的代码差异只有一句

Q2: 求VB中颜色代码

使用颜色常数：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表示窗口中背景的颜色

Q3: 在vb.net中，如何获取Graphics中某一指定点（像素）的颜色值？（VB语言）

要使用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());

Q4: vb.net拾色器设计，要求：能获取图片任意位置的颜色

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

Q5: 请问vb中的 PaintPicture在vb.net中代码是什么。最好有实例

获取控件的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