VB語言基礎重要知識點06

  • 2019 年 10 月 6 日
  • 筆記

一、相關知識回顧

開始之前,我們一起來回顧一下if語句的格式。

以下回顧條件語句知識點:

用法1:

if 條件 then

這裡是符合條件下去執行的程式碼

end if

用法2:

if 條件 then

這裡是符合條件下去執行的程式碼

else

不符合情況下執行的程式碼

end if

二、if語句多個條件使用

提問:我們只能在if語句中用一個條件嗎?

回答:可以使用多個條件作為if語句的條件

提問:條件該怎麼寫?

回顧最簡單的if語句條件舉例:

if val(text1.text)>30 then

這裡是符合條件後,執行的程式碼

end if

val(text1.text) 就是代表數值,因為val函數就是將文本轉為數值

text1.text代表輸入的文本

假設輸入的文本是50,那麼text1.text的值為50,但是這個50此時為文本類型(字元串類型),字元串類型用""表示,實際上就是"50"

提問:那麼,多個條件在if語句中應該怎麼寫呢?

我們可以使用關鍵詞and和or。

and關鍵詞用在多個條件同時符合的時候最終才認為條件符合。

or關鍵詞使用時候,只要有一個條件符合,我們就最後最終條件是符合的。

舉例:

用法1:

if 條件1 and 條件2 and 條件3 then

這裡是同時符合三個條件的情況下,才能執行的程式碼。

end if

用法2:

if 條件1 or 條件2 or 條件3 then

這裡是只要有一個條件的情況下,就能執行的程式碼。

end if

用法3(混合使用and和or):

if 條件1 and 條件2 or 條件3 then

這裡按照從左到右的順序依次匹配結果,先看條件1和條件2結合後的結果,然後再將這個結果和條件3進行結合後再看結果,就能執行的程式碼。

end if

條件符合:即結果值為true

條件不合符:即結果值為false

一些規則:

true and true 結果為true

true and false 結果為false

結論:使用and時候,只要有一個為false,結果就為false

true or true 結果為true

true or false 結果為true

結論:使用or時候,只要有一個為true,結果就為true

三、關於控制項文本的獲取

目前學習了三個控制項,我們針對這幾個控制項中文本的獲取列舉如下:

1.標籤控制項label中的文本獲取舉例:label1.caption

2.文本框控制項textbox中的文本獲取舉例:text1.text

3.按鈕文本的文字獲取舉例:command1.caption

四、程式碼注釋說明

VB中注釋程式碼的符號使用英文狀態下單引號'

注釋就是說明的意思,用來解釋這個程式碼什麼意思

注釋的程式碼只是用來說明,不能被執行。

程式碼解釋:

'把按鈕的文本值賦值給窗體的標題

Form1.Caption = Command1.Caption

五、單選按鈕控制項

單選按鈕:控制項叫做optionbutton

如果在介面上雙擊這個單選按鈕控制項,會自動生成click單擊事件。

單選按鈕對應的文本修改屬性為option.caption

六、有關窗體控制

窗體控制的三種方法

1.默認情況下對窗體的屬性控制,可以省略窗體的名稱。

2.如果在控制的窗體在本窗體,那麼,可以使用me代替窗體名稱

3.想要控制哪個窗體就直接使用哪個窗體的名稱

七、有關顏色控制

顏色的使用的方法:

1.使用系統關鍵詞,比如紅色使用vbred

2.使用調色板找到需要的顏色,然後複製顏色程式碼

3.使用系統函數rgb來控制

系統三原色,使用的是紅red、綠green、藍blue

由這三種顏色可以調出任何的顏色。

在rgb函數中,每一種顏色的值的範圍是0~255,包含0,包含255

紅綠藍分別對應rgb函數中的三個參數,格式如下:

rgb(紅色值,綠色值,黃色值)

本節知識介面:

本節知識源碼:

Private Sub Command1_Click()  '注釋:列印輸入的文本內容  'Print Command1.Caption    Form1.Caption = Command1.Caption  Option1.Caption = "紅色"  Option2.Caption = "黑色"  Option3.Caption = "黃色"  End Sub    Private Sub Option1_Click()  Form1.BackColor = RGB(0, 255, 255)        End Sub    Private Sub Option2_Click()  Me.BackColor = vbBlack  End Sub    Private Sub Option3_Click()  BackColor = &HFFFF&  End Sub