Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
sappho
0 / 0 / 0
Регистрация: 01.12.2010
Сообщений: 21
1

Процедура обработки события нажатия клавиши для формы

01.12.2010, 12:51. Просмотров 1514. Ответов 1
Метки нет (Все метки)

Как правильно написать процедуру обработки события нажатия клавиши для формы (нажатие комбинаций клавиш с ALT, SHIFT или CTRL)?
Есть наработки
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
a = Button = vbLeftButton And (Shift = vbShiftMask + vbAltMask)
b = Button = vbLeftButton And (Shift = vbShiftMask)
c = Button = vbLeftButton And (Shift = vbCtrlMask + vbAltMask)
If a Then Command1.BackColor = QBColor(5)
If b Then Command1.BackColor = QBColor(7)
If c Then Command1.Top = 1000
          
 
End Sub

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.12.2010, 12:51
Ответы с готовыми решениями:

Процедура обработки нажатия клавиши на клавиатуре
Нужно чтоби при нажатии комбинации клавиш, или просто клавиши стартовала...

Имитация нажатия клавиши
Помогите пожалуйста, не могу придумать, как сделать так, чтобы, если я нажимаю...

Код имитации нажатия клавиши
Подскажите код программы на virtual basic которая бы в фоновом режиме...

Проблема с отловом нажатия на клавиши стрелок
VB-6, на форме MSFlexGrid, свойство формы KeyPreview =True не срабатывают...

Декларирование процедур обработки события эл. управления?
Создал программным путем эл. управления CommandButton, т.е. во время загрузки...

1
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
01.12.2010, 14:16 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 
If Button = vbLeftButton And Shift = vbShiftMask Then Command1.BackColor = QBColor(10)
If Button = vbLeftButton And Shift = vbCtrlMask Then Command1.BackColor = QBColor(7)
If Button = vbLeftButton And Shift = vbAltMask Then Command1.Top = 1000
 
End Sub
 
 
 
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
a = vbLeftButton And (Shift = vbShiftMask + vbAltMask)
b = vbLeftButton And (Shift = vbShiftMask)
c = vbLeftButton And (Shift = vbCtrlMask + vbAltMask)
If a Then Command2.BackColor = QBColor(5)
If b Then Command2.BackColor = QBColor(7)
If c Then Command2.Top = 1000
 
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2010, 14:16

Возможно ли получить проверку нажатия клавиши через VBS?
Нужна функция для возврата проверки последней нажатой клавиши на VBS? Есть ли...

Имитация нажатия клавиши Tab в стороннем приложении (игре)
Проблемка вот в чем. Скорее всего я не до конца понимаю принцип работы функций,...

Как можно заставить программу выполнять определенные действия после нажатия клавиши ENTER
кто-нибудь может подсказать!! я новенький в VB и почти ни какого опыта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru