ビットマップの値を読み込むには？ (ID:116147)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 色彩はピクセルデータでいいのかな？ パレットだったら違います。 Bufにピクセルデータが入ります。 '############################################## Public Type BITMAPFILEHEADER bfType As Integer bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type 'ここは画像を任意で設定 Public Const bmpPath As String = "C:\WINDOWS\シャボン.bmp" 'ビットマップヘッダー宣言 Public B_File_Header As BITMAPFILEHEADER Public Sub GetBmp() Dim Buf() As Byte Dim Fno As Long Fno = FreeFile Open bmpPath For Binary As #Fno 'ビットマップファイルヘッダー取得 Get #Fno, , B_File_Header 'ファイル読み込み位置をイメージ開始位置に設定 Seek #Fno, B_File_Header.bfOffBits + 1 'イメージサイズだけバッファを確保 ReDim Buf(B_File_Header.bfSize - B_File_Header.bfOffBits - 1) 'イメージ取得 Get #Fno, , Buf Close #Fno End Sub