Question

VB combo求助 一个combo1，一个text1，选择combo1中的某项，text1中显示对应的数值

Private Sub Combo1_Change()
Select Case Combo1.Index
Case 0
Text1.Text = "100"
Case 1
Text1.Text = "90"
End Select
End Sub

自己写的这个始终达不到效果。
另外如何修改combo1的属性，使得combo1.list中的内容只能选择，不能丢该

Answer 1

Private Sub Combo1_Change()
Select Case Combo1.Index
改成：
Private Sub Combo1_Click()
Select Case Combo1.ListIndex

Combo1的Style属性改为：2 - Dropdown List ，可以让Combo1只能选择，不能修改文本

追问

combo1的style属性可以在form load中定义吗？怎么写？

Answer 2

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "a"
Text1.Text = "100"
Case "b"
Text1.Text = "90"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "a"
Combo1.AddItem "b"
End Sub

Answer 3

locked就行吧