On Fri, 26 Mar 2004 17:57:13 +0800, kee <ke***@kee.dynu.com> wrote:
Hi All,
I am trying to figure out on how to combine 2 byte array and save to a file.
e.g.
open "image001.bmp" for binary access write as #1
put #1,,x() & y()
close #1
notes : x() and y() contains bitmap binary data.
Private Sub Command1_Click()
Dim B1() As Byte
Dim B2() As Byte
Dim Channel%, L9&
ReDim B1(1 To 5), B2(1 To 20)
For L9 = 1 To 5
B1(L9) = Asc("0") + L9
B2(L9) = B1(L9)
Next
Channel = FreeFile
Open "c:\t\test.dat" For Binary Access Write As Channel
Put #Channel, , B1()
Put #Channel, , B2()
Close #Channel
End Sub
I am a bit puzzled where you got those BitMaps