Вопрос № 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 Комментарий оценки: Спасибо большое,очень помогли!