從vb6到vb.net(一).ppt

  1. 1、本文档共46页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
從vb6到vb.net(一)

昇級Visual Basic 技術到Visual Basic. NET 講師簡介 議程大綱 VB6 、VB.NET語言的差異 VB.NET新功能介紹及範例 昇級現有的 VB 6 專案程式 VB6 v.s VB.NET 資料型態 Common Type System 1/2 Common Type System 2/2 VB.NET 新的資料型態 資料型態轉換 VB6的資料型態轉換方式 CInt()、 CStr()、… 使用新的Ctype() 轉換方式 語法:Ctype(expression, type_name) 物件的資料型態轉換方式 s=i.toString i=Integer.Parse(s) 型態轉換--範例 VB 6 Dim i as integer,s as string i=10 s=Cstr(i) VB.NET Dim i as integer, s as string i=10 s=Cstr(i) ‘VB6延用的使用方式 s=Ctype(i,string) ‘CType的使用方式 s=i.ToString ‘物件的使用方式 i=Integer.Parse(s) ‘字串轉數字 使用變數 宣告及初始化變數 宣告陣列 陣列的基底為 0 不能指定 lower bound To upper bound方式 Redim陣列 陣列使用--範例 1/2 VB 6 Dim month(1 to 6) as Integer VB.NET Dim month(5) As Integer ‘0,1,2,3,4,5 共6個註標 ‘Length=6 ‘Upper Bound=5 Dim month() As Integer = {1, 2, 3, 4, 5, 6} 陣列使用(Redim) --範例 2/2 變數範圍 變數範圍--範例 Sub AddTen() Dim I as integer ‘Procedure Scope ‘變數只有在區塊中是可見的 Msgbox(i.ToString) ‘成功,變數在程序範圍內 Msgbox(x.ToString) ‘錯誤, 變數已超出範圍外 End Sub 建立 Data Structures Data Structure--範例 VB 6.0 Private Type myCustomer Name As String Address As String Age As Integer End Type VB .NET Structure myCustomer Dim Name As String Dim Address As String Dim Age As Integer End Structure 編譯選項設定 Option Strict—範例 使用Shorthand 方式指定變數值 使用Shorthand ---範例 Option Parameter—範例 Return回傳值---範例 VB6 Function getData () as string …略 getData=“Result Data” End Function VB.NET Function getData () as string …略 getData=“Result Data” ‘或者是 Return “Result Data” End Function 使用參數陣列(ParamArrays) VB .NET 中的 ParamArrays 參數 使用 ByVal 傳遞( VB 6.0 是 ByRef ) 可以為任何型態( VB 6.0 是 Variant ) 不可以與 Optional 共用 參數陣列---範例 Sub Test(ByVal ParamArray X( ) As Object) Dim I As Integer For I = X.GetLowerBound(0) To X.GetUpperBound(0) MsgBox(X(I)) Next End Sub 例外處理(一) 例外處理---範例 2/2 Try...Catch Dim i1, i2, i3 As Decimal i1 = 22 i2 = 0 Try i3 = i1 / i2 MsgBox(i3.ToString) Catch eExcption As Exception MsgBox(eExecption.Message) Finally

文档评论(0)

daoqqzhuan3 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档