vb.net编程过程中经验总结-2

9.二维数组,针对第二维进行循环

Private Sub insertMatchData(ByVal data As Object(,))

For j = 0 To UBound(data, 2) Step 1

注: 逗号后面的第二个参数指定为数组的第几维。

Ubound返回的是指定维数的index

(如:数组data第二维有三个项目,item(0)~item(2),则UBound(data, 2)返回的结果是2)

10.相对应java中的switch ，vb.net是select

Select Casetype

Case TYPE_D

' 地区级别

' 什么都不需要做

Case TYPE_R

' 大区级别

code = data.code.Substring(0, 3)

repeatKey = code + saledate

' 大区code重复确认

For i = 0 To region.Count - 1 Step 1

If repeatKey.Equals(region.Item(i)) Then

isRepeatedFlag = True

count += 1

End If

Next i

If isRepeatedFlag = False Or count < 4 Then

isRepeatedFlag = False

region.Add(repeatKey)

End If

data.code = code

End Select

注: vb.net的select中各个case结束的时候不需要break

11.取得系统日期

Try

sysYYYYMM = Format(Date.Today, "yyyyMMdd")

thisYearOfYYYY = sysYYYYMM.Substring(0, 4)

lastYearOfYYYY = (CInt(sysYYYYMM.Substring(0, 4)) - 1).ToString

monthCount = CInt(sysYYYYMM.Substring(4, 2))

Catch ex As Exception

System.Console.WriteLine("取得系统月日getSysDate() 出错")

End Try

12.类的构造函数

Public Sub New()

'设定SqlMap.config信息

mapper = builder.Configure

End Sub

注:定义了构造函数,这样在别的类中,定义变量时就可以new 该类,从而将该类中的变量初始化

13.类的拷贝

参加html"VB.NET中对象的克隆 (转载+亲自实践)"

http://hi.baidu.com/bigheadsheep/blog/item/2e967cc52c2fd90900e92800.html

14.判断文件夹路径是否存在,如果不存在则弹出提示框,确认是否需要创建

' 检查设定的输出报表路径是否存在

If isDirExist(Me.txtOutputPath.Text.Trim()) = False Then

' 设定的输出报表路径不存在的场合,确认是否要创建该路径

If MsgBox("设定的输出报表路径： " & Me.txtOutputPath.Text.Trim() & " 不存在，是否创建该路径？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

' 创建设定的文件夹

My.Computer.FileSystem.CreateDirectory(Me.txtOutputPath.Text.Trim())

Return True

Else

Me.txtOutputPath.Focus()

Return False

End If

End If

' "文件夹存在CHECK"

Private Function isDirExist(ByVal strPath As String) As Boolean

Dim strDirTemp As String()

strDirTemp = strPath.Split("\")

strPath = String.Empty

For i As Integer = 0 To strDirTemp.Length - 1

' 判断数组内容.目的是防止输入的strPath内容如:c:\abc\123\ 最后一位也是"\"

If strDirTemp(i) <> "" Then

strPath += strDirTemp(i) & "\"

End If

Next

' 判断文件夹是否存在

isDirExist = System.IO.Directory.Exists(strPath)

End Function