Конференция VBStreets

**Павлуша** » 05.11.2005 (Сб) 20:16

ANDLL
я тебе письмо отправил - весит оно 5 метров.
пробовал... тоже самое. даже при польностью удаленном коде...
может мистика какая-то...

**ANDLL** » 05.11.2005 (Сб) 20:19

Отправь ТОЛЬКО эту форму, с вырезанным кодом. Она надеюсь не 5 мегабайт весит

**Павлуша** » 05.11.2005 (Сб) 20:21

ANDLL
я уже отправил весь проект.
щас каникулы. мы особо не торопимся, поэтому я лучше до вторника потерплю...

**ANDLL** » 05.11.2005 (Сб) 20:30

Может все-таки вышлешь только форму, пока у МЕНЯ есть свободное время. Все-таки в универе его может и не оказаться так много. И ждать тебе тогда придеться до субботы...

**Павлуша** » 05.11.2005 (Сб) 20:33

ANDLL
ну ладно я вышлю...
проверь почту

**ANDLL** » 05.11.2005 (Сб) 20:50

Если это шутка, то довольно скверная...
Ты все-таки проверь, как у тебя называеться та кнопка, которая нажимаеться..........

**Павлуша** » 05.11.2005 (Сб) 20:54

ANDLL
command3 она называется!
ее каптион равен Далее
нет, только не говори, что она как-то по-другому называется...

**ANDLL** » 05.11.2005 (Сб) 20:56

Именно это я и хочу сказать. У тебя там две кнопки - Command3 и Command1. Одна на одной. Command1 у тебя нажимаеться. А Command3 нет. Просто т.к. Command3 не активна, то Command1 вылазит на передний план.

**Павлуша** » 05.11.2005 (Сб) 21:01

ANDLL
***рвет на себе волосы и бьется головой о монитор***
я недоглядел!!!!! приношу искренние извинения :oops:

**Павлуша** » 05.11.2005 (Сб) 21:22

Ну блин!
Чесно говоря - эта комманд3 там ваще не нужна... это все GDC начудил. мы ему на последнюю доработку проект отдали... там только первая кнопа нужна... блин.. поймаю его в инсте... :shaking2:

Андрей, спасибо тебе большое, что помог.
Дальше буду пробовать разобраться сам...

**ANDLL** » 05.11.2005 (Сб) 21:30

Пожалуйста. Всегда рад

**Павлуша** » 05.11.2005 (Сб) 21:51

фуу... с одним разобрались...
еще один вопрос. самый главный...
если юзер зарегал прогу, то форма регистрации должна не появляться при следующих загрузках программы. как этого можно добиться?

**ANDLL** » 05.11.2005 (Сб) 22:00

при регистрации:

Код: Выделить всё: SaveSetting "Our application", "main", "registered", "yes"

Проверка:

Код: Выделить всё: If GetSetting("Our application", "main", "registered", "no") = "yes" Then 'зарегистрирована

**Павлуша** » 05.11.2005 (Сб) 22:10

ANDLL
ааа... эээ... код можно?... :oops:

BV » 05.11.2005 (Сб) 22:14

Всё же напомню, что у нас есть чат.

**ANDLL** » 05.11.2005 (Сб) 22:30

И?

Код: Выделить всё: Private Sub Form_Load() If GetSetting("Our application", "main", "registered", "no") = "yes" Then MsgBox "А вы уже зарегистрировались!", vbInformation: End If MsgBox("Зарегистрироваться?", vbYesNo Or vbQuestion) = vbYes Then SaveSetting "Our application", "main", "registered", "yes" End End Sub

**Павлуша** » 06.11.2005 (Вс) 19:12

Являясь человеком глупым, прошу объяснить некоторые нюансы:
Our application - название приложения?
main - форма с которой начинается загрузка проекта?
registered - эээ непонял что это... :oops:

yes no - непосредственно проверка на регистрацию?
:oops:

**ANDLL** » 06.11.2005 (Вс) 19:22

Our application - название приложения(имееться ввиду полное название)
main - название ключа в реестре(может быть что угодно)
registered - названия параметра в реестре, в который будем что-то писать
yes - по англицки да, no - нет.

Принципиально важно только то, что бы при сохранении(SaveSetting) и загрузке(GetSetting) были указаны одинаковые имя приложения, ключ и параметр реестра. А какими именно будут эти имена принципиальной разницы нет.

BV » 06.11.2005 (Вс) 19:26

Павлуша писал(а):Являясь человеком глупым, прошу объяснить некоторые нюансы:
Our application - название приложения?
main - форма с которой начинается загрузка проекта?
registered - эээ непонял что это...
yes no - непосредственно проверка на регистрацию?

Ужас. И этот человек почти год на форуме, имеет более 500 сообщений...

**Павлуша** » 06.11.2005 (Вс) 19:33

ANDLL
так так... интересно...
в поле main писать полный путь в реестре? (ну там HKLM-Microsoft-Software-ну и т.д.) или можно только основной ключ
поле registred - параметр создается сам, так я понял?
yes и no - значения параметра registrered?

**ANDLL** » 06.11.2005 (Вс) 19:41

поле registred - параметр создается сам, так я понял?
yes и no - значения параметра registrered?

Да.

в поле main писать полный путь в реестре? (ну там HKLM-Microsoft-Software-ну и т.д.) или можно только основной ключ

Попробуй, сдаеться мне, если ошибешься компьютер не сгорит.
Вообще-то путь указываеться относительно HKLM\Software....
И вообще-то я согласен с BV, может Павлуша кому-то свой пароль на форуме дал?

**Павлуша** » 06.11.2005 (Вс) 19:50

ANDLL
я никому не давал пароль от форума - я свой пароль бытался брутать, так он даже через 4 часа не отдал мне результат.
ладно - буду пробовать... пока комп не сгорит...

**Павлуша** » 06.11.2005 (Вс) 20:17

Подредактировал код вот до такого вида:

Код: Выделить всё: If GetSetting("IQ-test", "HKLM\Software\deada11's labs\", "registered", "no") = "yes" Then MsgBox "А вы уже зарегестрировались!", vbInformation: load form1 If MsgBox("Зарегацца?", vbYesNo Or vbQuestion) = vbYes Then SaveSetting "IQ-test", "HKLM\Software\deada11's labs\", "registered", "yes"

Результат:
при вопросе Зарегацца? :
ответ - да: выкидывает на форму регистрации
ответ - нет: выкидывает на форму регистрации
если регистрируюсь - при повторном запуске проги - Вы уже зареганны! и потом снова Зарегацца??
при нажатии на да - переход на форму регистрации
ответ нет - на форму регистрации...

**ANDLL** » 06.11.2005 (Вс) 23:16

Во-первых, твои настройки будут сохраняться в ключе HKEY_CURRENT_USER\Software\VB and VBA Program Settings\IQ-test\HKLM\Software\deada11's labs\ Это так, просто к слову.
Во-вторых что там делает команда load form1?
В-третьих ты когда нибудь слышал про оператор End If?

**Naked** » 07.11.2005 (Пн) 2:24

tyomitch пользовался я ES_NUMBER, оно конечно работает, но выскакивает балун с сообщением, не для всех желательный

**Павлуша** » 07.11.2005 (Пн) 14:19

ANDLL
laod form1 нужна для того, чтобы если прога уже зареганна, грузилась сразу первая форма, а не форма регистрации.
в реестре проверил ключи и ту ветку, что ты сказал - она там действительно есть (офигеть, правда? :lol:

), но при проверке этого ключа - все одно и тоже: сначала орет, что прога уже зареганна, а потом снова предлагает зарегацца.
Про такой оператор слышал :lol:

но вот куда его пихать - не въехал:

Код: Выделить всё: If GetSetting("IQ-test", "HKLM\Software\deada11's labs\", "registered", "no") = "yes" Then MsgBox "À âû óæå çàðåãèñòðèðîâàëèñü!", vbInformation, vbOKOnly end if 'орет что End if without block if

а если:

Код: Выделить всё: If MsgBox("Çàðåãèñòðèðîâàòüñÿ?", vbYesNo Or vbQuestion) = vbYes Then SaveSetting "IQ-test", "HKLM\Software\deada11's labs\", "registered", "yes" end if 'орет тоже самое.

**ANDLL** » 07.11.2005 (Пн) 16:55

2Павлуша:
1)Я рад, что ты про него слышал. Теперь почитай, для чего он нужен

2)Почитай также, для чего служит метод Load. Особенно о том, в чем заключаеться его отличие от Show.
3)Перед копированием кода переноси его через Word. И хотя бы бегло прочитывай свои посты перед отправлением.
2Naked:А с балуном куда прикольнее. Но если он тебе сильно не нравиться, просто не выполняй InitCommonControls.

**Павлуша** » 07.11.2005 (Пн) 22:03

ANDLL
извините, просто мне лень заносить в ворд и читать их...
почитаю для чего он нужен, но вот пока не знаю, где читать!

**Павлуша** » 07.11.2005 (Пн) 22:27

End If - необходим для завершение проверки условия оператором If.
вот нашел! и что мне это дает?

**Amed** » 07.11.2005 (Пн) 22:28

Код: Выделить всё: If GetSetting("IQ-test", "HKLM\Software\deada11's labs\", "registered", "no") = "yes" Then MsgBox "À âû óæå çàðåãèñòðèðîâàëèñü!", vbInformation, vbOKOnly end if

Павлуша, купи хорошую книгу по VB 6 и прочитай от начала и до конца.

Конференция VBStreets

Текст бокс, буквы и цифры.

Кто сейчас на конференции