KeyAscii - VB

Узнай цену своей работы

Формулировка задачи:

Если можно подробнее об этой прауедуре. И у кого есть значении KeyAscii?

Решение задачи: «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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы