锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net二进制转图片 vb 二进制文件读写

IT技术二进制

vb.net如何将图片转二进制'容易，用api，查一查SetBitmapBits
'新建工程，增加一个 command button，一个 picture box , 将图片加载到 picture box.
'将代码粘贴到 Form1
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long
Private Sub Command1_Click()
'Get information (such as height and width) about the picturebox
GetObject Picture1.Image, Len(PicInfo), PicInfo
'reallocate storage space
ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte
'Copy the bitmapbits to the array
GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
'Invert the bits
For Cnt = 1 To UBound(PicBits)
PicBits(Cnt) = 255 - PicBits(Cnt)
Next Cnt
'Set the bits back to the picture
SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
'refresh
Picture1.Refresh
End Sub
在VB.net中如何将图片转换成二进制保存到Accees中在access数据库里将字段vb.net二进制转图片的类型设置为ole对象
Public img As Byte() '图片处理用vb.net二进制转图片的字节数组
img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是vb.net二进制转图片你图片文件的路径
剩下的就是数据库插入操作vb.net二进制转图片了
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
Dim comm As OleDb.OleDbCommand
comm = New OleDb.OleDbCommand( _
"INSERT INTO Photo(BuFan_F,PhotoNo,Photo) Values('"Me.CobBuFan.Text.Trim"','"Me.txtNo.Text.Trim"',@image)", cn)
'向数据库添加存储vb.net二进制转图片了图片数据的二进制数组
comm.Parameters.Add("@image", _
OleDb.OleDbType.Binary, img.Length).Value = https://www.04ip.com/post/img
If cn.State = ConnectionState.Closed Then cn.Open() '打开数据库连接
comm.ExecuteNonQuery() '执行数据库命令
If cn.State = ConnectionState.Open Then cn.Close() '关闭数据库连接
MessageBox.Show("图片成功保存到数据库", "完成", MessageBoxButtons.OK, MessageBoxIcon.Information)
vb.net2003如何将二进制流转换成图片显示在网页上?好像没有什么好办法，你只有不用数值型的文本框，还是改用字符型的，这样不论点击哪里光标都会出现在最前面，然后在代码中用val()函数将其转换为数值型
【vb.net二进制转图片 vb 二进制文件读写】关于vb.net二进制转图片和vb 二进制文件读写的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：拍摄剧场用什么手机，拍摄剧场用什么手机比较好

    下一篇：java代码整行向前缩进，java代码整行向前缩进两个字符