タイトル : テキストボックスの全角カナの複数文字を半角にしたい 投稿日 : 2018/03/10(Sat) 12:28 投稿者 : かっちゃん
いつもこのサイトを参考にして助かっております ありがとうございます。 テキストボックスの入力に関する質問です。 よろしくお願いいたします。 Microsoft Visual studio 2010を使用しております。 vb.netのテキストボックスの入力で全角カナで入力した時、Enterキーで 半角に変換して表示したいのですが、入力文字が反対になってしまいます。 入力順に表示したいのですがどのように表示したらよいでしょうか? 例: txtBox のテキストで "アイウエオ" 入力して Enterキーを押す Private Sub txtBox_TextChanged(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles txtBox.TextChanged ' 入力データを半角文字に変換 Call ModDataChange(txtBox) End Sub Public Sub ModDataChange(ByRef txt As System.Windows.Forms.TextBox) Dim wkstrText As String ' 入力データを半角文字に変換 wkstrText = StrConv(txt.Text, VbStrConv.Narrow) txt.Text = wkstrText End Sub Enterキー後に表示されるtxtBox のテキスト内容は "オエウイア" 半角で表示されます。 1文字ごとにEnterキーを押せば、順番に並びますが、 連続で入れて Enterキーをおしても "アイウエオ" と半角にしたいのですが どのようにすればよいでしょうか よろしくお願いいたします。 |