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

概述9.二维数组,针对第二维进行循环                               Private Sub insertMatchData(ByVal data As Object(,))                               For j = 0 To UBound(data, 2) Step 1                                    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.判断文件夹路径是否存在,如果不存在则d出提示框,确认是否需要创建 ' 检查设定的输出报表路径是否存在 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 总结

以上是内存溢出为你收集整理的vb.net编程过程中经验总结-2全部内容，希望文章能够帮你解决vb.net编程过程中经验总结-2所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。