VB6(OCX)

○イメージをデータ形式で設定する例
 
Dim ImageFile As String
Dim fileNo As Integer                      'ファイル番号
Dim imageLength As Long
Dim imageData() As Byte
 
'イメージファイルをByte配列に読み込みます。
fileNo = FreeFile                           'ファイル番号取得
Open ImageFile For Binary As #fileNo      'イメージファイルオープン
imageLength = FileLen(ImageFile)
ReDim imageData(imageLength) As Byte
Get #fileNo, , imageData
Close #fileNo
 
'イメージデータを描画します。
Call Jvrlib.SetFieldImageData("IMAGE_2", imageLength, imageData)