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

发布时间：2020-12-16 22:27:03 所属栏目：大数据来源：网络整理

导读：9.二维数组,针对第二维进行循环 Private Sub insertMatchData(ByVal data As Object(,)) For j = 0 To UBound(data,2) Step 1 注: 逗号后面的第二个参数指定为数组的第几维。 Ubound返回的是指定维数的index (如:数组data第二维有三个项目,item(0)~item(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:abc123 最后一位也是"" If strDirTemp(i) <> "" Then strPath += strDirTemp(i) & "" End If Next ' 判断文件夹是否存在 isDirExist = System.IO.Directory.Exists(strPath) End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!