UC知道关于VB程序的简单问题 谢谢高手
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:29:39
大侠你们好 我想用COMBOBOX来让别人选择星期几 然后右边就显示相应的英语的话 这样写为什么运行起没效果 就用COMBOBOX 和 SELECT CASE的话
Option Explicit
Private Sub Combo1_Change()
Dim x As Integer
x = Val(Combo1.ListIndex)
Select Case x
Case 0
Label1.Caption = Monday
Case 1
Label1.Caption = "Tuesday"
Case 2
Label1.Caption = "Wendnesday"
Case 3
Label1.Caption = "Thirsday"
Case 4
Label1.Caption = "Friday"
Case 5
Label1.Caption = "Saturday"
Else
Label1.Caption = "Sunday"
End Select
End Sub
Option Explicit
Private Sub Combo1_Change()
Dim x As Integer
x = Val(Combo1.ListIndex)
Select Case x
Case 0
Label1.Caption = Monday
Case 1
Label1.Caption = "Tuesday"
Case 2
Label1.Caption = "Wendnesday"
Case 3
Label1.Caption = "Thirsday"
Case 4
Label1.Caption = "Friday"
Case 5
Label1.Caption = "Saturday"
Else
Label1.Caption = "Sunday"
End Select
End Sub
你这个代码里面有两处错误.
第一:
Label1.Caption = Monday 'Monday没双引号
第二:事件问题.你用的是change
如果要事件发生.那么用click.因为你是单击了某一选项.所以是单击事件.
我给你改的代码如下:
Private Sub Combo1_Click()
Dim x As Integer
x = Val(Combo1.ListIndex)
Select Case x
Case 0
Label1.Caption = Monday
Case 1
Label1.Caption = "Tuesday"
Case 2
Label1.Caption = "Wendnesday"
Case 3
Label1.Caption = "Thirsday"
Case 4
Label1.Caption = "Friday"
Case 5
Label1.Caption = "Saturday"
Case 6
Label1.Caption = "Sunday"
End Select
End Sub