タイトル : Re: テキストボックスの全角カナの複数文字を半角にしたい 投稿日 : 2018/03/17(Sat) 11:13 投稿者 : かっちゃん
すみません。継続で質問をお願いします 入力データを半角文字に変換の前にMSGBOXを入れると、入力した全桁が整うまで Call ModDataChange(txtBox) を実行しないみたいです。 ただ、MSGBOXだと毎回表示されてしまうので、入力した全桁までは次のロジックにいかないコマンドで 調整できれば最高なのですが、 MsgBox(txtBox.Text) Call ModDataChange(txtBox) Validatedは一度フォーカスを移動させないといかないので、 できれば、入力しながら変換できればと思っておりました。 色々と面倒かけてすみません かっちゃん > 例: > 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キーをおしても "アイウエオ" と半角にしたいのですが > どのようにすればよいでしょうか > > よろしくお願いいたします。 |