|
●プログラムの改良 実行してみていかがでしたか？ 答えはちゃんと出ましたか？もし、間違った答えだったら、計算式をチェックし、 プログラムを修正してください。 これからは、プログラムがとりあえず動いたものとして進めます。 このプログラムを、もっと使いやすいものにするために、次のように改良しまし ょう。
改良点 （１）クリアボタンを追加する。 （２）終了ボタンを追加する。 （３）マウスではなく、エンターキーを押すことにより次のステップへすす めるようにする。 （４）テキストボックスのフォントを変える。 （５）スタート時のフォームを中央に配置する。 （６）実行形式（ｅｘｅ）のプログラムにする。
図１．８ ツールボックスのコマンドボタンをクリックして、計算ボタンの下に配置 します。プロパティのCaptionを「クリア」にします。 次に、クリアボタンをダブルクリックして、コードを記述します。
す。 0210 テキストボックス１（Text1）のテキストに、""（ヌル）を代入します。""を 代入すると、何も表示されません。 ※コード入力画面からフォーム画面に移るには、プロジェクトエクスプローラ ーの「Form1(frmEx1.frm)」をダブルクリックします。
図１．９ ツールボックスのコマンドボタンをクリックして、クリアボタンの下に配 置します。プロパティのCaptionを「終了」にします。 次に、終了ボタンをダブルクリックして、コードを記述します。
めるようにする。 テキストボックス１をダブルクリックして、コードを記述します。
図１．１０イベント選択ボックス 初期状態では、イベント名が「Change」になっていますので、これを 図１．１０の中から「KeyPress」に変えます。
0410 もし、KeyAscii = 13 ならば次の行を実行せよという文です。If文といいま す。KeyAscii = 13 は、エンターキーを表す番号です。 0420 テキスト２にフォーカスを移しなさいという文です。フォーカスを移すとは、 カーソルを移動することです。 0430 ここで、If文が終わります。 したがって、0410〜0430は、もしEnterキーが押されたらテキスト２にフォ ーカスを移しなさい。そうでなければ0440に行きこのプロシージャを終了し なさいということになります。 テキスト２でも、同じようなコードを記述します。
図１．１１コントロール選択ボックス
まず、コントロール選択ボックスよりText2を選択し、イベント選択ボックス よりKeyPressを選択します。もちろんフォームを表示させてからテキストボッ クス２をダブルクリックし、イベント選択ボックスよりKeyPressを選択しても いいです。
これは簡単です。 フォーム上の各テキストボックスをクリックし、Fontプロパティを適当なフ ォントに変えればいいのです。
図１．１２
ここでは、図１．１２のボタンをクリックしてから、 フォント名：MS Pゴシック スタイル：Bold サイズ：14 に設定しました。
フォームレイアウトウインドウのディスプレイを、適当な位置までドラッグ します。 コードを記述してフォームの位置を決める方法もありますが、これは後のプ ログラム例で説明します。
これまでの手順で作られたプログラムは、コンパイル（機械語に翻訳するこ と）されていないので、スピードも遅く（実際はあまり感じませんが）、ＶＢ を立ち上げていないと実行できません。そこで、このプログラムをコンパイル します。
図１．１３
ここで「Ex1.exe」が作られ、このファイルをダブルクリックすると 簡単に（ＶＢ５を立ち上げることなく）実行できるようになります。
次回は、ちょっと実用的なプログラムを作りたいと思います。 ここまでのソースプログラムは、次をクリックすればダウンロードできます。 圧縮されていますので、解凍してから使ってください。
次回は、ちょっと実用的なプログラムの作成です。 これでおわります。
|
