一般的作法： 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