VBA｜使用表單控制項09：既可輸入又有列表的複合框

複合框控制項將文字框和清單方塊的特性結合在一起， 既可在控制項中的文字框部分輸入資訊， 也可在控制項的清單方塊部分選擇某項資訊。

下面以一個“用複合框生成電腦配件單”的實例來說明選項按鈕的使用。

Sub 核取方塊()

frmComputer.Show

End Sub

Private Sub UserForm_Initialize()

With cmbCPU

.AddItem "QX6850 3.0GHz"

.AddItem "QX6800 2.93GHz"

.AddItem "QX6700 2.66GHz"

.AddItem "X7800 2.6GHz"

.AddItem "X6800 2.93GHz"

.AddItem "E6850 3.0GHz"

.AddItem "E6750 2.66GHz"

.AddItem "E6700 2.66GHz"

.Text = .List(0)

End With

With cmbMem

.AddItem "512M"

.AddItem "1G"

.AddItem "2G"

.AddItem "3G"

.AddItem "4G"

.Text = .List(0)

End With

With cmbHDD

.AddItem "80G"

.AddItem "120G"

.AddItem "160G"

.AddItem "250G"

.Text = .List(0)

End With

With cmbDisp

.AddItem "CRT 19寸"

.AddItem "CRT 21寸"

.AddItem "LCD 17寸"

.AddItem "LCD 19寸"

.AddItem "LCD 22寸"

.Text = .List(0)

End With

End Sub

Private Sub cmdAdd_Click()

Dim str1 As String

str1 = "CPU：" & cmbCPU.Value & Chr(13)

str1 = str1 & "記憶體：" & cmbMem.Value & Chr(13)

str1 = str1 & "硬碟：" & cmbHDD.Value & Chr(13)

str1 = str1 & "顯示器：" & cmbDisp.Value

txtComputer.Value = str1

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub

在調用表單frmComputer後， 即可進行如下操作：

－End－