ab.com コミュニティ

コード: 全て選択

Sub SaveBmp(Dest As String,hDC As HDC,bx As Long,by As Long,x As Long,y As Long)(hWnd As HWND) 

    '変数の宣言をやる。省略。

    'xかyが0ならウインドウの大きさを考えて自動的に画像の幅、高さを決定する。省略。

    'ヘッダ内にファイルサイズを書き込む必要があるので、ファイルサイズの計算をしておく。省略。

    'ヘッダを作る。省略。

    '書き込み開始

    'ファイルを簡易的に開く。
    Open Dest As #1

    'ビットマップ用のヘッダ(BMヘッダ)を書き込む。 
    Field #1,54
    Put #1,1,FileHeader

    'ファイルにビットマップを埋め込む準備
    Field #1,1
    X=55
    'ビットマップそのものの書き込みはここから。
    For I=y-1 To 0 Step -1 
        For J=0 To x-1 
            '指定の形式でファイルに書き込んでいく。
        Next J 
        '形式上のつじつまあわせを行う。
    Next I 
    'ファイルを閉じる。
    Close #1
    'EOS(End Of Sub)
End Sub