社区 › VB › [求助]请教combo和slider小问题。。

loozhi 发表于 2004-4-2 11:45:00

[求助]请教combo和slider小问题。。

只是请教一些小问题，见笑。。
Private Sub form_load()
       ComboSubj2.AddItem "1AB"
       ComboSubj2.AddItem "2CD"
       ComboSubj2.AddItem "3EF"
       ComboSubj2.AddItem "4GH"
End Sub
Private Sub ComboSubj2_Click()
       Select Case ComboSubj2.Text
                       Case "1AB"
                                       Label1 = 1
                                       Label2 = 10
                                       Slider1.Min = 1
                                       Slider1.Max = 10
                                       Slider1.SelStart = 1
                       Case "2CD"
                                       Label1 = 11
                                       Label2 = 20
                                       Slider1.Min = 11
                                       Slider1.Max = 20
                                       Slider1.SelStart = 11
                       Case "3EF"
                                       Label1 = 21
                                       Label2 = 30
                                       Slider1.Min = 21
                                       Slider1.Max = 30
                                       Slider1.SelStart = 21
                       Case "4GH"
                                       Label1 = 31
                                       Label2 = 40
                                       Slider1.Min = 31
                                       Slider1.Max = 40
                                       Slider1.SelStart = 31
                       End Select
End Sub
Private Sub Slider1_Change()
       Text7.Text = Str$(Slider1.Value)
End Sub
这样的程序是哪里错了？我才刚学，所以只能问点简单小白的问题了
可以帮帮我吗？？

雪山飞狐_lzh 发表于 2004-4-2 23:20:00

用ComboSubj2_Change事件

loozhi 发表于 2004-4-3 09:15:00

请教。。。。
我做的组合框combo中的Style属性值为2，好像是不能识别Change事件吧，我改了一下Dropdown事件，好像都还不行。。
请教，是哪里问题吗？？

loozhi 发表于 2004-4-4 15:53:00

奇怪，怎么我改用滚动条就可以设置min和max，可以实现预期目的，而用slider就不行，到底是他们有什么大的区别吗？？

查看完整版本: [求助]请教combo和slider小问题。。