請教 On Error Goto ErrHandler and On Error Resume Next 放的位置
Private Sub Command1_Click()
On Error Goto ErrHandler
.................
 ...主要程式碼....
 .................

if 條件符合 then
   Check1.SetFoucs (在Check1.Enabled = False時這裡會發生錯誤)
  end if      
 .................
 ...主要程式碼....
 .................
ErrHandler:
處理一大堆程式碼的錯誤
End Sub
像以上Check1.SetFoucs這種無關緊要之錯誤發生時,不想跳到ErrHandler: 請問該如何 Resume Next?
可以不可以 On Error Goto ErrHandler 和 On Error Resume Next 交叉混合使用?
如:
Private Sub Command1_Click()
On Error Goto ErrHandler
.................
 ...主要程式碼....
 .................

if 條件符合 then
   On Error Resume Next <------這裡先設定
   Check1.SetFoucs
  end if
  On Error Goto ErrHandler <------再回到原來設定
 .................
 ...主要程式碼....
 .................
ErrHandler:
處理一大堆程式碼的錯誤
End Sub
請多指教!謝謝!
創作者介紹

小吳 VBQA 程式設計討論

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


留言列表 (2)

發表留言
  • lk1888
  • 沒錯的確可以這樣做。
    但是若把上面的程式稍微改一下會更好。
    > if 條件符合 then
    >    Check1.SetFoucs (在Check1.Enabled = False時這裡會發生錯誤)
    > end if
    ==>
    if 條件符合 then
    if check1.enabled then
       Check1.SetFoucs
     end if      
    end if
    這樣就不用設 Error 處理。
  • 新手
  • 謝謝lk1888!