一般的作法： Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) Private Type ARGB R As Byte G As Byte B As Byte Keep As Byte End Type .... Dim c As ARGB CopyMemory c, GetPixel(Picture1.hdc, x, y), 4 Debug.Print c.R, c.G, c.B, c.Keep ==> 本文由 "阿书 <[email protected]>" > 於 news:4VB7hW%247zZ%40ptt.cc 发表 > ※ 引述《leicheong (睡魔)》之铭言： > : ※ 引述《CuckooBoy (阿书)》之铭言： > : : 我用VB6在表单上放一张图,与TEXTBOX > : : 如何写程式...... > : : 能够将图的资讯显示在TEXTBOX呢? > : : 我讲 "资讯".....有一点广啦! > : : 其实我是想要RGB值 > : : R G B > : : 图上一个点...如果纯红色,他会显示 255,0,0 > : : 第二个...第三点.....就接在後面 > : : 如: > : : 255,0,0,254,1,1 > : : 我手上有六本VB6的书,里面教的都是基本的软体使用,找不到这类的教学 > : : 我VB6没有MSDN所以也不知网路上哪边有VB6线上MSDN > : : 所以,可否请大大指点一下 > : : 书店的书都是NET的........应该VB6没用,对吧? > : : 所以,有没有相关的VB6的书有写到一些有关颜色的函式使用的呢? > : : 问题很笨,请大大包函一下!!感恩~~ > : vb6要做到这种事, 你需要用到Win32API中, 关於GDIPlus的部份. > : 请把PictureBox的hWnd和hDC值喂给需要hwnd和hdc的地方, > : PictureBox的Image的Handle值喂给需要hBitmap的地方. 例如: > : Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x > : As Long, ByVal y As Long) As Long > : Long pix00 = GetPixel(Picture1.Hdc, 0, 0); > : 至於怎样把ARGB其4个8 byte的值由32-bit integer中分离出来就要自己 > : 想办法了. > 感谢 > 刚试了一下,是我要的 > 不过有个疑问 > 颜色不是会有RGB XXX,XXX,XXX > 为什麽得到的都是一个值 譬如 :255 > 不能一次印三个值吗? > SORRY!我影像处理与VB底子不够好.... > 可否请大大指点一下 > 感恩 > -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.7 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14 TechNet: http://forums.microsoft.com/technet-cht/default.aspx?siteid=23 -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language