如题：
我的小程序有两个按钮，一个“开始”，一个“结束”。可是当点击“开始”后，再点击“结束”，程序并未按照“结束”的代码运行。
按钮是否有优先级可以设置，我想做的功能是：点击“结束”，“开始”中的程序停止运行，只运行“结束”中的程序。

求高手指点一二。

求高手指点！

"开始"
内的代码呢？它的循环代码呢？

Option Explicit

Dim Status As Boolean, i As Long

Private Sub cmdCommand1_Click()
    Status = True: Timer1.Enabled = True
End Sub

Private Sub cmdCommand2_Click()
    Status = False: Timer1.Enabled = False
End Sub

Private Sub Form_Initialize()
    Status = False: i = 0
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    If Status = True Then
        i = i + 1
        txtText1.Text = i
        DoEvents
    End If
End Sub

你的程序没什么问题。

你是什么问题？
按下停止后， 定时器里的程序代码被停止执行了。
而 开始 按钮里没有循环啊。开始按钮是 激活 定时器 ，然后执行定时器里的代码。

Is this ?

Option Explicit

Dim i As Long, j As Long

Private Sub Command1_Click()
    Timer1.Enabled = True: Timer2.Enabled = False
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False: Timer2.Enabled = True
End Sub

Private Sub Form_Initialize()
    i = 0: j = 0
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
    If Timer1.Enabled = True Then
        i = i + 1
        Text1.Text = i
        DoEvents
    End If
End Sub

Private Sub Timer2_Timer()
    If Timer2.Enabled = True Then
        j = j + 1
        Text2.Text = j
        DoEvents
    End If
End Sub

 ???

按钮是否有优先级〜

这要看你代码怎写吧〜由代码决定优先等级〜或者.....用强制 GoTo 的〜只是这样不太好〜
是不太懂你真正要啥〜

之前还恶搞过〜用一个按钮处理开始和中断和结束〜毕竟VB的是单执行绪的〜
你不可能要求他同时做2件事〜只是CPU的会快到让你分不出是不是同时〜


[ 本帖最后由 wube 于 2011-6-9 19:57 编辑 ]