.NET(VB.NET)设计小技巧

时间：2008-07-30 来源：网游世界

.NET，VB.NET上的设计技巧，分享下，偶自己总结的：） 1、DropDownList异常：DropDownList 不能有多个项被选定。解决方法：
使用DropDownList1.SelectedIndex = 索引号对其操作。 2、清除Response.Write()显示使用Response.Clear()清除。 3、异常处理如下代码：

Try
 FileOpen(wenjh, lu, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
 Catch
 FileClose()
 tishi.Text = "未知错误01，请稍后重试……[请注意该程序有对文件的读取、修改、写入权限。]"
 tishi.Text &= ex.Message
 Exit Sub
 End Try

4、判断文件是否存在

命名空间："Microsoft.VisualBasic"、 "System.IO"

File.Exists("c:\abc.txt")

或

My.Computer.FileSystem.FileExists("c:\abc.txt")

为真，存在，Else不存在。

5、判断目录是否存在

My.Computer.FileSystem.DirectoryExists("目录名")

6、判断是否是第一次浏览

使用

If Not Page.IsPostBack Then response.write("第一次浏览！") else response.write("非第一次浏览！")

7、返回当前目录所有文件

Dim wenj As String
 wenj = Dir(Request.PhysicalApplicationPath & "*.*", FileAttribute.Normal)
 Do
 wenj = Dir()
 response.write(wenj &" ")
 Loop Until wenj = ""
'显示所有目录名，其参数为，FileAttribute.Directory

'注，Request.PhysicalApplicationPath返回当前操作目录。

8、.NET页面首次载入要执行的代码

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'所要的执行代码
end sub

9、相当与程序中的变量
由于.NET在执行每次操作时，都将重置网站数据，因为得需要一些东西来存储不能消失的数据。
ViewSite是首选。

10、清除字符串中的空格
Trim()，清除前后所有
Ltrim()，左面
Rtrim()，右面

11、返回与指定字符代码相关联的字符。
Public Function Chr(ByVal CharCode As Integer) As Char
Public Function ChrW(ByVal CharCode As Integer) As Char
CharCode
必选。Integer 表达式，表示字符的“码位”或字符码。如果 CharCode 不在有效范围之内，将发生 ArgumentException 错误。Chr 的有效范围是 0 到 255，而 ChrW 的有效范围是 -32768 到 65535。

12、定义定长的字符串

<VBFixedString(20)> public zifu as string '用于记录中。

13、定义错误页.NET里

If (Not IsPostBack) Then
Me.ErrorPage = "Error_Page.aspx"
End If

14、将指定文件的内容插入 ASP.NET 文件中，包括网页（.aspx 文件）、用户控件文件（.ascx 文件）和 Global.asax 文件。
#Include virtual="/include/header.inc"

15、禁用回发验证
<%@ Page Language="VB" EnableEventValidation="false"%>
ErrorPage
定义在出现未处理页异常时用于重定向的目标 URL。
EnableViewState
指示是否在页请求之间保持视图状态。如果要保持视图状态，则为 true；否则为 false。默认值为 true。

16、对多个记录变量赋值

With shcpz
                    .shcpz_01 = False
                    .shcpz_02 = pz2_02.Text
                    .shcpz_03 = pz2_03.Text
                    .shcpz_04 = pz2_04.Text
                    .shcpz_05 = pz2_05.Text
                    .shcpz_08 = pz2_08.Text
                    .shcpz_09 = pz2_09.Text
End With

17、遍历列表

For xunh = 0 To pz2_07.Items.Count - 1
'采用遍历的方法，如果获取项已经选择，由值给记录，并退出For循环。
If pz2_07.Items(xunh).Selected Then shcpz.shcpz_07 = pz2_07.Items(xunh).Value : Exit For
Next xunh
If pz2_07.Items(0).Selected Then tishi_z.Text = "请选择防盗链更新时间：）" : Exit Sub

18、判断两个单选项

If Not (pz2_010.Checked) And Not (pz2_011.Checked) Then
tishi_z.Text = "是否启用上传？"
Exit Sub
end if

19、获取服务器物理位置

Request.PhysicalApplicationPath

20、当前位置，即请求的ASPX文件名

Request.CurrentExecutionFilePath

'返回××文件准确位置。
Request.MapPath("wjanzhuang_1.aspx")

21、页面执行时间

Dim sj, sj1 As Double '定义两个双精度型变量
sj = Timer()'在开始执行处放上该行代码
sj1 = Timer()
sj = sj1 - sj '执行完毕后，放上这两行代码
Response.write("页面执行时间：" & sj &"秒") '显示页面执行时间

22、反向输出字符串
StrReverse(字符串)

…… 不好意思了啊，现在已经放弃.NET了；所以，相关的技巧，就到此为止了。