809
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Type udtRGB
R As Byte
G As Byte
B As Byte
End Type
Private MyPixel(1 To 933 / 3) As udtRGB
Private Sub Form_Load()
Open "D:\新建文件夹\1.bmp" For Binary Access Read As #1 '奇异图片的路径
Get #1, 2, MyPixel
Close #1
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_Paint()
Dim i As Byte
Dim j As Byte
For i = 1 To 16
For j = 1 To 16
PSet (i, 17 - j), RGB(MyPixel(j * 16 + i).R, MyPixel(j * 16 + i).G, MyPixel(j * 16 + i).B)
'PSet (j, 17 - i), RGB(MyPixel(i * 16 + j).R, MyPixel(i * 16 + j).G, MyPixel(i * 16 + j).B)
Next j
Next i
End Sub