如何将任意图形转换成256色.pdfVIP

• 如何將任意圖形轉換成 256 色,256 灰階,16 色或是單色圖檔 說明 之前用的方式是直接透過檔案轉換的方式 速度相對也就比較慢 這次 C.K. Tsai 提供了用 Bitblt 去轉換 速度也就快多了 主要的步驟是這樣 1. 產生所需要格式 DC 物件(如 256 色 16 色 或是單色) 1.建立記憶體 DC hDC = CreateCompatibleDC(0) 2.設定點陣圖資訊以及所需的調色盤 bi= 3.由記憶體 DC 及點陣圖資訊結構，建立 Bitmap hDIB = CreateDIBSection(hDC, bi, DIB_RGB_COLORS, i, 0, 0) 4.記憶體 DC 選取此 256 色 Bitmap OldObj = SelectObject(hDC, hDIB) 2. 用 Bitblt 將原圖複製到新的 DC 上 1.將圖形由 PictureBox 轉移至新的 Bitmap 之記憶體 DC， BitBlt()會自動處理色系轉換 Call BitBlt(hDC, 0, 0, bm.bmWidth, bm.bmHeight, pic.hDC, 0, 0, vbSrcCopy) 3. 合成檔案 1.產生 BitmapFileHeader BMP 檔案 檔頭資訊 bf=... 2.產生 BitmapInfoHeader 點陣圖資訊 + ColorTable 就是剛剛合成的 bi 3.取得點陣圖資料陣列 從新的 Bitmap 取出點陣資料，放入 Buffer Call GetDIBits(hDC, hDIB, 0, (bm.bmHeight), buffer(0), bi, 0) 4.寫入檔案 Put #fp, 1, bf Put #fp, , bi Put #fp, , buffer 不難了解吧 完整的程式如下 這邊 C.K. Tsai 已經幫我們包裝了 SaveBMP256,SaveBMP16,SaveBMP2 這三個函數 如果要將 Picture1 上的圖示轉成 256 色 存到 256.bmp 只要呼叫 Call SaveBMP256(Picture1, App.Path \256.bmp) 就可以了 程式 以下程式在模組 原作:C.K. Tsai Option Explicit Type BitmapFileHeader BMP 檔案 檔頭資訊 bfType As String * 2 =BM bfSize As Long =BMP 檔案大小 bfReserved1 As Integer =0, Reserved. bfReserved2 As Integer =0, Reserved. bfOffBits As Lon