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実践入門