助けて

解決

ヘルプ 2007-01-25 19:52:54 No: 135005

解説をお願いします。

Type BITMAPFILEHEADER
    bfType As Integer
    bfSize As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bf0ffBits As Long
End Type
Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Integer
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type
Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type
Public bitfile As BITMAPFILEHEADER
Public bitinfo As BITMAPINFOHEADER
Public bitcolr(256) As RGBQUAD

ささき 2007-01-25 19:58:14 No: 135006

ただの変数宣言です。

BITMAPFILEHEADERのメンバは
    bfType As Integer
    bfSize As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bf0ffBits As Long
がありますよ〜。ってことです。
Public bitfile As BITMAPFILEHEADER
で型宣言してますので

bitfile.bfTypeという使い方ができます。

ささき 2007-01-25 20:03:35 No: 135007

ユーザ定義型(構造体)の解説については、

http://homepage1.nifty.com/CavalierLab/lab/vb/structure.html

こちらを読んだ方が理解しやすいかもしれません。

ヘルプ 2007-01-25 20:12:47 No: 135008

ささきさん。
一個一個の意味もわからないんです；；
未熟者ですみません。
解説を御願いします。

ヘルプ 2007-01-25 20:19:50 No: 135009

すいません。

こっちの解説がしりたいんでした。。。。。

さっきのは標準モジュールなのですが、こちらのフォームモジュールの
一行一行なにをしているか知りたいんです。

Private Sub Form_Load()
'BITMAPFILEHEADER
    bitfile.bfType = &H4D42
    bitfile.bfSize = 14 + 40 + 1024 + 25600
    bitfile.bf0ffBits = 14 + 40 + 1024
'BitMAPINFOHEADER
    bitinfo.biSize = 40
    bitinfo.biWidth = 256
    bitinfo.biHeight = 100
    bitinfo.biPlanes = 1
    bitinfo.biBitCount = 8
    bitinfo.biCompression = 0
    bitinfo.biSizeImage = 25600
    Dim bitcolor As Long
    Dim pdata As Byte
    Open "Z:\test6.bmp" For Binary As 1
        Put #1, , bitfile
        Put #1, , bitinfo
        pi = 3.14
        For i = 0 To 255
            r = 255 * Sin(i / 128 * pi)
            If r < 0 Then r = 0
            g = 255 * Sin((i - 64) / 128 * pi)
            If g < 0 Then g = 0
            b = 255 * Sin((i - 128) / 128 * pi)
            If b < 0 Then b = 0
            bitcolor = RGB(b, g, r)
            Put #1, , bitcolor
        Next i
        For j = 1 To 100
            For i = 0 To 255
                pdata = i
                Put #1, , pdate
            Next i
        Next j
    Close
    Form1.Show
    Print
    Print " Zドライブのルートに  'test6.bmp'というビットマップが作成されました"
    Print
    Print " ペイントなどで確認してみてください"
End Sub

ヘルプ 2007-01-25 21:13:35 No: 135010

ささきィ〜。
お前はよレス返せや！
ささきィ〜。
ささきィ〜。
ささきィ〜。
ささきィ〜。

ささき 2007-01-25 21:19:44 No: 135011

コメント書いている最中に
↑の投稿を見てモチベーションが下がってしまいました。

ごめんなさい。

近畿職業能力開発大学校のひとってホントと怖いですね。
私は社会人なので、打ち合わせなどあって即対応は難しいのです。

ヘルプ 2007-01-25 21:28:18 No: 135012

すいません