Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: коды клавиатуры Добавлено: 25.12.03 09:54  

Автор вопроса:  xaxaxa | ICQ: 132641392 
пришлите коды русских и EN клавиш

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 .COM



ICQ: 212158853 

Вопросов: 4
Ответов: 79
  Профиль | | #1 Добавлено: 25.12.03 11:57

Коды цифр и знаков

 

 32 [space]      54      6

 33       !          55        7

 34       "         56        8

 35       #         57        9

 36       $         58        :

 37       %       59        ;

 38       &        60        <

 39       '          61        =

 40       (          62        >

 41       )          63        ?

 42       *         64        @

 43       +         91        [

 44      ,            92        \

 45       -           93        ]

 46       .           94        ^

 47       /           95        _

 48       0          96        `

 49       1          123      {

 50       2          124      |

 51       3          125      }
Номер ответа: 2
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #2 		Добавлено: 25.12.03 11:59

Создай три Label, у первых двух Autosize=True и вставь этот код

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Label1.Caption = "KeyCode=" & KeyCode

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Label2.Caption = "Ascii=" & KeyAscii

Label3.Caption = Chr(KeyAscii)

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

End Sub

Ещё поставь KeyPreview=True, а теперь нажимай и смотри.

Ответить

Номер ответа: 3
Автор ответа:
 .COM



ICQ: 212158853 

Вопросов: 4
Ответов: 79
  Профиль | | #3 Добавлено: 25.12.03 12:02
хм... не влезло...

Ответить

Номер ответа: 4
Автор ответа:
 Монах



Вопросов: 26
Ответов: 35
  Профиль | | #4 Добавлено: 25.12.03 18:54

А разве нельзя так сделать?

Добавляешь на форму Label1 и TextBox, далее код:Private Sub

Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Label1.Caption = KeyCode

End Sub

И всё.

Ответить

Номер ответа: 5
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #5 		Добавлено: 25.12.03 20:33

to Монах: Во первых-на кой тут нужен TextBox

Во вторых-на всякий пожарный там видно и ASCII кодировку

А в третьих-мы не ищем простых путей :)

Ответить

Номер ответа: 6
Автор ответа:
 Монах



Вопросов: 26
Ответов: 35
  Профиль | | #6 Добавлено: 25.12.03 20:42

to Ra$cal: Я тебе просто написал как сделать прогу, которая легко узнаёт коды клавишь!

Ответить

Номер ответа: 7
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #7 		Добавлено: 25.12.03 21:03

to Монах: По-моему моя тоже легко узнаёт и KeyCode и ASCII. И вообще прога не мне нужна

Ответить

Номер ответа: 8
Автор ответа:
 Last_Santa



ICQ: 200700724 

Вопросов: 38
Ответов: 329
  Web-сайт: localhost
 Профиль | | #8 		Добавлено: 26.12.03 01:46

Key Codes

ConstantValueDescription
vbKeyLButton&H1Left mouse button
vbKeyRButton&H2Right mouse button
vbKeyCancel&H3CANCEL key
vbKeyMButton&H4Middle mouse button
vbKeyBack&H8BACKSPACE key
vbKeyTab&H9TAB key
vbKeyClear&HCCLEAR key
vbKeyReturn&HDENTER key
vbKeyShift&H10SHIFT key
vbKeyControl&H11CTRL key
vbKeyMenu&H12MENU key
vbKeyPause&H13PAUSE key
vbKeyCapital&H14CAPS LOCK key
vbKeyEscape&H1BESC key
vbKeySpace&H20SPACEBAR key
vbKeyPageUp&H21PAGE UP key
vbKeyPageDown&H22PAGE DOWN key
vbKeyEnd&H23END key
vbKeyHome&H24HOME key
vbKeyLeft&H25LEFT ARROW key
vbKeyUp&H26UP ARROW key
vbKeyRight&H27RIGHT ARROW key
vbKeyDown&H28DOWN ARROW key
vbKeySelect&H29SELECT key
vbKeyPrint&H2APRINT SCREEN key
vbKeyExecute&H2BEXECUTE key
vbKeySnapshot&H2CSNAPSHOT key
vbKeyInsert&H2DINS key
vbKeyDelete&H2EDEL key
vbKeyHelp&H2FHELP key
vbKeyNumlock&H90NUM LOCK key

KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'

ConstantValueDescription
vbKeyA65A key
vbKeyB66B key
vbKeyC67C key
vbKeyD68D key
vbKeyE69E key
vbKeyF70F key
vbKeyG71G key
vbKeyH72H key
vbKeyI73I key
vbKeyJ74J key
vbKeyK75K key
vbKeyL76L key
vbKeyM77M key
vbKeyN78N key
vbKeyO79O key
vbKeyP80P key
vbKeyQ81Q key
vbKeyR82R key
vbKeyS83S key
vbKeyT84T key
vbKeyU85U key
vbKeyV86V key
vbKeyW87W key
vbKeyX88X key
vbKeyY89Y key
vbKeyZ90Z key

Ответить

Номер ответа: 9
Автор ответа:
 Last_Santa



ICQ: 200700724 

Вопросов: 38
Ответов: 329
  Web-сайт: localhost
 Профиль | | #9 		Добавлено: 26.12.03 01:47

Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9

ConstantValueDescription
vbKey0480 key
vbKey1491 key
vbKey2502 key
vbKey3513 key
vbKey4524 key
vbKey5535 key
vbKey6546 key
vbKey7557 key
vbKey8568 key
vbKey9579 key

Keys on the Numeric Keypad

ConstantValueDescription
vbKeyNumpad0&H600 key
vbKeyNumpad1&H611 key
vbKeyNumpad2&H622 key
vbKeyNumpad3&H633 key
vbKeyNumpad4&H644 key
vbKeyNumpad5&H655 key
vbKeyNumpad6&H666 key
vbKeyNumpad7&H677 key
vbKeyNumpad8&H688 key
vbKeyNumpad9&H699 key
vbKeyMultiply&H6AMULTIPLICATION SIGN (*) key
vbKeyAdd&H6BPLUS SIGN (+) key
vbKeySeparator&H6CENTER (keypad) key
vbKeySubtract&H6DMINUS SIGN (-) key
vbKeyDecimal&H6EDECIMAL POINT(.) key
vbKeyDivide&H6FDIVISION SIGN (/) key

Function Keys

ConstantValueDescription
vbKeyF1&H70F1 key
vbKeyF2&H71F2 key
vbKeyF3&H72F3 key
vbKeyF4&H73F4 key
vbKeyF5&H74F5 key
vbKeyF6&H75F6 key
vbKeyF7&H76F7 key
vbKeyF8&H77F8 key
vbKeyF9&H78F9 key
vbKeyF10&H79F10 key
vbKeyF11&H7AF11 key
vbKeyF12&H7BF12 key
vbKeyF13&H7CF13 key
vbKeyF14&H7DF14 key
vbKeyF15&H7EF15 key
vbKeyF16&H7FF16 key

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам