MovieMEMO

　フォームをを作成して・・


下記フォームを作成し「フォルダ」の『選択』ボタンを押すとダイアログが表示され、選択したフォルダをテキストボックス「txtDirName」に表示、「ファイル」の『選択』ボタンを押すとダイアログが表示され、選択したファイルをテキストボックス「txtFileName」に表示する処理を作成します。（フォームの作成方法はリンク先をご確認下さい）





　フォルダの取得方法


フォルダの『選択』ボタンをダブルクリックして下記コードを記述します。


これで、フォルダの『選択』ボタンをクリックすると下記ダイアログが表示されます。フォルダを選択して「OK」を押すとフォルダのテキストボックス「txtDirName」にフォルダ名を表示出来ます。





　ファイルの取得方法


ファイルの『選択』ボタンをダブルクリックして下記コードを記述します。


これで、ファイルの『選択』ボタンをクリックすると下記ダイアログが表示されます。ファイルを選択して「開く」を押すとファイルのテキストボックス「txtFileName」にファイル名をフルパス表示出来ます。

　フォームを起動する


以前、フォームを作成しましたが、その起動方法です。

Excel上にボタンを作成します。お好みでプロパティの変更をします。下記例はオブジェクト名とCaptionを変更しました。



作成したボタンをダブルクリックするとコードを記入する画面が起動するので、その中に下記コードを記述します。(フォーム名.show)




これでフォームが簡単に起動できます。

　ユーザーフォームの挿入


VBaで開発する場合、ワークシート上にボタンを設定しても問題なく動きますが、システムらしくフォームを作成して処理をした方が見た目にもスマートです。



例えばログイン画面 → メニュー画面へ遷移する場合は、それぞれのフォームを作成してボタンを押すと次の画面へ遷移する・・といったように使い勝手が良くなります。

ユーザーフォームを作成するには、下記のようにプロジェクトエクスプローラー画面上で右クリックし、[挿入]-[ユーザーフォーム]を選択します。



初期画面は下記のように表示されます。





　フォームの作成・変更


フォームのサイズ(高さ・幅)を変更するには、画面の端にカーソルを合わせて左クリックを押しながらスライドさせて調整すれば簡単に変更できます。（プロパティでも変更可能）

プロパティを表示するには、フォーム上で右クリックして[プロパティ]を選択します。

プロパティを下記のように変更すると・・・



下記のように変更できました。
個人的な趣味かもしれませんが、オブジェクト名の先頭には、そのオブジェクトが何か分かるようにしてます。
（例えば、フォームならばfrm～、コマンドボタンならばcmd～、テキストボックスならtxt～など）





　サンプル：ログイン画面のフォーム作成


先程のログイン画面では、下記のようにツールボックスの中から３つのアイテムを使っています。



コマンドボタン・テキストボックスのサイズがそれぞれバラバラだと見栄えが悪いので、プロパティ画面からHeight、Widthを合わせましょう。位置も、左揃えであればLeft、高さであればTopで合わせましょう。

ご参考までに、ログインボタンのプロパティは下記の通りです。



また、パスワードのテキストボックスですが、入力すると「*」表示されるのが一般的なように、こちらも仕様を合わせてみました。PasswordCharの値に「*」をセットする事によって簡単に実現できます。