包含vb.net做拾色器的词条

如何用VB制作拾色器

用vb自带的commondialog即可,代码如下:

创新互联公司从2013年创立，先为重庆等服务建站，重庆等地企业，进行企业商务咨询服务。为重庆企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Private Sub Command1_Click()

CommonDialog1.CancelError = True

On Error GoTo errtrap

CommonDialog1.ShowColor

x = CommonDialog1.Color

Me.BackColor = x

errtrap:

End Sub

用Wacom CTL-470在sai上画，压感笔接触板子时会变成拾色器原本颜色就变成笔接触那的颜色，请问要怎么办？

你可以先去【绘学霸】网站找“漫画设计”板块的【免费】视频教程【点击进入】完整入门到精通视频教程列表： ;tagid=304zdhhr-11y17r-527459938

想要系统的学习可以考虑报一个网络直播课，推荐CGWANG的网络课。老师讲得细，上完还可以回看，还有同类型录播课可以免费学（赠送终身VIP）。

自制能力相对较弱的话，建议还是去好点的培训机构，实力和规模在国内排名前几的大机构，推荐行业龙头：王氏教育。

王氏教育全国直营校区面授课程试听【复制后面链接在浏览器也可打开】：

在“漫画设计”领域的培训机构里，【王氏教育】是国内的老大，且没有加盟分校，都是总部直营的连锁校区。跟很多其它同类型大机构不一样的是：王氏教育每个校区都是实体面授，老师是手把手教，而且有专门的班主任从早盯到晚，爆肝式的学习模式，提升会很快，特别适合基础差的学生。

大家可以先把【绘学霸】APP下载到自己手机，方便碎片时间学习——绘学霸APP下载：

求助！！vb制作一个拾色器

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 Sub

End Class

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