سلام . میشه چگونگی استفاده از کلید های کیبورد همراه با کد اسکی هاشونو برام بزارید؟ممنون

[rezarko]

سلام . میشه چگونگی استفاده از کلید های کیبورد همراه با کد اسکی هاشونو برام بزارید؟ممنون

[PesaridarTariki]

01 Private Sub txtSimpl_KeyPress(KeyAscii As Integer)
02 Dim strKeyPressed As String `inputted character
03 Dim strAscii As String `Ascii number
04 Dim Msg As String `Message string
05
06 `Convert KeyAscii to a character
07 strKeyPressed = Chr(KeyAscii) `VB function Chr
08
09 `Convert the actual number to a string
10 strAscii = CStr(KeyAscii) `VB function CStr
11
12 `Build the Message display string
13 Msg = "ASCII Number: " & strAscii
14 Msg = Msg & ", " & "Character: " & strKeyPressed
15 MsgBox Msg
16 End Sub

اینم کدهای اسکیشون , زیاد بودن برات تو یه Text Document گذاشتم! دانلود (http://www.mediafire.com/?36jcrwvzo6js56o)
برای توضیحات بیشتر در مورد این مبحث به این لینک مراجعه کنید: لینک (http://www.podgoretsky.com/ftp/docs/Basic/Using%20Visual%20Basic%206/ch15/ch15.htm) البته انگلسیه:لبخند: