|
分類:[VB.NET/VB2005 以降]
テキストボックスへ、文字コードを送信するプログラムをＶＢ６で作成していましたが、同様のプログラムを
VB.netで作成した場合、アスキーコード範囲外の番号は、送信ができない？ようです。
Asciiコード範囲外のコード番号を特殊番号として、条件判断に使っていたのですが、
VB.netだと、一定の文字コードに勝手に変換されてしまい・・・。
下記のコードで、129以上の文字コードをSendkeysすると、0になったり、51になったり。
テキストボックス１へ、129以上の文字コードを送信する手法はないでしょうか？
よろしくお願いいたします。
Private Sub Button1_Click(ByVal sen125der As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Focus()
System.Windows.Forms.SendKeys.Send(Chr(49)) ←ここに文字コードをセット
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim KeyAscii As Short = Asc(e.KeyChar)
MsgBox(KeyAscii)
End Sub
|