本ページは公開が終了した情報の複製であり、掲載時点での情報です。本ページに記載されている内容について各所に問い合わせることはご遠慮下さい。
サポート技術情報

テキスト ボックスの文字数を制限する方法

文書番号: 410517

最終更新日: 1999/03/18


この資料は以下の製品について記述したものです。


この記事は、以前は次の ID で公開されていました: JP410517

概要

Visual Basic for MS-DOS 1.0 のテキスト ボックスは文字数の制限をすることが
できません。この資料はテキスト ボックスの文字数を制限する方法について記述
しています。

サンプル

文字数の制限をしたいテキスト ボックス (ここでは Text1) の KeyPress
イベント プロシージャに以下のコードを記述してください。テキスト ボック
スの内容 (Text1.Text) は空の状態で、文字数は MAX_LENGTH 定数 (ここでは 10)
を変更してください。
  SUB Text1_KeyPress (KeyAscii AS INTEGER)
      Const MAX_LENGTH = 10
      Const KEY_BS = 8
      IF (LEN(Text1.Text) >= MAX_LENGTH) AND (KeyAscii <> KEY_BS) THEN
          KeyAscii = 0
      END IF
  END SUB

Keywords: KBHOWTO VBDOS KB410517
Technology: kbAudDeveloper kbVB100DOS kbVBSearch kbZNotKeyword3

inserted by FC2 system