[求助]请教combo和slider小问题。。
只是请教一些小问题,见笑。。Private Sub form_load()<BR> ComboSubj2.AddItem "1AB"<BR> ComboSubj2.AddItem "2CD"<BR> ComboSubj2.AddItem "3EF"<BR> ComboSubj2.AddItem "4GH"<BR>End Sub
Private Sub ComboSubj2_Click()<BR> Select Case ComboSubj2.Text<BR> Case "1AB"<BR> Label1 = 1<BR> Label2 = 10<BR> Slider1.Min = 1<BR> Slider1.Max = 10<BR> Slider1.SelStart = 1<BR> Case "2CD"<BR> Label1 = 11<BR> Label2 = 20<BR> Slider1.Min = 11<BR> Slider1.Max = 20<BR> Slider1.SelStart = 11<BR> Case "3EF"<BR> Label1 = 21<BR> Label2 = 30<BR> Slider1.Min = 21<BR> Slider1.Max = 30<BR> Slider1.SelStart = 21<BR> Case "4GH"<BR> Label1 = 31<BR> Label2 = 40<BR> Slider1.Min = 31<BR> Slider1.Max = 40<BR> Slider1.SelStart = 31<BR> End Select<BR>End Sub
Private Sub Slider1_Change()<BR> Text7.Text = Str$(Slider1.Value)<BR>End Sub
这样的程序是哪里错了?我才刚学,所以只能问点简单小白的问题了
可以帮帮我吗?? 用ComboSubj2_Change事件 lzh741206发表于2004-4-2 23:20:00static/image/common/back.gif用ComboSubj2_Change事件
请教。。。。
我做的组合框combo中的Style属性值为2,好像是不能识别Change事件吧,我改了一下Dropdown事件,好像都还不行。。
请教,是哪里问题吗?? 奇怪,怎么我改用滚动条就可以设置min和max,可以实现预期目的,而用slider就不行,到底是他们有什么大的区别吗??
页:
[1]