VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/09/05(Mon) 09:42
投稿者： LESIA
Ｅメール：
ＵＲＬ：
タイトル： Re^7: 現在のプロシージャ名について

プロシージャ名を入力すると、そういう雛形を作るアドインを作るという手もあるかも。

アドインでなくても、例えば標準モジュールに

Public Sub CreateProc(strProcName As String)
    Debug.Print "Private Sub " & strProcName & "()"
    Debug.Print ""
    Debug.Print "On Error GoTo " & strProcName & "_ERR"
    Debug.Print ""
    Debug.Print "    Exit Sub"
    Debug.Print ""
    Debug.Print strProcName & "_ERR:"
    Debug.Print "    MsgBox """ & strProcName & "でエラーが発生しました。"" & vbCrLf & _ "
    Debug.Print "           Err.Description & ""(Error "" & Err.Number & "")"""
    Debug.Print "End Sub"
End Sub

というような、コードを作っておけば、
Call CreateProc("HogeHoge")
とすると、イミディエイトウィンドウに、プロシージャの雛形が出来るので、それをコードに
貼り付けるという手もあります。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -