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

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


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

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

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

Выпуск № 71
от 12.06.2005, 20:50

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


Вопрос № 21905: здравствуйте уважаемые эксперты! У меня к вам 2 вопроса: 1)Как можно зафиксировать размеры MDIForm,пробовал с помощью таймера,но форма мелькает,некрасиво. 2)как можно узнать наличие ключа(не параметра, не значения параметра) в реестре.Я н...

Вопрос № 21.905
здравствуйте уважаемые эксперты!
У меня к вам 2 вопроса:
1)Как можно зафиксировать размеры MDIForm,пробовал с помощью таймера,но форма мелькает,некрасиво.
2)как можно узнать наличие ключа(не параметра, не значения параметра) в реестре.Я не знаю, как можно прочитать этот ключ. Желательно пример, чтобы было легче разобраться.
Заранее благодарен!
Отправлен: 07.06.2005, 20:45
Вопрос задал: Матвеев Стас (статус: Посетитель)
Всего ответов отправлено: 2

Отвечает: ale2k
Здравствуйте, Матвеев Стас!
Private Sub Command1_Click()
On Error Resume Next
Set reg = CreateObject("WScript.Shell")
aaa = reg.RegRead("HKLMSoftwareMicrosoftWindowsCurrentVersionRun wiz")
If Err Then MsgBox "НЕТ КЛЮЧА или нет прав на чтение" 'если нет ключа код ошибки -2147024894
' aaa возвращает значение ключа если он есть
End Sub
Ответ отправил: ale2k (статус: Студент)
Отправлен: 07.06.2005, 21:57
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо.Это как раз то, что нужно!

Отвечает: Licvidator
Здравствуйте, Матвеев Стас!
Отвечу только на первый вопрос, т.к. на второй уже ответили.
Может быть, мой код не будет являтся правильным, но зато работает:)

Private Sub MDIForm_Resize()
On Error Resume Next
MDIForm1.Height = 5000
MDIForm1.Width = 5000
End Sub

Смысл, я думаю, ясен.
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 07.06.2005, 23:26
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое,очень помогли!


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

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

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

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

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


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


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

Яндекс


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться
Вспомнить пароль

В избранное