用vb自带的commondialog即可,代码如下:
专注于为中小企业提供成都网站设计、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业河东免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了近千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
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下载：
用电脑为漫画上颜色，是CG的一种。自从有了电脑之后，我的所有的作品都使用电脑处理，除了一些特殊要求、需要手绘效果的——事实上电脑连手绘的效果也可以栩栩如生的做到！哈哈！电脑确实厉害，而且效率很高，特别适合漫画、卡通。电脑填色需要一些技巧，这些技巧往往无法通过自己的摸索得到，这里以一幅漫画的整个制作流程讲解一下电脑填色的过程。先罗嗦两句：需要在电脑填色的漫画首先要在纸上手绘线稿，而不是像有些朋友以为的在电脑上手绘线稿——那样做太麻烦了。但是我听说现在有一个日本软件叫做Comicstudio(漫画工作室)，可以利用手写板直接在电脑中绘制草稿、成稿、甚至排版！现在还没有中文版，我们在期待着。我就有一个小手写板，我的感觉是用手写板还不如在纸上方便，在Comicstudio还没有到手之前，我们还是按照老办法。我们使用的软件当然是平面设计领域的龙头老大——Photoshop大哥,版本是6.0。其实还有很多其他的软件也可以为漫画上色，比如Painter\PhotoImpac\Paintershop,但是Photoshop是最为常见的软件，大猫我是十分喜欢的。说句额外的话：其实在平面制作类的软件中，不能说哪一个软件比哪一个好，因为每一个软件都有自己的长处。所以大猫我制作一个漫画常常是几种软件结合使用，这种方法推荐给大家！我这个小小的教程是基于读者已经比较熟悉Photoshop6.0的操作的基础上的，如果你还没有学会Photoshop,赶快去补课吧，否则，下面的教程会令你一头雾水！书店里肯定有不少关于Photoshop的书（不过不会有如何为漫画填色的教程），如果你想省点银子，网络上也有教程可以下载。1、现在我们假设已经有了一个线稿，要注意！电脑填色有一个说道：需要在绘制线稿的时候,尽量封闭线条，（就是线条尽量形成一个封闭的区域）否则做选区就特别麻烦。（如果你现在不理解不要紧，以后就明白了。）在扫描线稿之前。要擦掉线稿上的铅笔痕迹，确保线稿的清洁。扫描用灰度或者黑白模式。现在看看我们的线稿：豁牙子唐僧（可能是说话太罗嗦造成的）！放大后仔细去掉一些杂点，如果有断线的地方需要修补好。2、现在要把这个线稿提取出来。这个步骤会令人不解---因为在Photoshop中和在纸上上色是完全不同的。手绘是平面的，而Photoshop是立体的——因为Photoshop中有层。提取线稿的目的是为了保证线稿不被损伤。提取线稿的方法有很多，推荐一种我常用的方法：在Photoshop菜单中的选择中点击色彩范围选择“暗调”按“确定”！3、看见蚂蚁线了吗？现在所有的黑色部分，也就是线稿，都被选取了。现在新建一个图层，在这个图层中，填上黑色。键盘操作是：Alt+Delete,前景色要是黑色。现在线稿提取好了。回到背景层中，去掉选区，键盘操作是Ctrl+d,然后把背景填上白色。在背景和线稿之间新建一个图层，用来填色。4、首先用魔棒点击需要填色的区域，按着Shift可以一次选区很多的选区。然后在色板或者拾色器选取需要的颜色，定义为前景色或者背景色。填入前景色的键盘操作是Alt+Delete，填入背景色的键盘操作是Ctrl+Delete.这是非常常用的操作，应该记住！填入的颜色是中间色调。然后再选取较深的色调，用喷笔喷出暗调。喷笔的压力最好在10-20之间。喷笔的笔头可以自己定义。大猫我自己做了一组，有软有硬，特别适合电脑填色，现在就可以下载：笔头下载 。 5、下面的部分就不完全是技术性的了。使用什么样的颜色，怎样搭配，完全要看你自己的艺术感觉了。需要注意的是使用的颜色要深浅搭配，卡通一般都比较鲜艳，但是如果整个画面的颜色都很鲜艳的话，就会显得很浮躁，只有和暗色调对比，鲜艳的色调才协调。6、电脑填色的好处之一是可以使用各种不同的手法，只要你能想象得到！这有点像拍电影中的特技——真的假的结合使用，只要最后的效果好就可以。所以电脑填色可以使用各种技巧。现在介绍一种最常用的：使用材质。材质是各种材料的照片（比如墙壁、石头、金属、纺织品），可以从专门的材质光盘中获得。材质的使用可以使漫画更加有质感。比如我的一幅作品中的人物的裤子使用了牛仔布料，质感很好。这是用手绘无法办到的。这个牛仔布料是怎么来的呢？哈哈！是我把牛仔裤脱下来放在扫描仪中扫的！看，我给唐僧先生加了一个砖墙的背景，再加一个半透明的阴影，怎样？很好吧？
Illustrator和CorelDRAW是熟悉的常用矢量平面绘图软件，有时候也许会在这两个软件之间交替操作，下面对比它们操作的相似和不同之处。下文用AI来表示Illustrator，CD表示CorelDRAW。
一、文件互换
打开本机格式：
AI打开CD，限制在CD10以前，以后的版本不能打开。
CD打开AI，CDX4打开AICS3以下(非压缩，可在AI保存文件时取消压缩)，CDX3打开AICS2以下，以此类推。
另存格式：AI无法另存CD，CD可以另存AI，另存版本参照上面的打开模式。
另可以采用非本机格式文件互换，如EPS、PDF，这两个格式应该是AI和CD文件互转常用到的。
二、颜色匹配
因为两个软件由不同公司开发颜色设置不同，显示差别很大，特别是CD，默认的色彩管理看着非常不顺眼，不过进行设置后，这个顾虑就没了，这一部分请参阅《PS/CorelDraw/Illustrator颜色匹配方案》。
三、绘图操作
两个软件操作模式有很大不同，要注意细心观察，不然比较难找到类似点。
1,选择
AI选择分工明显，不螯述，但请注意配合使用Ctrl+Y(轮廓视图)，Ctrl+Alt+[(选择下方对象)等。
CD一个挑选工具需要配合：碰选：按住Alt。 选下方对象(或被锁定对象)：按住Alt单击。 选择群组内对象：按住Ctrl单击(选择复合群组内单个群组同样)。 自由套选(节点)：形状工具按住Alt。
AI魔棒很方便，CD非常麻烦要用查找对象(功能非常强大)。
2,路径编辑
AI编辑分工明显，不螯述，但请注意熟练快捷操作，如Shift+C，+，- 等。
CD形状工具复杂强大，属性栏默认快捷有C和S，双击左键可加减节点，其余所有功能都可以自定快捷(CD其他功能命令也都能自定快捷)，不螯述，具体设置在选项---工作区---自定义---命令。
3,绘图
两软件绘图工具基本类似。但请注意AI可以先单击作业区设置几何形状的参数，绘制后已成曲线不能回复修改，可以在效果菜单里添加修改效果。
CD绘制几何形状先绘图再设置参数，在未转曲之前，可以回复修改，配合形状工具还会有意想不到的有趣效果(多试验下才知道哦)。
AI钢笔，铅笔等和CD贝赛尔，手绘等都同样，至于绘图时的配合操作，无非就是你左手最容易抓到的几个键，试验下就知道了。AI画笔和喷枪与CD艺术笔和喷罐类似，AI有提供大量现成样式，CD提供少量。另注意AI喷枪符号和CD符号管理性质有区别。
AI最大绘图直径5.7米，CD最大绘图直径45.7米。
4,对象交互
AI是路径查找器命令，CD是造形命令，效果基本相同。
CD可对位图进行交互操作，AI不能。如果碰到特殊情况使用命令效果不对(比如修剪或复合却无法掏空)，CD反转某个对象曲线可解决。
AI剪切蒙版与CD图框剪裁类似，不过是有差别的，用多了就明白了(另CD按住Ctrl点击图框可快速进入编辑状态，点空白区可快速退出状态。另请在选项设置里取消图框内容自动居中)。
5,对象变换
两软件都基本类似，镜像，旋转，变形，缩放，等等，都可以在各自软件中找到相应功能。进行变换时如果要规范复制请调出面板，AI点复制，CD点应用到再制。
AI拖拽复制按住Alt，CD是按鼠标右键。
AI喷洒复制需在绘制几何形状时保持状态(不能松开鼠标)再按住~键，CD喷洒复制在绘图完成后，可随时按住空格键对任何图形进行。两软件在喷洒复制同时都可加按 Shift和Alt进行多样化操作。
另CD克隆功能有趣实用，克隆复制的所有对象都会随着原始对象的属性变化而自动更新(比如变形透明填充等)。
6,对齐分布
两软件效果一样。请注意AI依对象为参考要手动点选，CD默认是后选对象。另AI可方便自定间距分布，CD很麻烦需借助VB宏来实现(已有网友编写了此插件，VB宏非常强大CD很多功能插件都是其杰作)，CD可依网格对齐。另AI含剪切蒙板对象无法对齐分布(CS4版本已有改善，但多个蒙板的群组对象还是无法对齐分布)。
7,效果
大多名称不同效果类似，比如AI渐变与CD交互填充，AI网格填充与CD网状填充，AI混合与CD交互调和，AI 3D与CD交互立体，AI发光投影羽化与CD交互阴影交互轮廓，AI透明度与CD交互透明，另在有某些需要的时候，AI偏移路径和CD交互轮廓有个别类似作用。
另AI效果非常方便整合归类，CD较复杂需综合配合(比如透镜应用)。AI特色为封套，CD特色为调和。
8,视图
扩大视图AI最高6400%倍，CD最高329340%倍，AI有像素预览模式(图稿仿位图显示)，CD线框预览模式下位图仿灰度显示。另CD可1:1显示图稿(如显示不准确，请校准标尺，具体设置在选项-工具箱-缩放与手形-1:1校调标尺，方法参阅帮助)。
AI缩放鼠标左点放大，按住Alt缩小。CD鼠标左点放大，右点缩小。AI空格键平移视图非常方便，CD需要进行设置，选项---工作区---自定义---命令，把平移视图快捷设置为H键，替换掉抓手工具，如果再配合F2和F3超级方便。
9,填充
基本填充两软件一样，分普通和渐变两种，两软件的滑块和拾色器等都很方便界面稍有不同，AI渐变只线性和径向两个，CD多两个圆锥和方角。(另CD可取消锁定渐变步长，加大步长值解决色彩阶梯显示问题。另如需要填充未闭合路径，请在选项设置里勾选填充开放式曲线。)
AI有提供大量现成色板样式和图形样式，CD只提供少量自定义色板样式。另注意CD颜色样式需打开调板才会自动添加。两软件专色四色转换，自定专色等管理都方便。CD可点住色板某颜色不松而呼出临近色样，按住Ctrl点击色板颜色可进行即时混合填充。AI可添加效果为图形样式。
CD图样，材质，底纹填充复杂强大(交互透明也含此选项)，有提供部分现成样式，自制定需深度理解，方可发挥创意。
10,图层页面
AI图层显示为对象缩略图，CD图层可以显示对象属性。隐藏显示都是单击眼睛标志。单独显示图层轮廓，AI是按住Ctrl单击图层眼睛标志，CD是右键单击图层名称弹出菜单点属性选覆盖全色视图。
控制编辑，AI是锁头标志，CD是铅笔标志。控制跨图层编辑，AI需用反向锁定其他图层(按住Alt双击选定图层的锁头标志)，CD点击跨图层编辑开关即可。控制打印，AI双击图层在选项里设置可打印，CD点击打印机标志。控制图层轮廓颜色，AI双击图层在选项里设置颜色，CD双击黑色块标志。
CD建立多页面文档如需要主页面对象处在最底层(默认是最上层)，请在图层管理器视图下把主对象图层拖至普通图层最底层。在有较多分页时如需要对页面调整顺序，请在页面排序器视图下拖动页面安插即可。
AI可运用页面拼贴与打印功能进行很简单拼版，CD可运用页面版式与强大打印功能进行较复杂拼版，网上均已有相关教程，此不螯述，请搜索学习。(另AI CS4新增多画板功能，可在一个文档中建立多个画板。CD X4新增页面独立图层功能，可独立建立页面图层与导线。)
11,位图应用
矢量软件除了绘图之外，美工与版式也是密不可分的，所以位图和文本的功能性当然不在话下。
AI的位图功能需借助PS来完成(所以位图应以链接的方式导入)。嵌入后可进行饱和度及色彩平衡的调节(也可对矢量图进行)。为了便捷有时候需要将矢量转换为位图来做效果，但因增加了PS效果外观功能，位图滤镜功能基本废了，所以到CS4版本已将此功能删除。在PS中处理完位图保存后AI会自动弹出提示，确定更新即可。
CD的位图功能集成较多(所以一般以嵌入方式导入位图，因大量位图增大文件体积时才勾选外部链接)。调整命令已涵盖了主要功能，比如色阶，曲线，色彩平衡，亮度/对比度，伽马值，色相/饱和度等等(后4个也可对矢量图进行)。做丰富的位图效果处理可点击“编辑位图”跳转至捆绑的位图软件 PhotoPAINT中进行。
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
重庆分公司
重庆分公司
