vb 转换图片二进制数组

最新推荐文章于 2022-04-13 10:44:07 发布
最新推荐文章于 2022-04-13 10:44:07 发布
阅读量2.6k 收藏
点赞数
分类专栏： 杂谈 文章标签： vb byte
'假设Form 上已经存在Picture1的控件，并已经设置好图片
Dim PBag As New PropertyBag
Dim B() As Byte
PBag.WriteProperty "Picture", Picture1.Picture
'读取Picture1.Picture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
'这时 B 就时我们想要获得的Byte数组
'读取 Byte() 数组内容到 Picture
PBag.Contents = B '指定 PBag容器的内容
'读取容器中的图片

Set Picture1.Picture = PBag.ReadProperty("Picture")


出处：http://bbs.bccn.net/thread-248470-1-1.html

详解vb.net实现图片以二进制形式上传和读取到数据库
lhm19810710的专栏
10-29 2720
<br /> 本篇文章旨在vb.net下实现图片以二进制形式存到数据库，并能从数据库中读取显示出来，下面附了运行后的效果和代码例子<br />1. 导入图像文件，以二进制形式存入数据库表。<br />2. 从数据库表读取二进制信息，返原显示在页面的datagrid 中<br />数据库表结构设计：<br /> <br />效果图：<br /> <br />---Web.Config---<br /><?xml version="1.0" encoding="utf-8" ?><br /><configura
vba把图片转成二进制_图片，也可以作为数据添加到数据库中
weixin_39684995的博客
12-11 1189
大家好，我们继续讲解VBA数据库解决方案，今日讲解第43讲内容：如何向数据库中增加图片。这讲的内容我们要把图片存储入数据库中，把图片作为数据来处理。这讲的内容非常适合人事管理及一些图片必要管理的场合。我们看下面的数据库：现在我们要把备注单元格中作为图片管理，也就是说要把和对应员工编号的必要的图片放在F列的"备注"字段中，这个时候该如何处理呢？我们先打开我们的数据库：修改备注的字段为OLE对象，这时...
把图片转成二进制证picturebox控件读取
qinleiji的专栏
10-24 2988
<br />类<br /> using System;<br />using System.IO;<br />using System.Collections.Generic;<br />using System.ComponentModel;<br />using System.Data;<br />using System.Drawing;<br />using System.Linq;<br />namespace WindowsFormsApplication2<br />{<br />  pub
vba把图片转成二进制_数据库中图片数据的提取以及在工作表中还原显示的方法...
weixin_39954889的博客
12-10 690
大家好，我们继续讲解VBA数据库解决方案，今日讲解第44讲内容：如何把数据库中的图片显示在工作表上。这讲的内容和上一讲的内容是相反的，上一讲的内容是把图片存入数据库，我们今日讲的内容是要把数据库中的图片取出来存储入工作表中。实例，我们要根据下面的员工番号查找出人员的信息，并把信息放到工作表的适当位置中，我们先看看图片的数据在数据库中的祥子，如下图，提示的是一个长二进制数据。在我们的工作表中,如下图...
VB在二进制文件中提取图像.rar
07-10
VB在二进制文件中提取图像文件，提取VB源码中二进制文件中的所有图片资源ReadFrxRes，程序将最先分析一些二进制文件，诸如frm/frx,ctl/ctx等文件内的图像文件存储方式，然后把图像文件的Byte数组转换成StdPicture类型，再用PictureBox控件直接显示出图片。要注意，在使用PictureBox的时候，可能后面随着控件的不同会附着一些数据，再后面才是图片数据，使用BytesToPicture不能显示ICO文件和Cur文件,其它一般的图片格式可以正常显示。
VB.NET对图片读取操作
热门推荐
奋斗的蜗牛
09-14 1万+
VB.NET对图片的操作，SQL数据库中存取字段类型Image，下面对图片读取代码：        界面如下：
VB 将二进制图片文件转换为Base64字符串文本
09-16
VB 将二进制图片文件转换为Base64字符串文本
vb 对图像进行二值化处理 获取图片信息
11-20
可以对导入图像进行二值化处理，可以获取图片的信息。
从数据库中读取二进制字符并转化为图片
DaiDaiLiu的专栏
01-25 1577
private void Page_Load(object sender, System.EventArgs e){ string strSql = "select top 1 imgContent from tb_o_images order by imgSerial d
[VB]GDI+ IStream、StdPicture、Byte() 互转
tzwsoho的专栏
01-17 7573
很多年前就想做一个远程控制的软件，只是一直以来图片的压缩速度总是提升不上去，而我也参考过很多网上的关于图片压缩的例子，比如zyl910的GIF_LZW压缩方法，Huffman压缩方法，以至到GDI+的直接生成JPG、PNG的方法（这种方法无论从压缩率和速度上都是最佳的，可惜这种方法网上一直没找到直接保存为Byte()的例子，见得最多的例子就是用GdipSaveImageToFile保存到磁盘，然后
VB 图片转换为Byte()和从Byte()中读取图片的捷径
03-13
VB 图片转换为Byte()和从Byte()中读取图片的捷径
让VB的窗体从数组加载外部图片示例
05-12
内容索引:VB源码,界面编程,数组　　这个程序演示了如何让VB窗体从内置数组中加载外部图片，并显示，除此功能外，没有其它功能，适合VB初学者。效果图如上示。
VB 控件数组画图实例
06-07
VB 控件数组画图实例 VB 控件数组画图实例 VB 控件数组画图实例
.NET 图片格式转换
lc__________的博客
08-20 5396
bmp转tif Dim bmp As Bitmap = New Bitmap(f) Dim strTifDescFile As String = "C:/abc.tif" '黑白双色图片 Dim tifImageCodecInfo As ImageCodecInfo tifImageCodecInfo = GetEncoderInfo(ImageFormat.Tiff) Dim tifEnc
.net 中图片和byte的相互转换
qq_41425194的博客
04-13 1752
1.byte转Image public static Image BytesToImage(byte[] buffer) { MemoryStream ms = new MemoryStream(buffer); Image image = System.Drawing.Image.FromStream(ms); return image; } 2.Image转byte Bitmap bitma...
WPF(VB.NET) ImageSource 转 System.Drawing.Image
Seal203的博客
07-11 1930
Private Function ImageSourceConvertToGDI() As System.Drawing.Image         Dim stream As New MemoryStream() '内存流         Dim encoder As New System.Windows.Media.Imaging.BmpBitmapEncoder() '图形编码器  
B6在Picturebox显示数据库里的二进制的图片
newnazi的专栏
04-21 1093
Dim rstRecordset As ADODB.Recordset     Dim mstream As ADODB.Stream     Set rstRecordset = New ADODB.Recordset     rstRecordset.Open "Select * from EmployeeInfo where 员工编号='" & g_strEmployeeID & 
Image与byte[]之间的转换
fangyuan621的专栏
07-29 2427
//将image转化为二进制 public static byte[] GetByteImage(Image img) { byte[] bt = null; if (!img.Equals(null)) { using (MemoryStream mostream = new MemoryStream()) { .
VB中如何实从数据库中读写二进制图片信息
weixin_33795093的博客
05-05 460
以下VB代码是用来向数据库中读写图片信息的。函数中的两个参数分别提供数据表中存储图片信息的字段名和要存储的图片的路径信息。在读图片时提供数据表中存储图片信息的字段名参数就可以了，我在做软件时用的是ACCESS数据库，调用形式如下 WriteImage(RS.Fields("photos"), mstrFileName) RS是ADODB.Recordset的记录集对象。程序详...
vb6 将字符串转二进制数组
最新发布
02-08
<< 在 Visual Basic 6 (VB6) 中，将字符串转换为二进制数组的操作可以通过以下几种方法实现。这里介绍一种常见的做法：使用 `StrConv` 函数配合循环遍历每个字符并将其 ASCII 或 Unicode 值存入字节数组。 ### 方法一：使用 StrConv 函数 `StrConv` 是 VB6 内置的一个非常方便的函数，它可以轻松地在不同类型的编码之间进行转换，包括从字符串到字节序列的转换。 #### 示例代码： ```vb Function StringToByteArray(strInput As String) As Byte() ' 使用 StrConv 将字符串转换成 UTF-8 编码的字节数组 StringToByteArray = StrConv(strInput, vbFromUnicode) End Function Sub TestStringToByteArray() Dim strOriginal As String Dim byteArray() As Byte strOriginal = "HelloWorld" ' 调用函数将字符串转为二进制数组 byteArray = StringToByteArray(strOriginal) ' 打印出各个元素验证结果 Debug.Print "Byte Array Content:" For i = LBound(byteArray) To UBound(byteArray) Debug.Print byteArray(i); Next i End Sub ``` 在这个例子中，我们定义了一个名为 `StringToByteArray` 的辅助函数来封装具体的逻辑，并通过调用该函数演示了如何把简单的字符串 `"HelloWorld"` 变换为相应的字节数组。注意，默认情况下，`StrConv` 返回的是 ANSI 格式的字节数组；如果希望支持多语言文字，则应该指定合适的字符集类型（例如 `vbUnicode` 或其他特定于区域性的编码）。 ### 方法二：手动逐个字符读取并构建字节数组 对于某些特殊情况或特殊需求时，您也可以选择不依赖内建工具而是自己编写代码来进行这种转变。这种方式提供了更大的灵活性但同时也增加了复杂度。 #### 示例代码： ```vb Function ManualStringToByteArray(strInput As String) As Byte() Dim idx As Integer Dim lenStr As Long Dim result() As Byte lenStr = LenB(StrConv(strInput, vbFromUnicode)) ReDim result(lenStr - 1) For idx = 0 To lenStr - 1 Step 2 result(idx \ 2) = Asc(Mid$(strInput, idx / 2 + 1, 1)) Next idx ManualStringToByteArray = result End Function Sub TestManualStringToByteArray() Dim strOriginal As String Dim byteArray() As Byte strOriginal = "HelloWorld" ' 调用手动编写的函数将字符串转为二进制数组 byteArray = ManualStringToByteArray(strOriginal) ' 打印出各个元素验证结果 Debug.Print "Byte Array Content:" For i = LBound(byteArray) To UBound(byteArray) Debug.Print byteArray(i); Next i End Sub ``` 这种方法是直接利用 VBA/VBScript 提供的基础运算符和语句构造所需的输出形式。它适用于那些对性能敏感的应用场合以及当默认的方法无法满足特定业务规则的要求时作为替代方案之一。 无论哪种方式都实现了相同的目标——即把原始的文本信息转化为适合进一步处理的形式，具体选用哪一类取决于您的项目背景和个人偏好等因素影响。如果您只需要快速高效地完成任务而不必追求极致优化的话，建议优先尝试第一种更为简洁明了的办法即可！
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值