VB.NET对图片读取操作

VB.NET对图片的操作，SQL数据库中存取字段类型Image，下面对图片读取代码：

界面如下：

1、上传按钮代码

   Dim L_Err As String = ""Dim opd As OpenFileDialog = New OpenFileDialog()opd.CheckFileExists = Trueopd.CheckPathExists = Trueopd.RestoreDirectory = Trueopd.DefaultExt = "*.*"opd.Filter = "图像文件 (*.bmp;*.gif;*.jpg;*.jpeg;*.png)|*.bmp;*.gif;*.jpg;*.jpeg;*.png"opd.ShowDialog()If opd.FileName <> "" ThenMe.PicBox.Image = Image.FromFile(opd.FileName)Me.PicBox.ImageLocation = opd.FileNameEnd If

2、确定按钮代码

     If ToStr(Me.PicBox.ImageLocation).Trim() <> "" ThenTryDim sSql1 As String = ""'sSql1 = "insert into U_CallInfoSet(backImage) values(@fs)"  //插入或者更新语句sSql1 = "update U_CallInfoSet set backImage=@fs"SqlHelper.ExecuteSqlWithImg(sSql1, My.Computer.FileSystem.ReadAllBytes(Me.PicBox.ImageLocation))Catch ex As ExceptionMessageBox.Show(ex.ToString())End TryEnd If

    Public Function ToStr(ByVal obj As Object) As StringIf IsDBNull(obj) ThenReturn ""ElseIf obj Is Nothing ThenReturn ""ElseReturn obj.ToString().Trim()End IfEnd IfEnd Function

3、界面加载事件显示

'取得数据库字段 dt.Rows(0)("Pic")

     If  dt.Rows(0)("Pic") Is DBNull.Value ThenMe.PicBox.Image = NothingElseMe.PicBox.Image = GetImage(dt.Rows(0)("Pic"))End If

4、需要用到的方法

    ''' <summary>''' 字节数组转换为Image类型''' </summary>''' <param name="bData"></param>''' <returns></returns>''' <remarks></remarks>Public Function GetImage(ByVal bData As Byte()) As ImageTryUsing fStream As Stream = New MemoryStream(bData.Length)Dim bWriter As New BinaryWriter(fStream)bWriter.Write(DirectCast(bData, Byte()))bWriter.Flush()Dim bitMap As New System.Drawing.Bitmap(fStream)bWriter.Close()fStream.Close()Dim iImage As Image = System.Drawing.Image.FromHbitmap(bitMap.GetHbitmap())Return iImageEnd UsingCatch e As System.IO.IOExceptionThrow New Exception(e.Message & "Read image data error!")End TryEnd Function''' <summary>''' 处理SQL中操作Image类型''' </summary>''' <param name="strSQL">SQL语句</param>''' <param name="fs">图像字节,数据库的字段类型为image的情况</param>''' <returns>影响的记录数</returns>Public Shared Function ExecuteSqlWithImg(ByVal strSQL As String, ByVal fs As Byte()) As IntegerDim strCon As String = "Data Source=xxx;Initial Catalog=temp;User ID=sa;Password=123"Using connection As New SqlConnection(strCon)Dim cmd As New SqlCommand(strSQL, connection)Dim myParameter As New System.Data.SqlClient.SqlParameter("@fs", SqlDbType.Image)myParameter.Value = fscmd.Parameters.Add(myParameter)Tryconnection.Open()Dim rows As Integer = cmd.ExecuteNonQuery()Return rowsCatch e As System.Data.SqlClient.SqlExceptionThrow eFinallycmd.Dispose()connection.Close()End TryEnd UsingEnd Function

OK！

VB.NET对图片读取操作相关推荐

pillow模块批量读取图像、旋转、放缩、裁剪图片等操作
1_pillow模块批量读取图像.旋转.放缩.裁剪图片等操作(20190104 文章目录 1.pillow的安装和导入 2.pillow 读取.放缩.旋转.左右翻转.上下翻转图片操作 3.pillo ...
TF：利用TF读取数据操作，将CIFAR-10 数据集中的训练图片读取出来，并保存为.jpg格式
TF:利用TF读取数据操作,将CIFAR-10 数据集中的训练图片读取出来,并保存为.jpg 格式目录输出结果核心代码输出结果核心代码 def inputs_origin(data_dir) ...
php如何从mongo获取视频文件,使用mongodb对文件(图片、音频、视频)的存储、读取操作...
使用mongodb对文件(图片.音频.视频)的存储.读取操作实现代码示例: package mongo.util; import java.io.File; import java.io.IOExc ...
poi对word2003或者2007的图片读取和写入操作
poi对word2003或者2007的图片读取和写入操作 1.word2003版doc读取某个标签所在位置的值或者图片 HWPFDocument docDocument = new HWPFDocum ...
OpenCV基础操作_图片读取和保存
目录 1 图片读取 2 图片保存 1 图片读取在OpenCV中,加载图片采用imread()函数. 函数详细说明在:Reading and Writing Images and Video - Op ...
使用C#对Word进行读写、搜索、插入图片等操作
使用C#对Word进行读写.搜索.插入图片等操作一.C#中操作word的三种插件二.创建和保存word文档三.页面设置四.读写文本五.搜索功能六.插入图片参考文档一.C#中操作word ...
1 图片channels_深度学习中各种图像库的图片读取方式
深度学习中各种图像库的图片读取方式总结在数据预处理过程中,经常需要写python代码搭建深度学习模型,不同的深度学习框架会有不同的读取数据方式(eg:Caffe的python接口默认BGR格式,Te ...
Opencv 图片读取，显示，保存基本操作
Opencv的图片读取,显示,保存是图片操作的基础,实验用的图片来自于lenan:http://www.lenna.org/ 为了使用方便,主要是使用opencv的python版本的接口,其官网链接 ...
用VB实现带图片的XP风格的按钮控件
虽然在VB里实现XP风格很简单,但是要使用XP风格同时又让按钮显示图片,则实现起来要麻烦一些,为此,我写了一个控件来实现前述功能,同时让读者可以从中了解XP主题界面的绘制过程. 使用办法很简单,在VB ...

VB.NET对图片读取操作

VB.NET对图片读取操作相关推荐

最新文章

热门文章