5.5.3 Excel VBA 的單選按鈕和復(fù)選框舉例策略

該實(shí)例主要用來(lái)區(qū)分單選按鈕與復(fù)選框的不同。

(1)首先在窗體中添加2個(gè)單選按鈕和2個(gè)復(fù)選框，再添加1個(gè)文本框和I個(gè)命令按鈕。當(dāng)用戶選擇了某幾項(xiàng)后，單擊命令按鈕，則在文本框中顯示當(dāng)前選定了嘟些項(xiàng)。將命令按鈕的Caption屬性設(shè)N為“確定”，分別將4個(gè)選擇控件的Caption屬性設(shè)置為“選項(xiàng)I"、“選項(xiàng)2-、“選項(xiàng)3"、“選項(xiàng)4-。添

加好控件的窗體如圖5.24所示.圖5.24創(chuàng)建好的窗體效果

(2)雙擊“確定”按鈕，在Command 1一lick事件中添加如下的代碼:

Private Sub Commandl Click()

Textl.Text一，您選擇7"

，如果選擇了單選按鈕1

If Optionl.Value一True Then

Textl.Text一Textl.Text+

End If

，如果選擇了單選按鈕2

If Option2.Value一True Then

Textl.Text一Textl.Text+

End If

，如果選擇了復(fù)選框1

If Checkl.Value一1 Then

Textl.Text一Textl.Text+

End If

，如果選擇了復(fù)選框2

If Check2.Value一1 Then

Textl.Text .Textl.Text+

End If

End Sub

，清空文本框

一選項(xiàng)1"

.選項(xiàng)2"

一選項(xiàng)3"

.選碩9"

(3)運(yùn)行這一段程序，選擇選項(xiàng)，單擊按鈕，即可看到在文本框中列出了當(dāng)前選擇的

選項(xiàng)。圖5.25所示是選擇了單選按鈕2及復(fù)選框1和2后的結(jié)果.由此可見，單選按鈕只能且

必須選一項(xiàng)，而復(fù)選框可以選擇不定數(shù)目的選頂。

說明:單選按妞在同一個(gè)容器中只能選擇其中的一個(gè)選項(xiàng)，如果共實(shí)現(xiàn)幾組單選

按粗，且其中每一組都可以選擇一個(gè)選項(xiàng)的功能，可以將每一組單選按妞放I在

一個(gè)容器內(nèi)，如Frame控件。