(求助)textbox1.text为什么不会显示?
Public Class Form1Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If e.KeyCode = 13 Then
ComboBox1.Items.Add(ComboBox1.Text)
TextBox1.Text = ComboBox1.Items.Count
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Timer1.Enabled = False Then
Timer1.Enabled = True
Button1.Text = "停止"
Else
Button1.Text = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a, n As Integer
Randomize()
n = ComboBox1.Items.Count
a = Int(Rnd() * n)
ComboBox1.SelectedIndex = a
Label4.Text = ComboBox1.SelectedItem
End Sub
End Class
你的难道有问题? textbox1.text会显示
label4.text不显示
因为 ComboBox1.Items.Add(ComboBox1.Text)
出来的combobox1.text内容都是空白的
所以 label4.text显示出来也都是空白的
[[italic] 本帖最后由 hezhifang 于 2007-12-5 16:15 编辑 [/italic]] [quote]原帖由 [bold][underline]hezhifang[/underline][/bold] 于 2007-12-5 15:52 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1132615&ptid=190475][img]http://bbs.bc-cn.net/images/common/back.gif[/img][/url]
textbox1.text会显示
label4.text不显示
因为 ComboBox1.Items.Add(ComboBox1.Text)
出来的combobox1.text内容都是空白的
所以 label4.text显示出来也都是空白的 [/quote]
難道你就不會添加些東西再按回車!
都會顯示的!!!
不行
textbox1.text还是不会显示label4.text会显示 [attach]31074[/attach]
[attach]31075[/attach]怎么不可以了?只是顯示cmb控件的記錄數
回复
可能电脑有问题吧页:
[1]
