mevb.net的简单介绍

vb.net 求教一个基础问题Me是干什么用的?

Me就是自己，指所在的那个窗体或过程。

成都创新互联从2013年开始，是专业互联网技术服务公司，拥有项目做网站、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元白山做网站,已为上家服务,为白山各地企业和个人服务,联系电话:028-86922220

比如

Private Sub Form_Load()

Me.Width = 8000

Form1.Width = 8000

End Sub

在这个过程中的两个代码作用是一样的。

VB.NET的 Me.Close()和END有什么区别？

Me.Close()在只有一个窗体的时候会关闭这个窗体，当然程序也会自动地关闭。否则只是关闭Me指代的窗体

End是直接结束进程，很多后续操作会被忽略，推荐的程序关闭方法是Application.Exit()

VB.NET中关闭窗体代码，有的写me.close，有的只写end。请问，这两种代码，有何区别

me.close是关闭自身窗体，如果同时打开多个窗体，用me.close不能退出程序。

end是一个强大的退出指令，可以关闭所有窗体，并释放所有已占用的资源（当然有一些限制。所以自己主动释放是最好的）。

ASP.NET中实现多文件上传

在以前的Web应用中，上传文件是个很麻烦的事，现在有了.NET，文件上传变得轻而易举。下面的这个例子实现了多文件上传功能。可以动态添加输入表单，上传的文件数量没有限制。代码如下：

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

'状态信息

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

Dim iFile As System.Int32

Try

For iFile = 0 To files.Count - 1

'检查文件扩展名字

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("上传文件的扩展名：" + fileExtension + "brhr")

'可根据扩展名字的不同保存到不同的文件夹

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

目前万网虚拟主机针对无组件上传免费支持；aspxWeb.MultiUpload等组件，需要在万网的独立主机上注册后使用，虚拟主机暂时无法支持。以上实例仅供参考。