∇　With文のススメ　∇

同じコントールや配列を参照する際にはwithを利用する楽です。

　　　　　　　　　

例えば、このようなソースがあったとします。

CommonDialog1.DialogTitle = "ファイルを開く"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen

これをwith文を使って書き換えると、こうなります。

With CommonDialog1
　.DialogTitle = "ファイルを開く"
　.CancelError = True
　.ShowOpen
End With

どうでしょうか。すっきりしました。
実行速度も少し速くなるようです(気にならない程度ですが・・・)

1999-2000 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル