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
