keypress

[AghaMohsen]

سلام
ببخشید من سوالم مبتدیانس
من دارم رو یه چیزی مثل کیبورد مجازی کار میکنم ، میخوام وقتی که وقتی یه حرفی رو کیبورد زده میشه ، تو text1.text نمایش داده شه ، مثلا وقتی حرف a رو میزنم تو text1.text یه کد به این صورت ظاهر شه : [[85632]]

ممنون

[gilsoft]

مثلا وقتی حرف a رو میزنم تو text1.text یه کد به این صورت ظاهر شه : [[85632]]

سلام دوست عزیز

این عدد چیه ؟

لطفا واضح تر توضیح بدیید...

[AghaMohsen]

این اعداد رو خودم به برنامه میدم ، مثل Smileys تو یاهووو ، میخوام وقتی برنامه بازه ، مثلا اگر روی کیبورد حرف a زده شد تو text1 این کد نشون داده بشه تا شکلک مخصوص a نمایان بشه ، دیگه واضح تر از این نمیتونم ، همین که بتونید به من رویداد keypress رو یاد بدید ، حله
ممنون

[gilsoft]

سلام دوست عزیز

اینم یه کد مربوط به کاربرد KeyPress ( در حد راهنمایی ! )

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.KeyPreview = True
End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

End Sub

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

Dim KC As Char = e.KeyChar
If KC = Chr(97) Or KC = Chr(65) Then ' {a} or {A} Key
e.Handled = True
ElseIf KC = Chr(8) Then 'BackSpace Key
ElseIf KC = Chr(27) Then 'Esc Key
End 'خروج از نرم افزار
Else
e.Handled = True
End If
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

Dim KC As Keys = e.KeyCode
If (KC = Keys.A) Then
TextBox1.Text &= "[[85632]]"
ElseIf KC = Keys.Escape Then

End If
End Sub
End Class


کدهایی که در رویداد KeyUp نوشته شده رو میتونی عینا به رویداد KeyDown انتقال بدی و عملکرد اونو ببینی ...


موفق باشید