'调入源图
Set Me.Picture = LoadPicture("c:/map.jpg")
'获得源图描述信息
GetObject Me.Picture.Handle, Len(m_bmp), m_bmp
'获得源图数据
ReDim bmpData(m_bmp.bmWidthBytes * m_bmp.bmHeight - 1)
GetBitmapBits Me.Picture.Handle, UBound(bmpData), bmpData(0)
'获得源图每像素
m_bmPixels = m_bmp.bmBitsPixel / 8
'创建内存DC和位图
Dim rcBMP As RECT
m_hMemDC = CreateCompatibleDC(Me.hdc)
m_hMemBMP = CreateCompatibleBitmap(Me.hdc, m_bmp.bmWidth, m_bmp.bmHeight)
m_hOldBMP = SelectObject(m_hMemDC, m_hMemBMP)
本文介绍了一种使用Visual Basic进行图片加载及处理的方法,包括获取图片尺寸、颜色等信息,并实现对图像数据的逐像素操作。此外,还提供了一个链接指向包含多种线交点算法的资源。
27万+

被折叠的 条评论
为什么被折叠?



