Exit Subについて


くま  2004-11-09 01:20:36  No: 117440

標準モジュールの関数から呼び出しもとのプロシージャの処理を抜けるようにExit Subを使う方法はあるのでしょうか?Exit Function関数を抜けと Exit Subプロシージャを抜ける二重の処理をしている状況でを直したいです


ミッション  2004-11-09 01:38:52  No: 117441

ちょっと質問の意図がわからないですが
私の理解が正しければ、ないです。
2重の処理とは?
ソースを掲示していただくと答えやすいのですが。


  2004-11-09 01:51:19  No: 117442

このような感じです

Private Sub Command1_Click()

    Call module1.Yobareru(2)
    
    Exit Sub

    *
    *
    *
    
    
    
End Sub

Private Function Yobareru(a As Integer)
          
    If a = 2 Then
    
    Exit Function
    
    'ここでいっぺんに呼び出しもとのプロシージャの処理を抜けたい

End Function


ミッション  2004-11-09 02:01:46  No: 117443

Functionにしてるんだから戻り値を入れればOKでは?
Private Sub Command1_Click()
     if Yobareru(2)=2 then Exit sub
End Sub

Private Function Yobareru(a As Integer) as Integer
    If a = 2 Then
    Yobareru=a
    Exit Function
    
    'ここでいっぺんに呼び出しもとのプロシージャの処理を抜けたい

End Function


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加