VB.Net程序设计:图片存储到SQLServer数据库里的界面代码。

这两天写的一个图片存储到sqlServer数据库里的界面代码。

主要界面：

代码说明：

ItemImgClass：是一个封装的对图片信息记录的操作，如更新、插入删除记录，获取所有记录。

ItemImgDataModel：是一个封装的图片信息记录的数据模块。

添加记录：用存储过程-有插入理图片数据。但默认值为null
更新记录：用存储过程-没有处理图片数据。

Imports System.IO Public Class FrmItemImg Dim OPCls As New ItemImgClass Dim DM As ItemImgDataModel Dim ImgPathMain,ImgPathSnd As String Dim fs As FileStream Private Sub LoadDataTB() Dim tb As New DataTable tb = OPCls.GetTableCN() Me.Dv.DataSource = tb.DefaultView End Sub Private Sub ShowMsg() Me.ShowMsg("") End Sub Private Sub ShowMsg(ByVal msg As String) Me.LB.Text = String.Format("消息:{0}",msg) End Sub Function <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DM(ByVal iType As Integer) As ItemImgDataModel Dim dm As New ItemImgDataModel dm.ItemNo = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text dm.Years = Me.CmbYears.Text dm.BigType = Me.CmbBigType.Text dm.SmlType = Me.CmbSmlType.Text dm.DescripEN = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripEN.Text dm.DescripCN = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripCN.Text dm.UpdateTime = Me.DTPImgUpdateTime.Text dm.ImgFileName = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName.Text dm.ImgFileName2nd = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName2nd.Text '<a href="https://www.jb51.cc/tag/tianjiajilu/" target="_blank" class="keywords">添加记录</a>：存储过程-有插入理<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据。但默认值为null '更新记录：存储过程-没有处理<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据。 dm.ImgBinary = Nothing dm.ImgBinary2nd = Nothing Select Case iType Case 1 Case 2 'If ImgPathMain > "" Then ' 'dm.ImgBinary = getImgBinary(1) ' fs = New FileStream(ImgPathMain,FileMode.Open) ' Dim bt(fs.Length) As Byte ' fs.Read(bt,fs.Length) ' dm.ImgBinary = bt ' fs.Close() 'End If 'If ImgPathSnd = "" Then ' 'dm.ImgBinary2nd = getImgBinary(2) ' fs = New FileStream(ImgPathSnd,fs.Length) ' dm.ImgBinary = bt ' fs.Close() 'End If End Select dm.Remarks = Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Remarks.Text Return dm End Function Private Function ChkSaveData() As Boolean If Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text = "" Then ShowMsg("输入<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>的货号!") Return False End If If Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image Is Nothing And Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image Is Nothing Then If Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("没有选择要保存的<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>，是否继续保存记录。",Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Style.YesNo + Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Style.DefaultButton2,"保存<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>记录") = Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Result.No Then Return False End If End If Return True End Function Private Sub BtAddNewRs_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtAddNewRs.Click Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text = "" Me.CmbYears.Text = "" Me.CmbBigType.Text = "" Me.CmbSmlType.Text = "" Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripEN.Text = "" Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripCN.Text = "" Me.DTPImgUpdateTime.Value = Now.Date() Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Remarks.Text = "" Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Nothing Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Nothing Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName.Text = "" Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName2nd.Text = "" ClearImgPathNull() End Sub Private Sub BindCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>TB() Dim TbYear,TbBigType,TbSmlType As New DataTable Dim YearCls As New YearClass Dim ImgTypeCls As New ImgTypeClass TbYear = YearCls.GetTable() TbBigType = ImgTypeCls.GetBigTypeTB() TbSmlType = ImgTypeCls.GetSmlTypeTB() Me.CmbYears.DataSource = TbYear.DefaultView Me.CmbYears.DisplayMember = "Years" Me.CmbYears.ValueMember = "Years" Me.CmbYears.SelectedIndex = -1 YearCls = Nothing Me.CmbBigType.DataSource = TbBigType.DefaultView Me.CmbBigType.DisplayMember = "Types" Me.CmbBigType.ValueMember = "Types" Me.CmbBigType.SelectedIndex = -1 Me.CmbSmlType.DataSource = TbSmlType.DefaultView Me.CmbSmlType.DisplayMember = "Types" Me.CmbSmlType.ValueMember = "Types" Me.CmbSmlType.SelectedIndex = -1 ImgTypeCls = Nothing End Sub Private Sub ClearImgPathNull() ImgPathMain = "" ImgPathSnd = "" End Sub Private Sub BtSaveRs_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtSaveRs.Click If ChkSaveData() = False Then Exit Sub Dim dm As ItemImgDataModel If OPCls.CheckRsExist(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text) Then '更新,不更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>。 dm = <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DM(1) If OPCls.AddAndUpdateImg(dm) Then OPCls.UpdateImg(dm.ItemNo,ImgPathMain,ImgPathSnd) ClearImgPathNull() ShowMsg("<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>或更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息成功。") LoadDataTB() Else ClearImgPathNull() ShowMsg("<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>或更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息失败。") End If Else '插入,插入<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>。 dm = <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DM(2) If OPCls.AddAndUpdateImg(dm) Then OPCls.UpdateImg(dm.ItemNo,ImgPathSnd) ClearImgPathNull() ShowMsg("<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>或更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息成功。") 'RefreshDvRs() Else ShowMsg("<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>或更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息失败。") ClearImgPathNull() End If End If End Sub Private Sub FrmItemImg_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load LoadDataTB() BindCmb<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>TB() End Sub Private Sub BtDeleteRs_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtDeleteRs.Click If Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text > "" Then If OPCls.Delete(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text) Then ShowMsg("<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息数据<a href="https://www.jb51.cc/tag/shanchu/" target="_blank" class="keywords">删除</a>成功。") Else ShowMsg("<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>信息数据<a href="https://www.jb51.cc/tag/shanchu/" target="_blank" class="keywords">删除</a>失败。") End If End If End Sub Private Sub BtClose_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtClose.Click Me.Close() End Sub Private Sub Dv_CellClick(ByVal sender As Object,ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dv.CellClick If e.RowIndex > -1 Then Dim dm As New ItemImgDataModel dm = OPCls.GetItemImgDM(Dv.Rows(e.RowIndex).Cells(0).Value) Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text = Dv.Rows(e.RowIndex).Cells(0).Value Me.CmbYears.Text = Dv.Rows(e.RowIndex).Cells(1).Value Me.CmbBigType.Text = Dv.Rows(e.RowIndex).Cells(2).Value Me.CmbSmlType.Text = Dv.Rows(e.RowIndex).Cells(3).Value Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripEN.Text = Dv.Rows(e.RowIndex).Cells(4).Value Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>DescripCN.Text = Dv.Rows(e.RowIndex).Cells(5).Value Me.DTPImgUpdateTime.Value = Dv.Rows(e.RowIndex).Cells(6).Value Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName.Text = Dv.Rows(e.RowIndex).Cells(7).Value Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName2nd.Text = Dv.Rows(e.RowIndex).Cells(8).Value Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Remarks.Text = Dv.Rows(e.RowIndex).Cells(9).Value '--加载相应的<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>。 If dm.ImgBinary IsNot Nothing Then Dim ms As New MemoryStream(dm.ImgBinary) Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Image.FromStream(ms) ms.Close() ms.Dispose() Else Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Nothing End If If dm.ImgBinary2nd IsNot Nothing Then Dim ms As New MemoryStream(dm.ImgBinary2nd) Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Image.FromStream(ms) ms.Close() ms.Dispose() Else Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Nothing End If End If End Sub Private Sub TSMIPikNewImg_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMIPikNewImg.Click Dim p As String = "" p = ChooseAFile("选择一个<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>","<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>|*.jpg;*.gif;*.png;*.bmp") If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then ImgPathMain = "" If p > "" Then ImgPathMain = p Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName.Text = IO.Path.GetFileName(ImgPathMain).ToLower Dim fs As FileStream = New FileStream(ImgPathMain,FileMode.Open) Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Image.FromStream(fs) fs.Close() fs.Dispose() Else ShowMsg("<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>路径或<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>无效。") End If ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then ImgPathSnd = "" If p > "" Then ImgPathSnd = p Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ImgFileName2nd.Text = IO.Path.GetFileName(ImgPathSnd).ToLower Dim fs As FileStream = New FileStream(ImgPathSnd,FileMode.Open) Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Image.FromStream(fs) fs.Close() fs.Dispose() Else ShowMsg("<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>路径或<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>无效。") End If End If End Sub Private Sub ShowMaxImg(ByVal iType As Integer) Select Case iType Case 1 If ImgPathMain > "" Then Dim mfrm As New FrmShowMaxImg(ImgPathMain) mfrm.ShowDialog() Else If Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image IsNot Nothing Then Dim mfrm As New FrmShowMaxImg(Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image) mfrm.ShowDialog() Else ShowMsg("没有<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据，无法<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>。") End If End If Case 2 If ImgPathSnd > "" Then Dim mfrm As New FrmShowMaxImg(ImgPathSnd) mfrm.ShowDialog() Else If Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image IsNot Nothing Then Dim mfrm As New FrmShowMaxImg(Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image) mfrm.ShowDialog() Else ShowMsg("没有<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据，无法<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>。") End If End If End Select End Sub Private Sub TSMIShowMaxImg_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMIShowMaxImg.Click If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then ShowMaxImg(1) ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then ShowMaxImg(2) End If End Sub Private Sub CleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(ByVal iType As Integer) Select Case iType Case 1 ImgPathMain = "" Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Nothing Case 2 ImgPathSnd = "" Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Nothing Case 3 ImgPathSnd = "" Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image = Nothing ImgPathMain = "" Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image = Nothing End Select End Sub Private Sub TSMICleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Data_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMICleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Data.Click If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then CleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(1) ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then CleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(2) End If End Sub Private Sub UpdateImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(ByVal iType As Integer) If Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text > "" Then Select Case iType Case 1 If ImgPathMain > "" Then OPCls.UpdateImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,ImgPathMain) ShowMsg("更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>成功。") End If Case 2 If ImgPathSnd > "" Then OPCls.UpdateImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,ImgPathSnd) ShowMsg("更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>成功。") End If Case 3 If ImgPathMain > "" Then OPCls.UpdateImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,ImgPathMain) End If If ImgPathSnd > "" Then OPCls.UpdateImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,ImgPathSnd) End If ShowMsg("更新<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>成功。") End Select End If End Sub Private Sub TSMIUpdateImg_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMIUpdateImg.Click If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then UpdateImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(1) ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then UpdateImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(2) End If End Sub Private Sub TSMISaveImgToDisk_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMISaveImgToDisk.Click Dim p As String = "" Dim filter As String = "PNG<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>格式|*.png|JPG<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>格式|*.jpg|GIF<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>格式|*.gif|BMP位图格式|*.bmp" If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then If Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image IsNot Nothing Then p = SaveAFile("保存<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>",filter) If p > "" Then Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Image.Save(p) ShowMsg("保存<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>成功!" & p) End If Else ShowMsg("没有<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据。") End If ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then If Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image IsNot Nothing Then p = SaveAFile("保存<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>",filter) If p > "" Then Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Image.Save(p) ShowMsg("保存<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>成功!" & p) End If Else ShowMsg("没有<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>数据。") End If End If End Sub Private Sub DeleteImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(ByVal iType As Integer) If Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text > "" Then Select Case iType Case 1 OPCls.DeleteImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,DeleteImgFlag.MainImg) Case 2 OPCls.DeleteImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,DeleteImgFlag.SndImg) Case 3 OPCls.DeleteImg(Me.Txt<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>ItemNo.Text,DeleteImgFlag.AllImg) End Select End If End Sub Private Sub TSMIDeleteImg_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TSMIDeleteImg.Click If Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.Name Then DeleteImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(1) ElseIf Me.CMenuForPic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.SourceControl.Name.ToString = Me.Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.Name Then DeleteImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(2) End If End Sub Private Sub TSMI2ImgOpCleanS_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles TSMI2ImgOpCleanS.Click CleanImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>(3) End Sub Private Sub TSMI2ImgOpUpdateS_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles TSMI2ImgOpUpdateS.Click UpdateImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(3) End Sub Private Sub TSMI2ImgOpDeleteS_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles TSMI2ImgOpDeleteS.Click DeleteImg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Bin(3) End Sub Private Sub Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main_DoubleClick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Main.DoubleClick ShowMaxImg(1) End Sub Private Sub Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd_DoubleClick(ByVal sender As Object,ByVal e As System.EventArgs) Handles Pic<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>Snd.DoubleClick ShowMaxImg(2) End Sub End Class

类似的旧一点的文章：http://blog.csdn.net/linjimu/archive/2008/08/01/2754893.aspx

原文链接：https://www.f2er.com/vb/262794.html

VB.Net程序设计:图片存储到SQLServer数据库里的界面代码。

猜你在找的VB相关文章