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
End Sub
'PictureBox判色代码:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
用vb自带的commondialog即可,代码如下:
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo errtrap
CommonDialog1.ShowColor
x = CommonDialog1.Color
Me.BackColor = x
errtrap:
想要系统的学习可以考虑报一个网络直播课,推荐CGWANG的网络课.老师讲得细,上完还可以回看,还有同类型录播课可以免费学(赠送终身VIP).
自制能力相对较弱的话,建议还是去好点的培训机构,实力和规模在国内排名前几的大机构,推荐行业龙头:王氏教育.
王氏教育全国直营校区面授课程试听【复制后面链接在浏览器也可打开】:
在"漫画设计"领域的培训机构里,【王氏教育】是国内的老大,且没有加盟分校,都是总部直营的连锁校区.跟很多其它同类型大机构不一样的是:王氏教育每个校区都是实体面授,老师是手把手教,而且有专门的班主任从早盯到晚,爆肝式的学习模式,提升会很快,特别适合基础差的学生.
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
IO.Directory.SetCurrentDirectory(AppDomain.CurrentDomain.BaseDirectory)
picMain.SizeMode?=?PictureBoxSizeMode.StretchImage
picMain.Image?=?New?Bitmap("test.jpg")
End?Sub
Private?Sub?picMain_MouseDown(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.MouseEventArgs)?Handles?picMain.MouseDown
Dim?myImg?As?New?Bitmap(picMain.Width,?picMain.Height)
Dim?g?As?Graphics?=?Graphics.FromImage(myImg)
g.DrawImage(picMain.Image,?New?Rectangle(New?Point(0,?0),?myImg.Size),?New?Rectangle(New?Point(0,?0),?picMain.Image.Size),?GraphicsUnit.Pixel)
picColor.BackColor?=?myImg.GetPixel(e.X,?e.Y)
txtMsg.Text?=?picColor.BackColor.ToString
End?Class
以上就是土嘎嘎小编为大家整理的用vb.net编写拾色器的简单介绍用vb.net编写拾色器的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!