数字图象处理VB代码

Dim pic(2000, 2000, 2) As Byte, pix As Byte Dim pic1(2000, 2000, 2) As Integer Dim bc As Integer Dim b1 As Integer Dim b2 As Integer Dim w As Long, h As Long Private Sub Command1_Click() CDlg1.DialogTitle = "打开文件" CDlg1.Filter = "Pictures(*.bmp)|*.bmp" CDlg1.ShowOpen End Sub Private Sub Command2_Click() Open CDlg1.FileName For Binary As #1 'If b1 = 66 And b2 = 77 Then Get #1, 29, bc If bc = 24 Then Get #1, 19, w Get #1, 23, h Seek #1, 55 For j = h - 1 To 0 Step -1 For i = 0 To w - 1 For k = 2 To 0 Step -1 Get #1, , pic(i, j, k) Next k Next i If (w * 3) Mod 4 <> 0 Then For k = 1 To 4 - ((w * 3) Mod 4) Get #1, , pix Next k End If Next j For j = 0 To h - 1 For i = 0 To w - 1 'Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i, j, 1), pic(i, j, 2)) Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i, j, 0), pic(i, j, 0)) Next i Next j End If 'End If Close #1 End Sub Private Sub Command3_Click() Open CDlg1.FileName For Binary As #1 Dim rr As Integer, gg As Integer, bb As Integer Get #1, 29, bc If bc = 24 Then Get #1, 19, w Get #1, 23, h Seek #1, 55 For j = h - 1 To 0 Step -1 For i = 0 To w - 1 For k = 2 To 0 Step -1 Get #1, , pic(i, j, k) Next k Next i If (w * 3) Mod 4 <> 0 Then For k = 1 To 4 - ((w * 3) Mod 4) Get #1, , pix Next k End If Next j For j = 0 To h - 1 For i = 0 To w - 1 rr = 255 - pic(i, j, 0) gg = 255 - pic(i, j, 1) bb = 255 - pic(i, j, 2) Picture1.PSet (i, j), RGB(rr, gg, bb) Next i Next j End If Close #1 End Sub