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