Question

vb中combobox中如何提取当前的数值？

现在我建立了一个combobox，里面的list添加了2008到2050年份。。怎样才能提取当前选择的combobox数值。例如我选择2009。。我就会得到一个数值2009.
val()这个函数我用了，，就是读不出来combobox的值，始终显示的是label1

Private Sub Combo1_Change()
Label1.Caption = Val(Combo1.Text)
End Sub

请问下如何在combo1 change事件里实现数值改变？

Answer 1

我刚才已经说过了，combo1 change（）只是在你使用键盘输入或使用程序赋值combo1时候才会触发的事件，你还是使用你的过程，使用键盘输入一下就能看到label的改变了

Private Sub Command1_Click()
y = Val(Combo1.Text) '可以加减乘除的数值
Print y
Print y + 10
End Sub

Private Sub Form_Load()
For i = 2008 To 2050
Combo1.AddItem i & "年"
Next

按照你的说法，你应该改为这个过程
Private Sub Combo1_Change()
Label1.Caption = Val(Combo1.Text)'这个过程是键盘输入时候变化
End Sub

Private Sub Combo1_Click()
Label1.Caption = Val(Combo1.Text)'这个过程是鼠标点击时候变化
End Sub

Answer 2

val(combobox.text)

Answer 3

cint(combobox.text)

Answer 4

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub