KeyAscii - VB
Формулировка задачи:
Листинг программы
- Private Sub ,,,,,_KeyPress(KeyAscii As Integer)
Решение задачи: «KeyAscii»
textual
Листинг программы
- Private Sub List1_KeyPress(KeyAscii As Integer)
- List1.Clear
- For i = 0 To 255
- List1.AddItem i & " --> " & Chr(i) & " --> " & Asc(Chr(i))
- Next i
- Me.Cls: Me.Print KeyAscii & " --> " & Chr(KeyAscii)
- List1.Selected(KeyAscii) = True
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
