Не показывать окно

[Saturn.65]

При первом запуске программы, после ее установки, показывается окно.
Там написано: программа успешно установлена и все в таком роде.
При этом в реестре происходит запись.
При последующем запуске программа проверяет реестр, читает эту запись (запись появляется в Text1.Text) и если там записан 0, то окно приветстваия уже не выводит. Как бы лучше написать код? Вроде этот работает, но окно приветствия все равно кратковременно моргает на экране. Как-то это не очень хорошо.
Как бы лучше написать, чтоб оно вообще не появлялось?

Код: Выделить всё

Form Load
If Text1.Text = 0 Then
Form2.Show
End If
If Text1.Text = " " Then
Form2.Hide
End If


Может команда проверки Text1.Text должна быть первей, чем Form2.Show ?

[Хакер]

Нафига считывать значение из реестра в TextBox? Почему бы сразу не проверить его в If-блоке?

Зачем делать проверку в коде формы? Почему бы не сделать проверку ещё до создания экземпляра формы?

[Arcady_XQST]

При первом запуске программы, после ее установки, показывается окно.
Там написано: программа успешно установлена и все в таком роде.
При этом в реестре происходит запись.
При последующем запуске программа проверяет реестр, читает эту запись (запись появляется в Text1.Text) и если там записан 0, то окно приветстваия уже не выводит. Как бы лучше написать код? Вроде этот работает, но окно приветствия все равно кратковременно моргает на экране. Как-то это не очень хорошо.
Как бы лучше написать, чтоб оно вообще не появлялось?

Код: Выделить всё

Form Load
If Text1.Text = 0 Then
Form2.Show
End If
If Text1.Text = " " Then
Form2.Hide
End If


О-хо-хо! Тогда уж в Properties формы сделай Visible = False
---
Короче, делай как Хакер сказал.

[dr.MIG]

Чтобы было вообще красиво, добавь стандартный модуль, а в него процедуру Main, установи, чтобы она обрабатывалась первой в свойствах проекта. Вот в ней и читай реестр и в зависимости от результата загружай первую или вторую форму. И да, как уже сказали, не надо ничего писать в текстовое поле -- переменные тебе на что?

[Saturn.65]

Нафига считывать значение из реестра в TextBox? Почему бы сразу не проверить его в If-блоке?

Зачем делать проверку в коде формы? Почему бы не сделать проверку ещё до создания экземпляра формы?

Код: Выделить всё

Text1.Text = Reg1.GetValue(HKEY_CURRENT_USER, "Software\Proga", "Licensia")


Я вот так считываю данные нужного мне ключа. Можно ли его сразу в If блоке проверить?
Спасибо всем. Все сделал, ничего не моргает. окно один раз появляется и все. то, что мне надо было.

[Arcady_XQST]

В модуль:

Код: Выделить всё

Sub Main()
  If (Reg1.GetValue(HKEY_CURRENT_USER, "Software\Proga", "Licensia") = 0) Then
    Form2.Show
  End If
End Sub

[Хакер]

Угу. Reg1 это что?

[Arcady_XQST]

Наверняка модуль по работе с реестром, а там - хрен его знает...

[Saturn.65]

Контрол Reg.ocx. И две строчки кода: записать и считать. Очень удобно. Ничего лишнего. Пиши хоть цифры, хоть слова. Для слов надо только REG_SZ поменять. Работа с любой веткой реестра.
А то вроде VB не может со всем реестром работать.

Код: Выделить всё

Private Sub Command1_Click()
Reg1.SetValue HKEY_CURRENT_USER, "Software\Proga", _
"Ключ", Val(Text1.Text), REG_DWORD 'запись
End Sub

Private Sub Command2_Click()
Text2.Text = Reg1.GetValue(HKEY_CURRENT_USER, "Software\onClickTweak", "Ключ") 'чтение
End Sub


[Arcady_XQST]

Контрол Reg.ocx

Уже удобно... Скачай лучше модуль по работе с реестром, и не надо будеть все время таскать (а в последствии еще и регистрировать) Reg.ocx.

[Saturn.65]

Контрол Reg.ocx

Уже удобно... Скачай лучше модуль по работе с реестром

Наверное удобней. А как потом записывать и считывать? Модуль то модулем, а в форме как писать? Вдруг до меня не дойдет? Тут то я привык. Хотя все и через задницу пишу.

[Arcady_XQST]

Контрол Reg.ocx

Уже удобно... Скачай лучше модуль по работе с реестром

Наверное удобней. А как потом записывать и считывать? Модуль то модулем, а в форме как писать? Вдруг до меня не дойдет? Тут то я привык. Хотя все и через задницу пишу.

Вот, модуль с примером использования. Изучай

[Хакер]

Контрол Reg.ocx

Фтопку. Используй модуль от GSerg-а.

[Saturn.65]

Спасибо всем за заботу. Буду изучать. Небольшой вопрос для всех: чем ocx хуже модуля? То, что лишний контрол и место занимает? Или же по функциональности не совсем полноценен, нежели модуль?
Зато коду -две строчки. И еще думаю, стоит ли реестр использовать как базу данных для программ? Я имею ввиду не хранение текстовых документов или еще, что-то в этом роде. А для сохранения настроек программы. Просто если поставил галочку в CheckBox, то при загрузке окна она и будет стоять. C одной стороны удобно, нет лишних файлов, записал-считал. С другой стороны, при откате системы все теряется.

[Viper]

В данной ситуации ocx просто избыточен. По поводу хранения настроек программы, то собственно это и есть одно из предназначений реестра. Можешь почитеть мой перевод соответствующего раздела MSDN на www.vbstreets.ru.