發新話題

Visual Basic 教學 - 《陳述式》SelectCase

Visual Basic 教學 - 《陳述式》SelectCase

根據某訪客無法瀏覽此圖片或連結,請先 註冊登入會員 的值,來決定要執行哪段訪客無法瀏覽此圖片或連結,請先 註冊登入會員
語法:
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
Select Case 陳述式的語法具有以下幾個單元:
單元 描述
testexpression必要引數,此為任何的訪客無法瀏覽此圖片或連結,請先 註冊登入會員 訪客無法瀏覽此圖片或連結,請先 註冊登入會員
expressionlist-n如果 Case 出現,則為必要引數,其形式可為以下多種情形:運算式,運算式 To 運算式,Is 比較運算式。To 訪客無法瀏覽此圖片或連結,請先 註冊登入會員 可用來指定數值範圍,如果您使用 To 關鍵字,則較小的數值要出現在 To 之前,使用 Is 關鍵字時,則可以配合訪客無法瀏覽此圖片或連結,請先 註冊登入會員 ( 除 IsLike 之外 ) 來指定數值範圍,如果沒有題供,則 Is 關鍵字會自動插入。
statements-n選擇性引數,如果 testexpression 合乎某部份的expressionlist-n,則會執行相對應的陳述式。
elsestatements選擇性引數,如果 testexpression 都不合乎任何的 Case 子句,則會執行這部份的陳述式。

 
請注意
如果 testexpression 合乎某個 Case expressionlist 運算式, 則在 Case 子句之後的陳述式會被執行,直到下一個 Case 子句,如果是最後一個子句,則會執行到 End Select 。 然後控制權會轉移到 End Select 之後的陳述式,如果 有一個以上的 Case 子句中的 expressionlist 運算式合乎 testexpression 的條件,則只有最先的那一段之中的陳述式會被執行。
testexpression和所有的 Case 子句中的 expressionlist 都不合乎時,則會執行 Case Else 子句中的指令,雖然 Case Else 不是必要的,但是在您的 Select Case區塊中,最好還是加上 Case Else 陳述式來處理特別的 testexpression 值。如果沒有 Case expressionlist 合乎 testexpression ,而且也沒有 Case Else 陳述式,則程式會從 End Select 之後的陳述式繼續執行。
您可以在每個 Case 子句中使用多重運算式或使用範圍,例如,底下的陳述式是正確的:
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber附註   Is 比較運算元和使用在 Select Case 陳述式中的 Is 關鍵字並不相同。
您也可以針對字串指定範圍和多重運算式,在底下的例子中, Case 所合乎的字串為:等於 everything 、按英文字母排列的從 nutssoup 之間的字串、以及 TestItem 所代表的現值。
Case "everything", "nuts" To "soup", TestItemSelect Case 陳述式也可以是巢狀,但每個 Select Case 陳述式必須要有相對的 End Select 陳述式。

Select Case 程式碼範例本範例使用 Select Case 陳述式來判斷變數的值。範例中第二個 Case 子句因子包含了此變數值,故只有此區塊內的陳述式會被執行到,執行結果在「即時運算」視窗中顯示。
Dim NumberNumber = 8   ' 設定變數初值。Select Case Number   ' 判斷 Number 的值。  Case 1 To 5   ' Number 的值在 1 到 5 之間,是非排它性的。    Debug.Print "Between 1 and 5"  ' 下一個 Case 子句是本範例中唯一判斷值為 True 的子句。  Case 6, 7, 8   ' Number 的值在 6 到 8 之間。    Debug.Print "Between 6 and 8"  Case 4, 8 To 10   ' Number 的值為 4, 8, 9, 或 10。    Debug.Print "Greater than 8"  Case Else   ' 其它數值。    Debug.Print "Not between 1 and 10"End SelectSelect Case 配合控制項陣列運用範例本範例有三個單選鈕控制項(OptionButton) optAlign(0)~optAlign(2)以控制項陣列建立,
行時若按下三者之一,除了該項單選鈕的屬性 Value 的值會改變成 True,也會觸發事件程序
optAlign_Click,而以 Index 整數值得以區分按下的是三個之中那一個,運用 Select Case
陳述式分別作不用的處置。
訪客無法瀏覽此圖片或連結,請先 註冊登入會員


TOP

蔡逸竹大大

蟲子有疑問

            Text1.Alignment = 0   左對齊

可是在執行的時候 是Text1.text  在動

不是text1在動耶...

textBOX   文字方塊 用來輸入顯示  程式在跑  是內容再跑(text1.text)

不是textbox再跑  但是 程式碼   Text1.Alignment = 0    "文字方塊移動

可是 為什麼是內容再跑

蟲子把Text1.Alignment = 0    改成 text1.text Alignment = 0    (錯誤)

TOP

發新話題

本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。