Question

vb text和Combo1的相通

Combo1本身有4个物定的内容 1、 正常 2、01 3、02 4、03 如何跟着text1的内容一起改变,不过关键在于一个text1中显示的内容不在Combo1四个只读内容之内,所以这就要显示为正常,要如何设置呢,

Answer 1

textbox的keydown事件里面判断textbox.text的值，如果是01，combo1就选01，以此类推，如果都不在就选正常。 追问： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text2.Text = "就诊卡" Then Combo2.Text = "正常收费" Else ' Combo2.Text = "正常收费" Text2.Text = Combo2.Text ’我这个有没有说那个跟那个同步， End If End If End Sub 回答： Text2.Text = Combo2.Text 改成循环判断 dim i as integer for i=0 to combo2.数量 if(combo2.item(i).text=text2.text) combo2.text=text2.text exit for else text2.text="显示正常" endif next