- VBプログラマ質問スレ（Ver.6.0 まで） part64
870 ：デフォルトの名無しさん[sage]：2015/08/21(金) 10:22:35.34 ID:J6Urzezo - >>869
FileSystemObjectのメソッドなんかも気軽に実行時エラーを発生しやがるので、
全部ラップする関数を作ってました。
エラーログはそのラップした関数内で出力してた。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
874 ：デフォルトの名無しさん[sage]：2015/08/21(金) 12:55:35.08 ID:J6Urzezo - >>872
> たぶんだけど、どんな環境でも使える低レベルの汎用的な関数やクラスの話じゃないかな
いやいや、Formのイベントハンドラから呼び出すメソッドの話だぜ？
普通それはビジネスロジック層のメソッドだろ。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
877 ：デフォルトの名無しさん[sage]：2015/08/21(金) 13:24:13.67 ID:J6Urzezo - >>875
> そこに関しては共通処理としてUI層からもBL層からも呼び出す関数やメソッドもあるだろうから何も言わない。
もちろんその通りだが、そういうのを全部ひっくるめてFormでエラートラップするのが基本
とか言い出すからおかしくなる。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
879 ：デフォルトの名無しさん[sage]：2015/08/21(金) 14:34:42.14 ID:J6Urzezo - まーいずれにしてもド素人の戯言なんで、耳を傾ける意義なし。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
880 ：デフォルトの名無しさん[sage]：2015/08/21(金) 14:37:54.93 ID:J6Urzezo - >>871
> VBはしばらくやってないとか言ってたけど、一体今何の言語やってるんだろと思うわ。
そういや読んでて思ったんだけど、failback（と書いてフォールバックとも書いてた）から、
そういう言葉使いするような言語じゃないの？俺は知らんけど。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
883 ：デフォルトの名無しさん[sage]：2015/08/21(金) 15:39:12.00 ID:J6Urzezo - 普通とか通常とか人によって全然違うな。
ログ出力なんか標準モジュールにSub PutLog()でいいじゃんか。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
886 ：デフォルトの名無しさん[sage]：2015/08/21(金) 16:01:46.81 ID:J6Urzezo - >> 884
> それも処理や関数やメソッド単位で設定ファイルに設定するわけ？
アホなの？syslogとかの設定しらんの？
そういう概念を織り込んだログ出力関数にすればいいだけじゃん。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
888 ：デフォルトの名無しさん[sage]：2015/08/21(金) 16:04:42.52 ID:J6Urzezo - >>885
え、現在の行番号どうやって取得するんだ？
俺もVB6から離れて長いから、できてたかどうかすら記憶が曖昧だわ。
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
894 ：デフォルトの名無しさん[sage]：2015/08/21(金) 17:30:16.65 ID:J6Urzezo - >>889
処理や関数やメソッド単位で設定ファイルに設定するとかアホなこと書いてるから、syslogみたいな概念を
取り入れたログ出力関数作れっていってんだよ。
>>891
VB6でどうだったかなんかもはやどうでもいいことだけど、VBAでやってみたら普通には取れないね。
Sub foo()
Dim i As Long
On Error GoTo myerr
i = 10 / 0
Exit Sub
myerr:
Debug.Print Erl
Debug.Print Err.Source
End Sub
結果：
0
VBAProject
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
895 ：デフォルトの名無しさん[sage]：2015/08/21(金) 17:35:08.89 ID:J6Urzezo - Err.Raiseしたらか。
VBAじゃダメだね。VB6は環境がない。
(呼び出し元にもErl付けてみた)
Sub foo()
Dim i As Long
On Error GoTo myerr
Err.Raise 10, "foo " & Erl, "error description"
Exit Sub
myerr:
Debug.Print Erl
Debug.Print Err.Source
Debug.Print Err.Description
End Sub
結果：
0
foo 0
error description
|
- VBプログラマ質問スレ（Ver.6.0 まで） part64
897 ：デフォルトの名無しさん[sage]：2015/08/21(金) 18:27:12.51 ID:J6Urzezo - アホなこと言い始める奴が多いからね
|