VB实现BMP图像文件的读取、显示与存储

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Picture1.AutoSize = True 'ÉèÖÃPictureµÄ´óС¿ÉÒÔËæ¶ÁÈëͼƬ½øÐб仯£¬Ê¹ÆäÓëͼƬµÄ´óСÏà·û
Picture2.AutoRedraw = True 'ÉèÖÃPicture2¿É½øÐÐÖØ»­
Command1.Caption = "打开图像"
Command2.Caption = "保存图像"
Command3.Caption = "图像灰度化"
Command4.Caption = "保存灰度图像"
Command5.Caption = "退出"
End Sub

1
2
3
4
5
6
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:picHG.bmp") '打开并显示图片
Picture2.Width = Picture1.Width '设置picture2的宽度与picture1的相同
Picture2.Height = Picture1.Height '设置picture2的高度与picture1的相同
End Sub

1
2
3
4
5

Private Sub Command2_Click()
SavePicture Picture1.Picture, "D:picnew.bmp"
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command3_Click()
For i = 0 To Picture1.Width - 1
For j = 0 To Picture1.Height - 1
c = Picture1.Point(i, j)
R = c And &HFF&
G = (c And &HFF00&) / 256
B = (c And &HFF0000) / 65535
y = (R + G + B) / 3
Picture2.PSet (i, j), RGB(y, y, y)
Next j
Next i
End Sub

1
2
3
4
Private Sub Command4_Click()
SavePicture Picture1.Picture, "D:picgray.bmp"
End Sub

1
2
3
4
Private Sub Command5_Click()
End
End Sub