Tahribat.com Forumları
Visual Basic - Basic - PicBasic ve Türevleri
Zor Yoldan 24-Bit Bitmap Yüklemek...
Visual Basic - Basic - PicBasic ve Türevleri
Zor Yoldan 24-Bit Bitmap Yüklemek...
Zor Yoldan 24-Bit Bitmap Yüklemek...
-
Öncelike
projecnize
bir modul ekleyin ve
içine
############################################
Public Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Public Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
############################################
Sora büyükce bir form eklyin
AutoRedraw=false !!!! olmalı
Bir menu ekleyin menu click"e
############################################
Dim BMPHeader As BITMAPFILEHEADER
Dim BMPInfo As BITMAPINFOHEADER
Dim ImgBase As Integer
Dim i As Long
Dim bTmp As Byte
Dim C As Byte, R As Byte, G As Byte, B As Byte
Dim x As Long, y As Long
"-----------------------------------------------------
Open "test.bmp" For Binary Access Read As #1
Get #1, , BMPHeader
Get #1, , BMPInfo
ImgBase = BMPHeader.bfOffBits - (Len(BMPHeader) + Len(BMPInfo))
For i = 0 To ImgBase
Get #1, , bTmp
Next i
For y = BMPInfo.biHeight To 0 Step -1
For x = 1 To BMPInfo.biWidth
Get #1, , G
Get #1, , R
Get #1, , B
SetPixel Me.hdc, x, y, RGB(R, G, B)
Next x
If Not (BMPInfo.biWidth Mod 8) = 0 Then
Get #1, , C
Get #1, , C
End If
Next y
Close #1
############################################
işte bu kadar formunuza arkaplan olarak "test.bmp" atadınız :)
Copyright 2003 Criminal2 -
güsel... hoşuma gitti bu.
Visual basicde olan komutlardan hariç olarak yapılan şeyler hoşuma gider.
Toplam Hit: 1834 Toplam Mesaj: 2