學(xué)習(xí)VB.NET時(shí)，你可能會(huì)遇到VB.NET上傳圖片并在DataGrid中顯示的問(wèn)題，這里將介紹VB.NET DataGrid顯示問(wèn)題的解決方法，在這里拿出來(lái)和大家分享一下。

#T#一、程序功能
當(dāng)上傳圖片大小超過(guò)8K或格式不符時(shí)禁止上傳，上傳通過(guò)之后，用VB.NET DataGrid顯示上傳的圖片

二、建立數(shù)據(jù)庫(kù)
在MSSQL的NorthWind數(shù)據(jù)庫(kù)中新建一個(gè)users表。

三、窗體設(shè)計(jì)：
1、新建ASP.NET Web應(yīng)用程序，命名為DataGrid3，保存路徑為http://192.168.0.1/DataGrid3（注：我機(jī)子上的網(wǎng)站的IP是192.168.0.1的主目錄是D:\web文件夾）然后點(diǎn)擊確定。

2、在解決方案資源管理器窗口中，將WebForm1.aspx重命名為UpPicture.aspx,然后從工具箱中向窗體添加一個(gè)Label控件、一個(gè)BUtton按鈕.然后從一個(gè)HTML工具箱中向窗體添加一個(gè)File field控件窗體界面。

3、在解決方案資源管理器窗口中右擊項(xiàng)目，選擇添加-新項(xiàng)-Web窗體，名稱(chēng)設(shè)為ViewPicture.aspx。然后在打開(kāi)的窗體中添加一個(gè)DataGrid控件。

4、右擊DataGrid控件，再點(diǎn)擊下方的“屬性生成器”，打開(kāi)“DataGrid屬性窗口”。在“DataGrid屬性窗口”點(diǎn)擊“列”，取消“在運(yùn)行時(shí)自動(dòng)創(chuàng)建列”前的對(duì)勾，向選定的列中添加一個(gè)綁定列，在頁(yè)眉文本中輸入“序號(hào)”，在數(shù)據(jù)字段中輸入ID。再向選定的列中添加一個(gè)綁定列，在頁(yè)眉文本中輸入“頭像”，在數(shù)據(jù)字段中輸入headimg。然后點(diǎn)擊確定。

四、VB.NET DataGrid代碼設(shè)計(jì)：
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文件是儲(chǔ)存用戶上載的文件  
Dim postedfile As HttpPostedFile = File1.PostedFile  
'定義一個(gè)變量?jī)?chǔ)存用戶上載文件的大小  
Dim intImgSize As Int32  
'獲取用戶上傳文件的大小,  
intImgSize = postedfile.ContentLength  
'如果要上傳的文件不為空  
If intImgSize <> 0 Then  
'如果大于8K, 則禁止上傳  
If intImgSize > 8000 Then  
Label1.Text = "圖片太大" 
Exit Sub  
End If  
'定義一個(gè)變量?jī)?chǔ)存用戶上傳圖片的文件類(lèi)型  
Dim strImgType As String = postedfile.ContentType  
'只接受.gif格式的圖片  
Dim filesplit() As String = Split(strImgType, "/")  
strImgType = filesplit(filesplit.Length - 1)  
If strImgType <> "gif" Then  
Label1.Text = "圖片格式不對(duì)" 
Exit Sub  
End If  
 
'儲(chǔ)存要上傳的文件的整個(gè)路徑  
filesplit = Split(postedfile.FileName, "\")  
'取得上傳文件的文件名  
Dim filename As String = filesplit(filesplit.Length - 1)  
'將上傳的圖片保存到服務(wù)器當(dāng)前目錄的headimg文件夾中  
postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename)  
'定義一個(gè)變量?jī)?chǔ)存服務(wù)器上當(dāng)前上傳圖片的路徑  
Dim imgpath As String = "headimg\" & filename  
img = "" 
'將圖片儲(chǔ)存到數(shù)據(jù)庫(kù)  
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()  
'轉(zhuǎn)到查看圖片窗口  
Response.Redirect("ViewPicture.aspx")  
End If  
End Sub  
End Class  

2、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