ComboBox的问题,非常急.

2007-07-10 12:38:47 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

pip使用国内镜像安装程序包或conda配置国内镜像源 pip install [需要安装的程序包] -i https://pypi.tuna.tsinghua.edu.cn/simple pip install opencv-python -i https://pypi.tuna.tsinghua.edu.cn/simple （这个是清华的镜像，有很多库或者插件都可以用这个下载，会快很多哦） # 国内其他镜像清华：https://pypi.tuna.tsinghua.edu.cn/simple 阿里云：http://mirrors.al 阅读详情

写了下面一段代码后,运行有个奇怪的现象.就是,用鼠标点开下拉框后,用键盘的上下键在下拉框里来回选择,然后在ComboBox以外的地方点下鼠标,这时候ComboBox里面显示的始终是第一个的"0".是.NET的BUG吗?这时候应该显示的是选择的那个才对,我看了下好像是Me.ComboBox2.Items.Clear()的问题,各位DX认为是什么原因呢?谢谢

Dim A As Short
Dim B As Boolean = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ComboBox2.Items.Clear()
Me.ComboBox2.Items.Add("0")
Me.ComboBox2.Items.Add("1")
Me.ComboBox2.Items.Add("2")
Me.ComboBox2.SelectedIndex = 0
B = True
End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

A = CShort(Me.ComboBox2.SelectedIndex)
If B = True Then
Call C()
End If
End Sub
Sub C()
B = False
Me.ComboBox2.Items.Clear()
Me.ComboBox2.Items.Add("0")
Me.ComboBox2.Items.Add("1")
Me.ComboBox2.Items.Add("2")
Me.ComboBox2.SelectedIndex = A
B = True
End Sub

...全文