我的程式大約如此,後來我做了計數器去檢查
可是每次程式大約跑了兩千多個流程
就自動跳開,查不出原因. 請高手指點一下
Private Sub Command1_Click()
On Error GoTo HANDEL
  '程式碼.... 
  'statement
  '程式碼....

Command1_Click
  Exit Sub
 
HANDEL:
'錯誤重複執行
  Command1_Click
  Exit Sub
End Sub
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(3) 人氣()


留言列表 (3)

發表留言
  • doit
  • 暫時取消 On Error GoTo HANDEL,執行程式就知道錯誤在哪.
  • seven
  • 你的遞迴沒結束
  • andoni
  • 我看了一下msdn的一個說明範例
    Private Sub Command1_Click()
    Main
    End Sub
    Sub Main()
    Static intX As Integer
      intX = intX + 1
      Main
    End Sub
    像這樣的堆疊空間不足的問題又該如何解決
    假使我需要算到的數值很多
    或我的流程需要跑好幾千個迴圈