Would anyone happen to know why the following code won't work...
I am trying to open a RAW graphic file in VB, which I am able to open in Paint Shop Pro. If anyone know why or could provide some help, it would be greatly appreciated.
Private Sub Form_Load()
Dim offset As Long
Dim red, blue, green As Integer
offset = 1
Open App.Path & "\homekit.raw" For Binary As #1
For X = 1 To 256
For Y = 1 To 256
Get #1, offset, red
offset = offset + 1
Get #1, offset, blue
offset = offset + 1
Get #1, offset, green
offset = offset + 1
Picture1.PSet (X, Y), RGB(red, blue, green)
Next Y
Next X
Close #1
End Sub
This topic is closed to new replies.
Advertisement
Popular Topics
Advertisement
Recommended Tutorials
Advertisement