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
Tell us what the problem is. Are you getting some kind of VB error or just not seeing the image in the picture box?
This topic is closed to new replies.
Advertisement
Popular Topics
Advertisement