vb.net 求教一個(gè)基礎(chǔ)問題Me是干什么用的?

Me就是自己，指所在的那個(gè)窗體或過程。

成都創(chuàng)新互聯(lián)從2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元白山做網(wǎng)站,已為上家服務(wù),為白山各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:028-86922220

比如

Private Sub Form_Load()

Me.Width = 8000

Form1.Width = 8000

End Sub

在這個(gè)過程中的兩個(gè)代碼作用是一樣的。

VB.NET的 Me.Close()和END有什么區(qū)別？

Me.Close()在只有一個(gè)窗體的時(shí)候會(huì)關(guān)閉這個(gè)窗體，當(dāng)然程序也會(huì)自動(dòng)地關(guān)閉。否則只是關(guān)閉Me指代的窗體

End是直接結(jié)束進(jìn)程，很多后續(xù)操作會(huì)被忽略，推薦的程序關(guān)閉方法是Application.Exit()

VB.NET中關(guān)閉窗體代碼，有的寫me.close，有的只寫end。請(qǐng)問，這兩種代碼，有何區(qū)別

me.close是關(guān)閉自身窗體，如果同時(shí)打開多個(gè)窗體，用me.close不能退出程序。

end是一個(gè)強(qiáng)大的退出指令，可以關(guān)閉所有窗體，并釋放所有已占用的資源（當(dāng)然有一些限制。所以自己主動(dòng)釋放是最好的）。

ASP.NET中實(shí)現(xiàn)多文件上傳

在以前的Web應(yīng)用中，上傳文件是個(gè)很麻煩的事，現(xiàn)在有了.NET，文件上傳變得輕而易舉。下面的這個(gè)例子實(shí)現(xiàn)了多文件上傳功能?？梢詣?dòng)態(tài)添加輸入表單，上傳的文件數(shù)量沒有限制。代碼如下：

MultiUpload.aspx

%@ Page Language="vb" AutoEventWireup="false" Codebehind="MultiUpload.aspx.vb"

Inherits="aspxWeb.MultiUpload" %

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"

HTML

HEAD

title多文件上傳/title

script language="JavaScript"

function addFile()

{

var str = 'INPUT type="file" size="50" NAME="File"'

document.getElementById('MyFile').insertAdjacentHTML("beforeEnd",str)

}

/script

/HEAD

body

form id="form1" method="post" runat="server" enctype="multipart/form-data"

center

asp:Label Runat="server" ID="MyTitle"/asp:Label

P id="MyFile"INPUT type="file" size="50" NAME="File"/P

P

input type="button" value="增加(Add)" _disabledevent="addFile()"

asp:Button Runat="server" Text="上傳" ID="Upload"/asp:Button

input _disabledevent="this.form.reset()" type="button" value="重置(ReSet)"

/P

/center

P align="center"

asp:Label id="strStatus" runat="server" Font-Names="宋體" Font-Bold="True"

Font-Size="9pt" Width="500px" BorderStyle="None" BorderColor="White"/asp:Label

/P

/form

/body

/HTML

后代碼：MultiUpload.aspx.vb

Public Class MultiUpload

Inherits System.Web.UI.Page

Protected WithEvents Upload As System.Web.UI.WebControls.Button

Protected WithEvents MyTitle As System.Web.UI.WebControls.Label

Protected WithEvents strStatus As System.Web.UI.WebControls.Label

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

MyTitle.Text = "h3多文件上傳/h3"

Upload.Text = "開始上傳"

If (Me.IsPostBack) Then Me.SaveImages()

End Sub

Private Function SaveImages() As System.Boolean

'遍歷File表單元素

Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files

'狀態(tài)信息

Dim strMsg As New System.Text.StringBuilder("上傳的文件分別是：hr color=red")

Dim iFile As System.Int32

Try

For iFile = 0 To files.Count - 1

'檢查文件擴(kuò)展名字

Dim postedFile As System.Web.HttpPostedFile = files(iFile)

Dim fileName, fileExtension As System.String

fileName = System.IO.Path.GetFileName(postedFile.FileName)

If Not (fileName = String.Empty) Then

fileExtension = System.IO.Path.GetExtension(fileName)

strMsg.Append("上傳的文件類型：" + postedFile.ContentType.ToString() + "br")

strMsg.Append("客戶端文件地址：" + postedFile.FileName + "br")

strMsg.Append("上傳文件的文件名：" + fileName + "br")

strMsg.Append("上傳文件的擴(kuò)展名：" + fileExtension + "brhr")

'可根據(jù)擴(kuò)展名字的不同保存到不同的文件夾

postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("images/") + fileName)

End If

Next

strStatus.Text = strMsg.ToString()

Return True

Catch Ex As System.Exception

strStatus.Text = Ex.Message

Return False

End Try

End Function

End Class

目前萬網(wǎng)虛擬主機(jī)針對(duì)無組件上傳免費(fèi)支持；aspxWeb.MultiUpload等組件，需要在萬網(wǎng)的獨(dú)立主機(jī)上注冊(cè)后使用，虛擬主機(jī)暫時(shí)無法支持。以上實(shí)例僅供參考。