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

loozhi

只是请教一些小问题，见笑。。 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

用ComboSubj2_Change事件

loozhi

lzh741206发表于2004-4-2 23:20:00用ComboSubj2_Change事件

请教。。。。


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


请教，是哪里问题吗？？

loozhi

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