amini699
جمعه 27 اسفند 1389, 22:20 عصر
با سلام
یک برنامه نوستم در ویندوز اکس پی KeyCode درست عمل میکنه ولی در ویندوز7 موقعی که تایپ میکنی هیچ عملیاتی انجام نمیشه در ضمن در ویندوز 7 فارسی نمودن کیبورد از همین کد استفاده میشه
'--------- براي فارسي كردن ----------
LoadKeyboardLayout "00000429", 1
این هم کد KeyCode
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
'Case 8, 81, To 220:
Case 90, 186, 188, 190 To 192, 219 To 222, 67, 80 To 89, 70 To 79, 65 To 69:
MMMS = "Y"
Text7 = Name_ShakhsS()
Case Else
KeyCode = 0
End Select
End Sub
یک برنامه نوستم در ویندوز اکس پی KeyCode درست عمل میکنه ولی در ویندوز7 موقعی که تایپ میکنی هیچ عملیاتی انجام نمیشه در ضمن در ویندوز 7 فارسی نمودن کیبورد از همین کد استفاده میشه
'--------- براي فارسي كردن ----------
LoadKeyboardLayout "00000429", 1
این هم کد KeyCode
Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
'Case 8, 81, To 220:
Case 90, 186, 188, 190 To 192, 219 To 222, 67, 80 To 89, 70 To 79, 65 To 69:
MMMS = "Y"
Text7 = Name_ShakhsS()
Case Else
KeyCode = 0
End Select
End Sub