vb 小结

前段时间做的TDK的手持机的项目，在wince平台上用vb语言开发，先做vb小结

Vb与c#相似

以下是vb的写法

1， 带有返回值的函数 以function开头，传参 以ByRef打头 并且以as 类型结尾

2， 不用传参的函数 以sub开头，传参 以ByRef打头 并且以as 类型结尾

'***********************************************************************
 'Process Name : GetComdyByHacchu
 'Introduce　　　: 根据行编号和采购编号获取商品信息（采购单）/
 'Parameter　　　: 
 'Return Value: 
 'Creat Date : 2011/07/12 wanwenyou
 'Update Date : 
 'Memo　　　　　 : 
 '***********************************************************************
 Public Function GetComdyByHacchu(ByRef i_OrderNo As String, _
 ByVal i_strHaccGno As String) As System.Data.DataTable

 GetComdyByHacchu = Nothing

 Dim w_dsData As DataSet = Nothing

 Try

 Me.StrBSql = New StringBuilder

 StrBSql.Append(" SELECT H.HacchuNo,H.HacchuGyoNo, H.OrderQuantity, H.AllCount, M.CommoditySize, M.Type, M.UnitCd ,M.Commodityname,M.CommodityNo ")
 StrBSql.Append(" FROM T_HacchuShosai AS H LEFT OUTER JOIN M_Commodity AS M ON H.CommodityNo = M.CommodityNo ")
 StrBSql.Append(" WHERE H.HacchuNo = '" + i_OrderNo + "' AND H.HacchuGyoNo = '" + i_strHaccGno + "'")

 If Not Me.Ado.ExecuteDataSet(StrBSql.ToString, w_dsData) Then
 Exit Function
 End If

 If IsNothing(w_dsData) OrElse w_dsData.Tables(0).Rows.Count > 0 Then

 GetComdyByHacchu = w_dsData.Tables(0)
 End If

 Catch ex As Exception
 Throw New IsecException(ex.ToString)
 Finally
 Me.StrBSql = Nothing
 End Try
 End Function
 '***********************************************************************
 'Process Name : SetFormValue
 'Introduce　　　: 画面数据初始化处理/
 'Parameter　　　: 
 'Return Value: 
 'Creat Date : 2011/06/27 xuxiaohu
 'Update Date : 
 'Memo　　　　　 : 
 '***********************************************************************
 Private Sub SetFormValue()

 Try

 '画面显示设置/
 Call SetVisibleButton()

 Me.txtPoNo.Focus()

 Catch ex As Exception
 Throw ex
 End Try
 End Sub

　　

3， ByRef 相当于c#中的ref

4， 定义变量 用 dim开头

5， 传参时Optional 为可选参数，可选参数必须初始化