VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

> １つのコマンドボタンを作成し、それがクリックされると、ブロック単位で複数の処理をしたいのです。
> ＡブロックでテキストファイルＡのレコード数を確認し、空ファイルならば、
> Ａブロックの残りの処理を実行せずにＢブロックの処理を実行したいのです。
> 
> 以下のソースでコンパイルしようとしたら、ＡブロックとＢブロックの間に水平線が引かれて
> 別ブロックとして強制的に仕切られ、Command1_Click()に対するEnd Subが無いという
> コンパイルエラーが表示されました。
> これを回避して、１つのコマンドボタンで複数のブロックを処理する方法を御教授願います。
> 
> 尚、システムの都合上、コマンドボタンは１つだけでプログラミングしたいのです。
> また、複数ブロックにする理由は、ファイルＡがゼロ行だったらファイルＡの処理を
> 一切行わずにファイルＢの処理へジャンプしたいからです。（Exit Subでブロックから脱出します）
> Ｃ言語のようにラベル付きのgoto文でジャンプできれば複数のSubブロックは不要ですが・・・
> 
> Private Sub Command1_Click()
> 
>   '★Ａブロック
>   Private Sub a_block()
>     'テキストファイルＡのレコード数の確認（有：処理続行、無：Ｂブロックへ）
>     If FileLen("c:\test\a.txt") = 0 Then
>       Exit Sub
>     End If
>   
>     この部分にはＡブロックの処理を具体的に書く
>   End Sub
> 
>   '★Ｂブロック
>   Private Sub b_block()
>     'テキストファイルＢのレコード数の確認（有：処理続行、無：Ｃブロックへ）
>     If FileLen("c:\test\b.txt") = 0 Then
>       Exit Sub
>     End If
>   
>     この部分にはＢブロックの処理を具体的に書く
>   End Sub
> 
>   '★Ｃブロック（以下同様）
> 
> End Sub  →コマンドボタンのEnd Subです
全てを１つのプロシージャ（この場合はイベント）でやろうとすると
処理がごちゃごちゃしてしまいます。
各処理（Ａブロック、Ｂブロック）をサブルーチン化しましょう。
メインのプロシージャからは、各サブルーチン（a_block等）を呼び出しましょう

Private Sub Command1_Click()
   Call a_block()
   Call b_block()
      :
End Sub

Private Sub a_block()
      :
end sub

Private Sub b_block()
      :
end sub

> 全てを１つのプロシージャ（この場合はイベント）でやろうとすると
> 処理がごちゃごちゃしてしまいます。
> 各処理（Ａブロック、Ｂブロック）をサブルーチン化しましょう。
> メインのプロシージャからは、各サブルーチン（a_block等）を呼び出しましょう
> 
> Private Sub Command1_Click()
>    Call a_block()
>    Call b_block()
>       :
> End Sub
> 
> Private Sub a_block()
>       :
> end sub
> 
> Private Sub b_block()
>       :
> end sub

成功しました。有り難うございます。助かりました。m(_ _)m
そう言えば、数年前、他言語でサブルーチン化の手法は経験済みでした。f^_^;
ＶＢの習得に慌てていて、すっかりサブルーチンの概念を忘れていました。

> 全てを１つのプロシージャ（この場合はイベント）でやろうとすると
> 処理がごちゃごちゃしてしまいます。
> 各処理（Ａブロック、Ｂブロック）をサブルーチン化しましょう。
> メインのプロシージャからは、各サブルーチン（a_block等）を呼び出しましょう
> 
> Private Sub Command1_Click()
>    Call a_block()
>    Call b_block()
>       :
> End Sub
> 
> Private Sub a_block()
>       :
> end sub
> 
> Private Sub b_block()
>       :
> end sub
 
別の質問です、、、。
上記のプログラムを作成する場合、各プロシージャの記述が長くなる時は、
全てを１つのフォームファイルに書くのでしょうか？
複数のフォームファイルに書くのが望ましければ、どういう単位（基準）で
ファイル分割すればよろしいでしょうか？

また、参考までに、１つのフォームファイルに記述可能な最大ステップ数はどのくらいですか？
（１つのフォームファイルに記述可能なコードの最大容量はどのくらいですか？）

> 上記のプログラムを作成する場合、各プロシージャの記述が長くなる時は、
> 全てを１つのフォームファイルに書くのでしょうか？

モジュールに記述するという手があります。

> 複数のフォームファイルに書くのが望ましければ、どういう単位（基準）で
> ファイル分割すればよろしいでしょうか？

「基準はない」と考えてもいいかと思います。この辺は好みの問題もありますし。
いくつか作っていくうちに、自分の中で「これが基準」ってのが出てくるのでは
ないでしょうか。あえて言うなら、見やすい（解読しやすい）単位でしょうか。

私の場合は、複数フォームに利用するならモジュールに記述します。
また、処理によってモジュールを分けたりもします。
（データベース系、ＩＮＩ関係、印刷関係、基本動作　等々）
Publicで宣言している変数だけのモジュールもあったりします。
フォームには、そのフォームしか関係ないことしか記述しません。
と、まぁこんな感じです。必ずではないです、あくまで基本です。

> また、参考までに、１つのフォームファイルに記述可能な最大ステップ数はどのくらいですか？
> （１つのフォームファイルに記述可能なコードの最大容量はどのくらいですか？）

ごめんなさい。これはちょっとわかりませんが、あんまりたくさん記述すると
見難いような気がします。

> 上記のプログラムを作成する場合、各プロシージャの記述が長くなる時は、
> 全てを１つのフォームファイルに書くのでしょうか？
プロシージャの長さに関係なく、例えばForm1でのみ使うプロシージャは
Form1モジュールにプロシージャを書きます。
プロシージャの前についているPrivateは”私的な”ということで、
そのプロシージャでのみ使えることを示しています。

また、いろんなフォームで使うプロシージャは、標準モジュールにて、
Publicなプロシージャとして作成します。

それから、ひとつのプロシージャが大きくなりすぎるようであれば、
そのプロシージャ中のコードでまとめられる部分を新たなプロシージャ
としてまとめてしまいしょう。
＃プロシージャの大きさについて決まりがあるわけではないですが、
＃見やすさなどの点から、なるべくコンパクトにし、大きくてもだいたい
＃１００行くらいまでにするとよいと思います。

> 複数のフォームファイルに書くのが望ましければ、どういう単位（基準）で
> ファイル分割すればよろしいでしょうか？
プロジェクト全体で使う共通の機能は標準モジュールに、
また、あるフォームだけで使うプロシージャはそのフォームモジュールで
記述します。プロシージャは機能単位で作成すればよいでしょう。
 
> また、参考までに、１つのフォームファイルに記述可能な最大ステップ数はどのくらいですか？
> （１つのフォームファイルに記述可能なコードの最大容量はどのくらいですか？）
うーん、これは知りません。でも、上で書いたようにちゃんと各モジュールに
何を記述するかを考えてプログラムしてる限り、そうそう困ることはないと思います。

補足です。

> ＃プロシージャの大きさについて決まりがあるわけではないですが、
一つのプロシージャは64KBまでです。
それ以上だと「プロシージャが大きすぎます」と言うエラーが出るはず。