投稿時間:2005/07/29(Fri) 22:34 投稿者名:ゆうり
Eメール:
URL :
タイトル:テキストフィールドのEnterキー実行による値取得について
投稿3回目、まだまだ超初心者です。よろしく御願いいたします。
VBのバージョンは、5.0を使用しております。
2つのテキストフィールド(以下の例:数量・金額)において、 数量フィールドに値を入力後、Enterキーを実行することで、 金額フィールドに値を取得させることを実現しようとしております。
今、作成している画面の定義(プロパティ)は、次のとおりです。 (説明都合上、関連しそうな部分のみ記述します)
(1)数量フィールド(text_box) オブジェクト名:Txt_suryo maxlength :3 (2)金額フィールド(text_box) オブジェクト名:Txt_kingaku maxlength :12
以下のコーディングで試してみました。 '------------------------------------- Private Sub Txt_suryo_KeyPress(KeyAscii As Integer)
Dim tanka As Double '単価 Dim suryo As Integer '数量 Dim kingaku As Double '金額
suryo = Val(Txt_suryo)
If KeyAscii = vbKeyReturn Then kingaku = suryo * wk_tanka '左記のwk_tankaは別ルーチンで取得済 Txt_kingaku.Text = kingaku : : '-------------------------------------
数量フィールドに、2ケタの数値(例:99)迄、入力した 場合(入力しEnterキー実行)、99*単価 が計算された値が、 金額フィールドに表示されます。 但し、数量フィールドに3桁を入力(例:100)すると、 Enterキー実行で、金額フィールドに値がセットされません。 数量フィールドには、3ケタ迄で入力制限させたく、 maxlengthを3と設定しております。
初歩的なつまずきなのかもしれませんが、改善の手ほどきを いただきたく、よろしく御願いいたします。
|