Вопрос № 18603: Здравствуйте уважаемые эксперты. Возник такой вопрос, как мне на VB6.0 сделать так, чтобы при нажатии на кнопку загаралась или погасала любая из заранее выбранных лампочек Num Lock, Caps Loock, Scroll Lock? Пожалуйста пришлите пример....Вопрос № 18612: Можно ли как-нибудь открыть форму (форма еще не загружена) по имени, которое содержится в строковой переменной?
...
Вопрос № 18603
Здравствуйте уважаемые эксперты. Возник такой вопрос, как мне на VB6.0 сделать так, чтобы при нажатии на кнопку загаралась или погасала любая из заранее выбранных лампочек Num Lock, Caps Loock, Scroll Lock? Пожалуйста пришлите пример.
Отправлен: 22.03.2005, 13:42
Вопрос задал: Oleinik D.V (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: Licvidator
Здравствуйте, Oleinik D.V!
Натягиваем на форму три кнопки, вписываем код:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SCROLL = &H91
Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
Private Sub Command1_Click()
Call keybd_event(VK_SCROLL, 0, 0, 0) 'Hажимаем Scroll Lock
Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Scroll Lock
End Sub
Private Sub Command2_Click()
Call keybd_event(VK_NUMLOCK, 0, 0, 0) 'Hажимаем Num Lock
Call keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Num Lock
End Sub
Private Sub Command3_Click()
Call keybd_event(VK_CAPITAL, 0, 0, 0) 'Hажимаем Caps Lock
Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Caps Lock
End Sub
Private Sub Form_Load()
Command1.Caption = "Нажать Scroll Lock"
Command2.Caption = "Нажать Num Lock"
Command3.Caption = "Нажать Caps Lock"
End Sub
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 22.03.2005, 16:30
Вопрос № 18612
Можно ли как-нибудь открыть форму (форма еще не загружена) по имени, которое содержится в строковой переменной?
Приложение:
Отправлен: 22.03.2005, 16:45
Вопрос задал: grix (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: Rojohn
Здравствуйте, grix!
Скорее всего свойство NAME формы READ ONLY, т.е. его нельзя менять и назначать во время исполнения. Можно только создавать экземпляры существующей формы, например так:
Private Sub Command1_Click()
Dim frmNew As Form
Set frmNew = New Form1
frmNew.Show
End Sub
Может другие эксперты знают способ:)
Желаю всяческих успехов! Rojohn.
Ответ отправил: Rojohn (статус: 3-ий класс)
Отправлен: 23.03.2005, 03:15
