一个VB的题

如图,我在最上面选者相应的动物名称,然后点击显示,最后在Frame中显示出相应的英文单词杂弄啊,还有个问题就是我的ComboBox上可以乱输入东西,杂才能让它不能输入东西,只能点选项

Private Sub Command1_Click()
Dim sum
sum = Combo1.Text

If sum = "" Then
Label1.Caption = "空的"
ElseIf sum = "马" Then
Label1.Caption = "Horse"
ElseIf sum = "啊" Then
Label1.Caption = "你选的是啊"
ElseIf sum = "呵" Then
Label1.Caption = "你选的是呵"
ElseIf sum = "西" Then
Label1.Caption = "你选的是西"
ElseIf sum = "猪" Then
Label1.Caption = "你选的是猪"
ElseIf sum = "猴" Then
Label1.Caption = "你选的是猴子"
ElseIf sum = "按这样写入自己要的动物" Then
Label1.Caption = "你选的是'安这样写入自己要的动物'"
End If

End Sub

Private Sub Form_Load()
Combo1.AddItem "猪"
Combo1.AddItem "啊"
Combo1.AddItem "呵"
Combo1.AddItem "西"
Combo1.AddItem "马"
Combo1.AddItem "猴"
Combo1.AddItem "按这样写入自己要的动物"
'Combo1.AddItem ""

'-----------------------------
'启动是状态
'-----------------------------
Command1.Caption = "显示"
Frame1.Caption = "显示相应的单词"
End Sub

Combo1控件的Style属性设置为2

好勒。这样完成勒。不懂在问

设置combox的dropdownstyle属性为dropdownlist可以只能选择下拉

改变你可以在combox的change事件里从数据库读取相应的英文给label

判断一下就可以了啊

简单的例子就是：

if combo1.text="马"

text1.text="Horse"

endif

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息