- 1、本文档共46页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- 最新最完整的的厂房设施确认实施方案.pdf
- 工程造价专业大学生职业生涯规划书.docx VIP
- 档案管理10号令解读(网).ppt
- 重庆《轻质隔墙条板应用技术标准》DBJ50T 338-2019.pdf
- (冀人版)科学五年级上册全册知识点.docx
- 电子工业版信息科技七年级上册3-1 “互联网+”在学习中的应用 教案.pdf VIP
- 2024-2025学年高中生物 第4章 种群和群落 第4节 群落的演替说课稿 新人教版必修3.docx
- 10 数学史问题与一元一次方程(含答案析) -七年级数学之专攻一元一次方程各种类型题的解法(人教版).docx
- 锅炉本体焊接作业指导书.pdf
- 钣金加工:折弯工艺手册.doc VIP
文档评论(0)