VB最新使用教程

Visual Basic是一種由 微軟公司開發的結構化的、模塊化的、面向對象的、包含協助開發環境的事件驅動爲機制的可視化程序設計語言。
這是一種可用於微軟自家產品開發的語言。它源自於BASIC編程語言。
VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，能夠輕易的使用DAO、RDO、ADO鏈接數據庫，或者輕鬆的建立Active X控件。

Public Class Form1

#Region "【基本數據類型】"
    '整型（Integer，類型符%）
    '長整型（Long，類型符&） 
    '單精度浮點數（ Single ）
    '雙精度浮點數（ Double ）
    '貨幣型(Currency，類型符@)    小數點後的位數是固定的，4位 
    ' 字節型（Byte,無類型符）
    '日期型（Date） 
    ' 邏輯型（Boolean）  非0的數據轉換爲true,0爲fasle。 
    '字符串( String ，類型符$) 
    '對象數據類型(Object )  
    '變體數據類型(Variant ) 
    '用戶自定義類型 
#End Region
    '【數據類型的定義】
    'Dim 【變量名】 As 【數據類型】
    Dim Index As Integer

    '【數組的定義】
    Dim IndexArray(99) As Integer '這個數組包含100個元素，腳標從0到99
    Dim IndexArray1(0 To 99) As Integer '這個數組包含100個元素，腳標從0到99
    Dim IndexArray2(99, 88) As Integer '多維數組，下標都是從0開始

#Region "【自定義類型】"
    ' Type 自定義類型名  
    '元素名1 As 類型名  
    '元素名2 As 類型名  
    '……  
    '元素名n As 類型名  
    'End Type
#End Region
    Structure Student
        Dim Num As Long '學號  
        Dim Name As String  '姓名
        Dim Score As Single  '得分，用單精度數來存儲  
    End Structure

#Region " 關係運算符"
    '運算符        測試關係    表達式例子
    '=            相等        X=Y
    '<> 或 ><    不相等        X<>Y或X〉〈Y
    '<            小於        X<Y
    '>            大於        X〉Y
    '<=            小於或等於    X<=Y
    '>=            大於或等於    X>=Y
    'Like        比較樣式    　　
    'Is            比較對象變量    
#End Region


#Region "【方法的定義】"
    '[【訪問級別】] Sub 【方法名】 ([【參數】])
    '運算處理
    'End Sub

    '[【訪問級別】] Function 【方法名】 ([【參數】]) AS 【類型】
    '運算處理
    '【方法名】=【返回值】
    'End Function

    'ByVal傳遞的參數值，傳送參數內存的一個拷貝給被調用者 ；而ByRef傳遞的參數的地址，傳送參數內存的實際地址給被調用者。
#End Region
    '【方法的定義】 function是有返回值 sub 是沒有返回值 
    Public Sub AddStudent()
        Dim studentDemo As Student
        With studentDemo
            .Num = 11111111
            .Name = "Jason"
            .Score = 99.99
        End With
    End Sub

    Public Function AddStudent1() As Student
        Dim studentDemo As Student
        With studentDemo
            .Num = 11111111
            .Name = "Jason"
            .Score = 99.99
        End With
        AddStudent1 = studentDemo
    End Function

    Sub TestLoop(ByVal number As Integer)
        '【條件】
        If 1 = 1 Then
            MsgBox("Yes")
        Else
            MsgBox("No")
        End If

        If 1 = 1 Then
            MsgBox("Yes 1=1")
        ElseIf 1 = 2 Then
            MsgBox("Yes 1=2")
        Else
            MsgBox("No")
        End If

        Select Case number
            Case 1
                MsgBox("Yes 1=1")
            Case 2
                MsgBox("Yes 1=2")
            Case Else
                MsgBox("No")
        End Select

        Dim i As Integer = 0
        'For<循環變量>=<初值>To<終值>[Step步長] 
        '<循環體> 
        '[Exit For] 
        'Next<循環變量> 
        For i = 0 To 1
            MsgBox(i)
        Next

        'Do While
        '<循環體> 
        'Loop
        Do While 1 = 1 '條件爲true執行
            MsgBox("1 = 1")
            Exit Do
        Loop
        Do Until 1 <> 1 '條件爲true終止執行
            MsgBox("1 <> 1")
            Exit Do
        Loop
        Do
            MsgBox("先執行")
        Loop While 1 > 1 '先執行後判斷；While爲true繼續執行，Until爲false執行


        '        On Error GoTo ErrHandle '遇到錯誤轉移
        '        Exit Sub
        'ErrHandle:
        '        '錯誤處理語句.
    End Sub
#Region "【訪問級別】"
    'Public ：同一項目中任意位置的代碼，引用該項目的其餘項目，以及由該項目生成的任何程序集；
    '能夠在源文件級別或命名空間級別，或者在接口、模塊、類或結構內部聲明 public 元素，但不能在過程內聲明它。

    'Protected ：從同一個類內部或從該類派生的類中訪問元素；
    '僅能夠在聲明類的成員時和僅在類級別使用；不能在源文件級或命名空間級，或者在接口、模塊、結構或過程內部聲明它。

    'Friend ：同一程序集內部訪問元素，而不能從程序集外部訪問
    '能夠在源文件級別或命名空間級別，或者在接口、模塊、類或結構內部聲明 friend 元素，但不能在過程內聲明它。

    'Protected Friend ：派生類或同一程序集內，或二者皆可,僅能夠在聲明類的成員時且僅在類級別使用

    'Private ：以從同一模塊、類或結構內訪問元素
    '能夠在模塊、類或結構內部聲明 private 元素，但不能在源文件級別或命名空間級別、接口內部或者過程內聲明它。
#End Region

    '【屬性的定義】
    '【訪問級別】 【變量名】 As 【數據類型】
    Private _UserName As String    '用戶姓名屬性
    Public Property UserName As String
        Get
            UserName = _UserName
        End Get
        Set(value As String)
            _UserName = value
        End Set
    End Property

    '音量屬性，音量在0-100之間
    Private myVolumn As Integer
    Public Property Volumn
        Get
            Volumn = myVolumn
        End Get
        Set(value)
            If (value < 0) Then
                myVolumn = 0
            ElseIf (value > 100) Then
                myVolumn = 100
            Else
                myVolumn = value
            End If
        End Set
    End Property

    '【事件的定義】
    Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
        MsgBox("Hello World!")
        Call TestLoop(1)
    End Sub
End Class