vb打字游戏问题

想在单击按钮的时候弹出窗口，上面有选择难度的slider，可是老师没教过怎么用，你知道怎么用吗，要不还有什么更好的办法吗，选择文字落下的速度？

答案：现在一步一步说明:
1.首先添加一个窗体名为Form2
2.添加部件：Microsoft Windows Common Controls 6.0，因为要使用slider控件需要添加此部件.
3.再Form2上添加一个slider控件，并设置其的max，min值比如设置min的值为-400，max的值为400，max的值要小于你的标签正常下落时的Timer的Interval值(假设为500，下面用500来说明)，并且max与min这两个一定要是相反数，这样能使得slider的指针处于中间，表示难度处于正常状态，如图所示，可以参考
窗体设计好了，下面添加代码
1.再Form1中添加代码
Public speed As Long '定义一个公共变量来接收slider的变化值(非常重要，这是两个窗体联系的关键)
Private Sub Command1_Click()'单击按钮弹出窗口Form2
    Form2.Show
End Sub
 
Private Sub Form_Load()‘设置正常速度为500，就是正常下落时的Timer1.Interval 
    speed = 500
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = speed
Label1.Top = Label1.Top + 100
End Sub
2.在Form2中添加如下代码
Private Sub Form_Load()
    Slider1.TickStyle = sldTopLeft
    Slider1.TickFrequency = 50
End Sub
Private Sub Slider1_Change()
    Form1.speed = 500 - Slider1.Value
End Sub
好了，你可以测试，原理明白了你就可以按照你的要求自己改了.
另外如果不用slider也是可以控制速度的，用两个button，把Form2做成下面的样子即可，控制方法与slider一样，就不细说了.
设置min、max就可以了，在change事件里依据slider的value设置timer的interval
假设分3级，min设为1，max为3
Private Sub Slider1_Change()
Select Case Slider1.Value
Case 1
Timer1.Interval = 500
Case 2
Timer1.Interval = 300
Case 3
Timer1.Interval = 100
End Select
End Sub
给个思路：
文件下落的速度用时间控件的周期大小来控制，在选择难度的按扭事件中，加入其时间周期属性，进行增加或减少，就可实现了
难度可以添加个 时间按钮来控制就行了。
时间越短 难度越大。

上一个：怎样填写VB程序代码
下一个：皇家战棋VB源码？