güsel... hoşuma gitti bu. Visual basicde olan komutlardan hariç olarak yapılan şeyler hoşuma gider. Düşünüyorum, o halde varım.

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" 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 + Len 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 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