VB2008コントロール使用例：テキストボックスの使い方（TextBox）

テキストボックス コントロールの使用例サンプルです

コントロールの使用例へ


下記のテキストボックスのTipsを実行します。
　
  • 入力された文字を取得する
    Textプロパティを使用します。
  • 複数行入力できるようにする
    MultilineプロパティにTrueを設定します。
  • 入力できないようにする
    ReadOnlyプロパティにTrueを設定します
  • IMEモードを指定する
    ImeModeプロパティを使用します。

    [ ImeModeの値 ]
    Inherit ： 親コントロールの IME モードを継承します
    NoControl ： なし (既定)
    On ： IME がオンです
    Off ： IME がオフです
    Disable ： IME が無効になっています
    Hiragana ： ひらがな。この設定は、日本語 IME に対してだけ有効です
    Katakana ： カタカナ。この設定は、日本語 IME に対してだけ有効です
    KatakanaHalf ： カタカナ。この設定は、日本語 IME に対してだけ有効です
    AlphaFull ： 2 バイトの英数字。この設定は、韓国語と日本語の IME に対してだけ有効です
    Alpha ： 1 バイトの英数字。この設定は、韓国語と日本語の IME に対してだけ有効です
    HangulFull ： ハングル。この設定は、韓国語 IME に対してだけ有効です
    Hangul ： ハングル。この設定は、韓国語 IME に対してだけ有効です
    Close ： IME が閉じた状態になります。この設定は、中国語 IME に対してのみ有効です
    OnHalf ： HalfShape の IME。この設定は、中国語 IME に対してのみ有効です
  • パスワードを入力できるようにする
    PasswordCharプロパティに「*」等の、パスワード文字を指定します。
    解除するには、Convert.ToChar(0)とします。
  • 入力文字数を制限する
    MaxLengthプロパティに制限する文字数を設定します
    0にすると解除できます

■ 実行画面
テキストボックスサンプルソフト

■ パスワード入力に「*」を設定した画面
パスワード入力ソフト

■ 入力できないようにした画面
テキストボックスの入力不可ソフト

■ 実行コード

Public Class Form1

'入力値を取得
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("入力されていません")
Else
MsgBox("入力文字: " & TextBox1.Text)
End If
End Sub

'複数行入力
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
TextBox1.Multiline = CheckBox1.Checked
End Sub

'パスワード入力
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
TextBox1.PasswordChar = "*"c
Else
TextBox1.PasswordChar = Convert.ToChar(0)
End If
End Sub

'日本語入力
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then
TextBox1.ImeMode = Windows.Forms.ImeMode.Hiragana
Else
TextBox1.ImeMode = Windows.Forms.ImeMode.Off
End If
End Sub

'入力不可
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
TextBox1.ReadOnly = CheckBox4.Checked
End Sub

'入力文字数の制限
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked Then
TextBox1.MaxLength = 8
Else
TextBox1.MaxLength = 0
End If
End Sub
End Class

Visual Basic 2008 Express Edition実践入門