当前位置:编程学习 > VB >>

请大家棒棒看看程序到底是哪里的问题!

--------------------编程问答-------------------- 我觉得 主要问题 就在  Private Sub Timer1_Timer() 时间按钮和  Private Sub Command1_Click()命令按钮 里面······希望各位高手帮帮忙  给点思路 谢谢 !!!
              --------------------编程问答-------------------- 当选中option时,在option的事件中修改Timer1的定时长度,即:
如:
Option1:Timer.Interval=500
Option2:Timer.Interval=300
Option3:Timer.Interval=100
等。 --------------------编程问答-------------------- 问题是你这样跳过很多东西,不是学习正道。一点点学过来,自己能写程序再说。总拿别人写的改,那除非你已经比别人学得更好才行。 --------------------编程问答-------------------- Private Sub Option1_Click()
Timer1.Interval = 500
End Sub

Private Sub Option2_Click()
Timer1.Interval = 300
End Sub

Private Sub Option3_Click()
Timer1.Interval = 100
End Sub
是这样子写的么???
  ···但是好像 还是不对啊····· --------------------编程问答--------------------
引用 3 楼 theforever 的回复:
问题是你这样跳过很多东西,不是学习正道。一点点学过来,自己能写程序再说。总拿别人写的改,那除非你已经比别人学得更好才行。


我知道 我只是想练习练习  毕竟多看看别人的代码 对自己也是有帮助的 虽然我还达不到立刻就能把这个程序写出来  但是大致的意思 我都理解的差不多了 还有我只是根据我的理解去给他加点功能 只是按自己的思路给他加个判断  如果选中 初级 也就是option1   他的速度是50  如果选中 中级 也就是option2 他的速度是150   从理论上来说 我这种判断应该是对   就是运行的时候 出现了一些问题 只是不知道出在了哪里  希望大家帮忙分析下   一起学习一起探讨嘛····· --------------------编程问答-------------------- 人要是不逼自己一把,就永远不知道自己的能力有多大! --------------------编程问答--------------------
引用 4 楼 zsczjq 的回复:
Private Sub Option1_Click()
Timer1.Interval = 500
End Sub

Private Sub Option2_Click()
Timer1.Interval = 300
End Sub

Private Sub Option3_Click()
Timer1.Interval = 100
End Sub
是这样子写的么???
 ……


那里不对?什么现象? --------------------编程问答-------------------- 在Timer1_Timer中应该加上DoEvents --------------------编程问答--------------------
引用 4 楼 zsczjq 的回复:
Private Sub Option1_Click()
Timer1.Interval = 500
End Sub

Private Sub Option2_Click()
Timer1.Interval = 300
End Sub

Private Sub Option3_Click()
Timer1.Interval = 100
End Sub
是这样子写的么???
……

把事件换换⋯⋯
--非要采用这种方式啊? --------------------编程问答--------------------
引用 7 楼 z_wenqian 的回复:
引用 4 楼 zsczjq 的回复:
Private Sub Option1_Click()
Timer1.Interval = 500
End Sub

Private Sub Option2_Click()
Timer1.Interval = 300
End Sub

Private Sub Option3_Click()
Timer1.Interval = 100
En……




这样写 和我前面的一样 还是 不管选择 初级 还是中级 还是高级   他们向下移动的速度是一样 没有改变·····
       --------------------编程问答-------------------- ··················求 高手 讲解下 把  谢谢了···························
····· --------------------编程问答-------------------- 你会哪步,不会哪步啊 --------------------编程问答--------------------
引用 12 楼 clear_zero 的回复:
你会哪步,不会哪步啊


就是 里面的一个 时间控件 里面的IF 判断  If Option1.Value = True Then           '如果选中初级
        Label1.Top = Label1.Top + 50      '每过一段时间间隔,字符向下移动50
    ElseIf Option2.Value = True Then       '如果选中中级
        Label1.Top = Label1.Top + 150     '每过一段时间间隔,字符向下移动150
    ElseIf Option3.Value = True Then       '如果选中高级
        Label1.Top = Label1.Top + 300     '每过一段时间间隔,字符向下移动300
    End If
这一段是我写的    但是运行的时候  不管我选择初级也好 还是高级也好  他的显示的速度还是 一样的······我想问一下 怎么才能让他实现 不一样的速度
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,