VB代码VB小程序：将彩色图像转变为黑白图像.docxVIP

VB代码VB小程序：将彩色图像转变为黑白图像　　本程序使用两种方法将一幅彩色图像转变为黑白图像：用 API 方法、用 VB 控件方法。通过比较两种方法不难发现：　　用 VB 控件进行转换，过程直观，代码好理解，对学习和理解 VB 绘图语句很有帮助，但速度慢。　　用 API 方法进行转换，需操作二进制数组，像素点的行列定位较复杂，但转换速度快，几乎是瞬间就完成了转换。 以下是窗体代码，在 VB6 调试通过需在窗体放置 5 个控件：Command1、Command2、Command3、Picture1、Text1本人原创，转载请注明文章来源：/100bd/blog/item/1f4653397c5d693296ddd800.htmlDim ctExit As BooleanPrivate Type BitMap???bmType As Long?????????图像类型：0 表示是位图???bmWidth As Long????????图像宽度（像素）???bmHeight As Long???????图像高度（像素）???bmWidthBytes As Long???每一行图像的字节数???bmPlanes As Integer????图像的图层数???bmBitsPixel As Integer 图像的位数???bmBits As Long?????????位图的内存指针End TypePrivate Declare Function GetObject Lib quot;gdi32quot; Alias quot;GetObjectAquot; (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As LongPrivate Declare Function GetBitmapBits Lib quot;gdi32quot; (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Declare Function SetBitmapBits Lib quot;gdi32quot; (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Sub Form_Load()???Me.Caption = quot;转变为黑白图片quot;???Text1.Text = App.Path amp; quot;\Tu1.jpgquot;???Command1.Caption = quot;打开quot;: Command1.ToolTipText = quot;打开指定的图片文件quot;???Command2.Caption = quot;转换1quot;: Command2.ToolTipText = quot;用 API 方法转变为黑白图片quot;???Command3.Caption = quot;转换2quot;: Command3.ToolTipText = quot;用 VB 控件方法转换为黑白图像quot;???Picture1.AutoSize = True: Picture1.AutoRedraw = True???Picture1.ScaleMode = 3???Picture1.ToolTipText = quot;如果已转换为黑白图像，双击恢复为原来的图像quot;??????设置控件位置，实际可以在设计窗体时完成???Dim W1 As Long???W1 = Me.TextWidth(quot;Aquot;)???Command2.Move W1, W1, W1 * 6, W1 * 3???Command3.Move W1 * 8, W1, W1 * 7, W1 * 3???Command1.Move W1 * 15, W1, W1 * 7, W1 * 3???Text1.Move W1 * 22, W1, W1 * 80, W1 * 3???Picture1.Move W1, W1 * 5, W1 * 40, W1 * 40??????Call RndImg(Picture1) 随机画一些图像End SubPrivate Sub RndImg(Kj As Object)???随机画一些图像???Dim I As Long???Randomize???Kj.DrawWidth = 3???For I = 1 To 100??????Kj.Line (Kj.ScaleWidth * Rnd, Kj.ScaleHeight * Rnd)-Ste