函数本身就会传回一个暂存的实际位置。 我不知道原先为何不能，我没看到完整程式码，我只能说这是我以前用过能跑的程式码。 大范围的前面说过： 发文者：琏琏 日期：2007/7/21 下午 03:41:50 标题：Re: [问题] VB6-照片转参数 内文： VB6 单点请用 PictureBox.Point 取得。 大范围请呼叫 Windows API GetBitmapBits 一次取得所有记忆体内容。 所以会宣告一个 Dim allPoint(nWidth * nHeight - 1) As ARGB 然後一次把所有点拷贝进去。 ==> 本文由 "睡魔 <[email protected]>" > 於 news:4VBGOS%2470S%40ptt.cc 发表 > ※ 引述《CuckooBoy (阿书)》之铭言： > : SORRY!你的程式我用VB6没法RUN耶!! > : 可以再写详细一点吗!! > : 可能我对VB不熟 > : 所以没法顺利的来试你给的范例 > : VB6说 CopyMemory c, GetPixel(Picture1.hdc, 1,1), 4 这行有问题 > 这样可以: > Dim temp As Long > Dim pix00 As ARGB > temp = GetPixel(Picture1.hdc, 5, 15) > CopyMemory pix00, temp, 4 > MsgBox (pix00.Keep & " " & pix00.R & " " & pix00.G & " " & pix00.B) > 大概是因为source参数都要具实际位址吧. > -- 风禹科技验证有限公司 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