VB.NET如何解决DataGrid显示问题

这篇文章将为大家详细讲解有关VB.NET如何解决DataGrid显示问题，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。

一、程序功能
当上传图片大小超过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文件夹）然后点击确定。

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

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

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

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

Imports System.Data.SqlClient  Public Class WebForm1  Inherits System.Web.UI.Page  '窗体代码省略  '上传图片  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Dim img As String  '定义postedfile文件是储存用户上载的文件  Dim postedfile As HttpPostedFile = File1.PostedFile  '定义一个变量储存用户上载文件的大小  Dim intImgSize As Int32  '获取用户上传文件的大小,  intImgSize = postedfile.ContentLength  '如果要上传的文件不为空  If intImgSize <> 0 Then  '如果大于8K, 则禁止上传  If intImgSize > 8000 Then  Label1.Text = "图片太大" Exit Sub  End If  '定义一个变量储存用户上传图片的文件类型  Dim strImgType As String = postedfile.ContentType  '只接受.gif格式的图片  Dim filesplit() As String = Split(strImgType, "/")  strImgType = filesplit(filesplit.Length - 1)  If strImgType <> "gif" Then  Label1.Text = "图片格式不对" Exit Sub  End If   '储存要上传的文件的整个路径  filesplit = Split(postedfile.FileName, "\")  '取得上传文件的文件名  Dim filename As String = filesplit(filesplit.Length - 1)  '将上传的图片保存到服务器当前目录的headimg文件夹中  postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename)  '定义一个变量储存服务器上当前上传图片的路径  Dim imgpath As String = "headimg\" & filename  img = "" '将图片储存到数据库  Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")  scon.Open()  Dim scom As New SqlCommand("insert into users values (@img)", scon)  scom.Parameters.Add("@img", SqlDbType.VarChar).Value = img Try  scom.ExecuteNonQuery()  Catch ex As Exception  End Try  scon.Close()  '转到查看图片窗口  Response.Redirect("ViewPicture.aspx")  End If  End Sub  End Class

ViewPicture.aspx代码：

Imports System.Data.SqlClient  Public Class ViewPicture  Inherits System.Web.UI.Page  ‘窗体代码省略  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")  Dim sda As New SqlDataAdapter("select * from users", scon)  Dim ds As New DataSet  Try  sda.Fill(ds)  Catch ex As Exception  End Try  DataGrid1.DataSource = ds DataGrid1.DataBind()  End Sub  End Class

关于“VB.NET如何解决DataGrid显示问题”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，使各位可以学到更多知识，如果觉得文章不错，请把它分享出去让更多的人看到。