IMAGEM MONOCROMATICA 1 BIT
Olá amigos,
como faço para salvar uma umagem em formato monocromatico de 1 bit?
desde ja agradeço
como faço para salvar uma umagem em formato monocromatico de 1 bit?
desde ja agradeço
e ai galerinha nada? to precisando tando disso!
olá amigos!!!
aqui o código que uso a muito tempo no vb6... algem teria condiçoes de passa-lo para vbNET?
Sub SaveBMPFile(Pic As PictureBox, fName As String)
Dim SaveBitmapInfo As BITMAPINFO_1
Dim SaveFileHeader As BITMAPFILEHEADER
Dim SaveBits() As Byte
Dim BufferSize As Long
Dim fNum As Long
Dim RetVal As Long
Dim nLen As Long
Const BITSPIXEL = 1
Pic.ScaleMode = vbPixels [ô] vbMillimeters
[ô]size a buffer for the pixel data
BufferSize = ((Pic.ScaleWidth / 8 + 3) And &HFFFC) * Pic.ScaleHeight * BITSPIXEL
ReDim SaveBits(0 To BufferSize - 1)
[ô]fill the header info for the save copy
With SaveBitmapInfo.bmiHeader
.biSize = 40
.biWidth = Pic.ScaleWidth
.biHeight = Pic.ScaleHeight
.biPlanes = 1
.biBitCount = BITSPIXEL
.biCompression = 0
.biClrUsed = 0
.biClrImportant = 0
.biSizeImage = BufferSize
End With
nLen = Len(SaveBitmapInfo)
[ô]get the bitmap FROM the picturebox
RetVal = GetDIBits_1bit(Pic.hdc, Pic.Image, 0, SaveBitmapInfo.bmiHeader.biHeight, SaveBits(0), SaveBitmapInfo, DIB_RGB_COLORS)
If RetVal = 0 Then
MsgBox [Ô]Error saving Bitmap File[Ô], vbCritical, [Ô]Save Bitmap file error[Ô]
Exit Sub
End If
With SaveBitmapInfo
[ô].bmiColors(0).rgbBlue = 0
[ô].bmiColors(0).rgbGreen = 0
[ô].bmiColors(0).rgbRed = 0
[ô].bmiColors(1).rgbBlue = 102
[ô].bmiColors(1).rgbGreen = 204
[ô].bmiColors(1).rgbRed = 102 [ô] fz fundo verde
.bmiColors(0).rgbBlue = 0
.bmiColors(0).rgbGreen = 0
.bmiColors(0).rgbRed = 0
.bmiColors(1).rgbBlue = 255
.bmiColors(1).rgbGreen = 255
.bmiColors(1).rgbRed = 255 [ô] faz fundo branco
End With
[ô] create a header for the save file
With SaveFileHeader
.bfType = &H4D42
.bfSize = Len(SaveFileHeader) + nLen + BufferSize
.bfOffBits = Len(SaveFileHeader) + nLen
End With
[ô] save it to disk
fNum = FreeFile
Open fName For Binary As fNum
Put fNum, , SaveFileHeader
Put fNum, , SaveBitmapInfo
Put fNum, , SaveBits()
Close fNum
End Sub
desde já agardeço.
aqui o código que uso a muito tempo no vb6... algem teria condiçoes de passa-lo para vbNET?
Sub SaveBMPFile(Pic As PictureBox, fName As String)
Dim SaveBitmapInfo As BITMAPINFO_1
Dim SaveFileHeader As BITMAPFILEHEADER
Dim SaveBits() As Byte
Dim BufferSize As Long
Dim fNum As Long
Dim RetVal As Long
Dim nLen As Long
Const BITSPIXEL = 1
Pic.ScaleMode = vbPixels [ô] vbMillimeters
[ô]size a buffer for the pixel data
BufferSize = ((Pic.ScaleWidth / 8 + 3) And &HFFFC) * Pic.ScaleHeight * BITSPIXEL
ReDim SaveBits(0 To BufferSize - 1)
[ô]fill the header info for the save copy
With SaveBitmapInfo.bmiHeader
.biSize = 40
.biWidth = Pic.ScaleWidth
.biHeight = Pic.ScaleHeight
.biPlanes = 1
.biBitCount = BITSPIXEL
.biCompression = 0
.biClrUsed = 0
.biClrImportant = 0
.biSizeImage = BufferSize
End With
nLen = Len(SaveBitmapInfo)
[ô]get the bitmap FROM the picturebox
RetVal = GetDIBits_1bit(Pic.hdc, Pic.Image, 0, SaveBitmapInfo.bmiHeader.biHeight, SaveBits(0), SaveBitmapInfo, DIB_RGB_COLORS)
If RetVal = 0 Then
MsgBox [Ô]Error saving Bitmap File[Ô], vbCritical, [Ô]Save Bitmap file error[Ô]
Exit Sub
End If
With SaveBitmapInfo
[ô].bmiColors(0).rgbBlue = 0
[ô].bmiColors(0).rgbGreen = 0
[ô].bmiColors(0).rgbRed = 0
[ô].bmiColors(1).rgbBlue = 102
[ô].bmiColors(1).rgbGreen = 204
[ô].bmiColors(1).rgbRed = 102 [ô] fz fundo verde
.bmiColors(0).rgbBlue = 0
.bmiColors(0).rgbGreen = 0
.bmiColors(0).rgbRed = 0
.bmiColors(1).rgbBlue = 255
.bmiColors(1).rgbGreen = 255
.bmiColors(1).rgbRed = 255 [ô] faz fundo branco
End With
[ô] create a header for the save file
With SaveFileHeader
.bfType = &H4D42
.bfSize = Len(SaveFileHeader) + nLen + BufferSize
.bfOffBits = Len(SaveFileHeader) + nLen
End With
[ô] save it to disk
fNum = FreeFile
Open fName For Binary As fNum
Put fNum, , SaveFileHeader
Put fNum, , SaveBitmapInfo
Put fNum, , SaveBits()
Close fNum
End Sub
desde já agardeço.
e ai gente? nada? to precisando tando disso!
se algume pode ajudar!
se algume pode ajudar!
dando um UP...
será que é impossivel exportar uma imagem assim no vbnet?
será que é impossivel exportar uma imagem assim no vbnet?
dando um UP!!!!!!!!!!!!!!!!!
oi Gente.. achei esse código em C#... msa não consegui converter em VBnet.. se alguem com conhecimento avançado.. e poder dar uma força ai...
desde ja agradeço....
segue link http://support.microsoft.com/kb/77282/pt
desde ja agradeço....
segue link http://support.microsoft.com/kb/77282/pt
Estou na rua no mokento, mas tenbho um código para mexer com imqgens em VB.Net que poderá te ajudqr.
Tópico encerrado , respostas não são mais permitidas