手把手教你VB.NET DataGrid图片显示

开发 后端
这里主要解决VB.NET DataGrid显示的问题,主要从程序功能、建立数据库、窗体设计、、VB.NET DataGrid代码设计四个方面全面分析。 、

学习VB.NET时,你可能会遇到VB.NET上传图片并在DataGrid中显示的问题,这里将介绍VB.NET DataGrid显示问题的解决方法,在这里拿出来和大家分享一下。

#T#一、程序功能
当上传图片大小超过8K或格式不符时禁止上传,上传通过之后,用VB.NET DataGrid显示上传的图片

二、建立数据库
在MSSQL的NorthWind数据库中新建一个users表。

三、窗体设计:
1、新建ASP.NET Web应用程序,命名为DataGrid3,保存路径为http://192.168.0.1/DataGrid3(注:我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹)然后点击确定。

2、在解决方案资源管理器窗口中,将WebForm1.aspx重命名为UpPicture.aspx,然后从工具箱中向窗体添加一个Label控件、一个BUtton按钮.然后从一个HTML工具箱中向窗体添加一个File field控件窗体界面。

3、在解决方案资源管理器窗口中右击项目,选择添加-新项-Web窗体,名称设为ViewPicture.aspx。然后在打开的窗体中添加一个DataGrid控件。

4、右击DataGrid控件,再点击下方的“属性生成器”,打开“DataGrid属性窗口”。在“DataGrid属性窗口”点击“列”,取消“在运行时自动创建列”前的对勾,向选定的列中添加一个绑定列,在页眉文本中输入“序号”,在数据字段中输入ID。再向选定的列中添加一个绑定列,在页眉文本中输入“头像”,在数据字段中输入headimg。然后点击确定。

四、VB.NET DataGrid代码设计:
1、UpPicture.aspx

  1. Imports System.Data.SqlClient  
  2. Public Class WebForm1  
  3. Inherits System.Web.UI.Page  
  4. '窗体代码省略  
  5. '上传图片  
  6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  7. Dim img As String  
  8. '定义postedfile文件是储存用户上载的文件  
  9. Dim postedfile As HttpPostedFile = File1.PostedFile  
  10. '定义一个变量储存用户上载文件的大小  
  11. Dim intImgSize As Int32  
  12. '获取用户上传文件的大小,  
  13. intImgSize = postedfile.ContentLength  
  14. '如果要上传的文件不为空  
  15. If intImgSize <> 0 Then  
  16. '如果大于8K, 则禁止上传  
  17. If intImgSize > 8000 Then  
  18. Label1.Text = "图片太大" 
  19. Exit Sub  
  20. End If  
  21. '定义一个变量储存用户上传图片的文件类型  
  22. Dim strImgType As String = postedfile.ContentType  
  23. '只接受.gif格式的图片  
  24. Dim filesplit() As String = Split(strImgType, "/")  
  25. strImgType = filesplit(filesplit.Length - 1)  
  26. If strImgType <> "gif" Then  
  27. Label1.Text = "图片格式不对" 
  28. Exit Sub  
  29. End If  
  30.  
  31. '储存要上传的文件的整个路径  
  32. filesplit = Split(postedfile.FileName, "\")  
  33. '取得上传文件的文件名  
  34. Dim filename As String = filesplit(filesplit.Length - 1)  
  35. '将上传的图片保存到服务器当前目录的headimg文件夹中  
  36. postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename)  
  37. '定义一个变量储存服务器上当前上传图片的路径  
  38. Dim imgpath As String = "headimg\" & filename  
  39. img = "" 
  40. '将图片储存到数据库  
  41. Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")  
  42. scon.Open()  
  43. Dim scom As New SqlCommand("insert into users values (@img)", scon)  
  44. scom.Parameters.Add("@img", SqlDbType.VarChar).Value = img 
  45. Try  
  46. scom.ExecuteNonQuery()  
  47. Catch ex As Exception  
  48. End Try  
  49. scon.Close()  
  50. '转到查看图片窗口  
  51. Response.Redirect("ViewPicture.aspx")  
  52. End If  
  53. End Sub  
  54. End Class  

2、ViewPicture.aspx代码:

  1. Imports System.Data.SqlClient  
  2. Public Class ViewPicture  
  3. Inherits System.Web.UI.Page  
  4. ‘窗体代码省略  
  5. Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  6. Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")  
  7. Dim sda As New SqlDataAdapter("select * from users", scon)  
  8. Dim ds As New DataSet  
  9. Try  
  10. sda.Fill(ds)  
  11. Catch ex As Exception  
  12. End Try  
  13. DataGrid1.DataSource = ds 
  14. DataGrid1.DataBind()  
  15. End Sub  
  16. End Class   
责任编辑:田树 来源: 博客
相关推荐

2009-10-27 16:05:52

VB.NET File

2009-10-22 15:23:32

VB.NET函数

2009-10-28 14:25:17

VB.NET Sock

2011-01-06 10:39:25

.NET程序打包

2010-08-17 14:29:15

2010-01-08 18:37:08

VB.NET显示图片

2011-05-03 15:59:00

黑盒打印机

2011-01-10 14:41:26

2009-06-05 09:49:18

修改.NET Frammscorlib.dl

2011-02-22 13:46:27

微软SQL.NET

2021-02-26 11:54:38

MyBatis 插件接口

2021-12-28 08:38:26

Linux 中断唤醒系统Linux 系统

2009-11-10 15:18:35

VB.NET封面

2021-07-14 09:00:00

JavaFX开发应用

2021-08-04 08:55:02

Socket Java开发

2009-11-09 14:57:37

WCF上传文件

2020-04-14 10:20:12

MySQL数据库死锁

2021-09-30 18:27:38

数据仓库ETL

2011-03-25 12:45:49

Oracle SOA

2020-07-09 08:59:52

if else模板Service
点赞
收藏

51CTO技术栈公众号