tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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キーをおしても "アイウエオ" と半角にしたいのですが
>   どのようにすればよいでしょうか
>
>   よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。