UC知道我的VB出什么问题了??
来源：百度知道 编辑：UC知道 时间：2024/05/25 08:26:28
为什么的的状态栏(text1)不显示当前组合框(combo)所显示的内容哩??
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub
Private Sub Command1_Click()
Combo1.AddItem Combo1.Text
Text1.Text = Combo1.Text
End Sub
Private Sub Command2_Click()
Combo1.RemoveItem Combo1.ListIndex
Text1.Text = ""
End Sub
还没有人回答啊?????
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub
Private Sub Command1_Click()
Combo1.AddItem Combo1.Text
Text1.Text = Combo1.Text
End Sub
Private Sub Command2_Click()
Combo1.RemoveItem Combo1.ListIndex
Text1.Text = ""
End Sub
还没有人回答啊?????
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub
Private Sub Command1_Click()
Combo1.AddItem Combo1.Text
Text1.Text = Combo1.Text
Combo1.ListIndex = Combo1.ListCount - 1
'因为每添加一条记录,会自动添加到最后一条,但COMBO本身LISTINDEX不会改变.所以本语句的作用就是将COMBO的LISTINDEX移到最后
End Sub
Private Sub Command2_Click()
If Combo1.ListCount > 0 Then
Combo1.RemoveItem Combo1.ListIndex
Text1.Text = ""
If Combo1.ListCount > 0 Then Combo1.ListIndex = Combo1.ListCount - 1
End If
End Sub