如何把图片转换成16进制数据，用一个变量来获取这些数据，最好是有一个控件

Question

'声明API 
Private   Declare   Function   GetBitmapBits   Lib   "gdi32 "   Alias   "GetBitmapBits "   (ByVal   hBitmap   As   Long,   ByVal   dwCount   As   Long,   lpBits   As   Any)   As   Long Dim   Pic   as   StdPicture 
Dim   Size   as   Long Dim   Array1()   as   Byte     '要装入的数组 Dim   back   as   Long       '接受返回值 Size=Width*Height*Bpp       '图像大小＝宽度×高度×颜色深度 Redim   Array1(0   to   Size-1)   as   Byte back=GetBitmapBits(Pic.handle,Size,Array1(0))   '获取象素数据 if   back=0   then   Msgbox   "Error! "     '如果返回0则表明出错。 
运行环境是？要什么软件运行呢，请帮忙急需

Answer 1

http://blog.csdn.net/worldy/article/details/7381106