Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB / 6 сообщений из 6, страница 1 из 1
23.11.2008, 23:15
    #35670604
MrHelpMe
MrHelpMe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Товарищи! Вот появился еще й вопрос
Есть кнопочка, форма 1 и форма 2
При нажатии на кнопочку выскакивает окошко ввода пас, еси пас тру то открывает форму 2
Кто подскажет код, о величайшие умы форума?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 00:33
    #35670652
Ukito
Ukito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Вопрос номер "мой" логическая операция, Остача от деления не целое ? .. в Си ето %.. в вб незнаю =(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 02:44
    #35670684
MrHelpMe
MrHelpMe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Private Sub Command1_Click()
If Text1 = 1 Then Form3.Show

If Text1 <> 1 Then
Unload form1
Dim answer As VbMsgBoxResult
answer = MsgBox("Нифига не прально", vbOKOnly, _
"ерор")
If answer = vbOK Then
Form2.Show
End If
End If
End Sub
Если сделать так то пашет почти правильно тока если в поле было введено 1 и нажать на кнопку оно грузит форму 3 но не закрывает форму 1 ибо если
Private Sub Command1_Click()
If Text1 = 1 Then Form3.Show
Unload form1
то пишет ошибку тут If Text1 <> 1 Then
Вопрос: где я давун?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 09:11
    #35670796
Skiffspb
Skiffspb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
MrHelpMeТоварищи! Вот появился еще й вопрос
Есть кнопочка, форма 1 и форма 2
При нажатии на кнопочку выскакивает окошко ввода пас, еси пас тру то открывает форму 2
Кто подскажет код, о величайшие умы форума?

Как-то так...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command1_Click()
Const MyPass = "12345"
Dim aPass As String

aPass = InputBox("хАчу пАроль =)")

If aPass = MyPass Then
    Form2.Show
Else
    MsgBox "Гадай ИсчО"
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 14:55
    #35671800
MrHelpMe
MrHelpMe
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Спс чувак!!! Все пашет норм.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2008, 00:10
    #35712915
Ukito
Ukito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
MrHelpMePrivate Sub Command1_Click()
Unload form1
у меня неполучается, спрятать форму 1, после открытия формы 2 оператором Form2.Show() так как дочерной щетается..,
оператор Form1.Hide() неработает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 344ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161524]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 201ms
total:  344ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]