tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルSetDIBColorTableについて
記事No9142
投稿日: 2009/07/06(Mon) 19:15
投稿者shu
はじめまして。

●環境
・VB2005
・WindowsXP

モノクロの画像を高速で表示したいのですが
うまく表示できません。
どなたか教えて頂けないでしょうか?

カラーテーブルの値を変更する…。までは調べたのですが
SetDIBColorTable関数の戻り値が"0"となります。


*コード*

        Dim bmpInfo As BITMAPINFOHEADER
        Dim bmiColors(255) As RGBQUAD         ' DIBカラー設定格納


        bmpInfo.biBitCount = 8
        bmpInfo.biClrImportant = 0
        bmpInfo.biClrUsed = 0
        bmpInfo.biCompression = 0
        bmpInfo.biHeight = 480
        bmpInfo.biPlanes = 1
        bmpInfo.biSize = 40 ' SizeOf(BITMAPINFOHEADER)
        bmpInfo.biSizeImage = 307200
        bmpInfo.biWidth = 640
        bmpInfo.biXPelsPerMeter = 0
        bmpInfo.biYPelsPerMeter = 0

        ’カラーパレットを変更
        For i = 0 To 255
            bmiColors(i).rgbBlue = i
            bmiColors(i).rgbGreen = i
            bmiColors(i).rgbRed = i
            bmiColors(i).rgbReserved = 0
        Next i

    ↓戻り値が"0"となります。
    SetDIBColorTable(hdc, 0, 255, bmiColors(0))

知識不足ですみません。
よろしくお願いします。

[ツリー表示へ]