|
Visual Basic Syntax Dim nFileHandle As Integer Dim arBuffer() As Byte Dim nImageID As Long
nFileHandle = FreeFile Open "c:\test1.tif" For Binary As #nFileHandle ReDim arBuffer((LOF(nFileHandle))) Get #nFileHandle, , arBuffer Close #nFileHandle
ImageViewer1.LoadFromByteArray(arBuffer) Erase arBuffer
|