13518219792
用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
你可以先去【绘学霸】网站找“漫画设计”板块的【免费】视频教程【点击进入】完整入门到精通视频教程列表： ;tagid=304zdhhr-11y17r-527459938
想要系统的学习可以考虑报一个网络直播课，推荐CGWANG的网络课。老师讲得细，上完还可以回看，还有同类型录播课可以免费学（赠送终身VIP）。
自制能力相对较弱的话，建议还是去好点的培训机构，实力和规模在国内排名前几的大机构，推荐行业龙头：王氏教育。
王氏教育全国直营校区面授课程试听【复制后面链接在浏览器也可打开】：
在“漫画设计”领域的培训机构里，【王氏教育】是国内的老大，且没有加盟分校，都是总部直营的连锁校区。跟很多其它同类型大机构不一样的是：王氏教育每个校区都是实体面授，老师是手把手教，而且有专门的班主任从早盯到晚，爆肝式的学习模式，提升会很快，特别适合基础差的学生。
大家可以先把【绘学霸】APP下载到自己手机，方便碎片时间学习——绘学霸APP下载：
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可使用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
