Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 37
от 28.03.2005, 13:40

Администратор:Калашников О.А.
В номере:Вопросов: 2, Ответов: 2


Вопрос № 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное