работа с формами

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

er_admin
Новичок
Новичок
 
Сообщения: 35
Зарегистрирован: 04.06.2004 (Пт) 21:25

работа с формами

Сообщение er_admin » 24.03.2005 (Чт) 8:51

hello

1) мне нужно, чтобы программа начинала работу с процедуры Main, которая находится в стандартном модуле
2) после проверки необходимо загружать форму, где юзер вводит логин и пароль
3)если логин и пароль соответствуют, то необходимо эту форму выгрузить и загрузить другую.

в ВБ6 все это делалось без проблем, а в ВБ.НЕТ не понимаю как это сделать.

подскажите кодом, плиз.

методом научного тыка дошел до этого:
Код: Выделить всё
sub main
    dim frm as new frmVhod

    system.bla-bla.application.run(frm)    'показываю форму, где вводятся логин и пароль
end sub

private sub cmdOK(bla-bla-bla)
    dim frm as new frmForma2

    frm.show
    me.close
end sub


этот код при нажатии кноки cmdOK вторая форма показывается, но при закрытии формы frmVhod, закрывается вся программа.

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 24.03.2005 (Чт) 10:34

sub main
dim frm as new Loginform

if frm.ShoDialog()<>DialogResult.Ok then 'показываю форму, где
вводятся логин и пароль

End
end if

frmMain=new form2
frmMain.showDialog

end sub

private sub cmdOK(bla-bla-bla)

if мойпароль=ок then

me.close

end if
end sub


кнопке ОК поставь диалог ресульт
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

@Kidman
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 13.04.2005 (Ср) 20:03

Сообщение @Kidman » 13.04.2005 (Ср) 20:09

Доброе время суток!
У меня такая проблема.... есть форма, загружается первой, потом мне необходимо вызвать вторую форму, а эту скрыть... так вот, всё это хорошо работает, но вот закрытие приложения не работает, процесс висит :-(

@Kidman
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 13.04.2005 (Ср) 20:03

Сообщение @Kidman » 13.04.2005 (Ср) 20:15

в смысле не процесс висит, а память занимает, но полностью не умирает, висит он в диспетчере задач..... Заранее благодарен за ответы!

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 13.04.2005 (Ср) 21:04

мож у тя хост висит?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

areh
Постоялец
Постоялец
 
Сообщения: 530
Зарегистрирован: 02.12.2002 (Пн) 12:28
Откуда: РОССИЯ, Салехард

Сообщение areh » 14.04.2005 (Чт) 10:18

погляди вот тут... может тебя такой способ устроит...

http://bbs.vbstreets.org/viewtopic.php?t=6686

@Kidman
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 13.04.2005 (Ср) 20:03

Сообщение @Kidman » 22.04.2005 (Пт) 1:50

да, спасибо, хороший способ.... только вот что-то у меня не заладилось вот с этим:

NextForm = NeedsForm.Splash

Do While NextForm <> NeedsForm.No

NextForm = NeedsForm.No

Select Case NextForm
Case NeedsForm.Admin
frm_Admin = New cls_admin()
frm_Admin.ShowDialog()
frm_Admin = Nothing

Case NeedsForm.Editor
frm_Editor = New cls_Editor()
frm_Editor.ShowDialog()
frm_Editor = Nothing

Case NeedsForm.Login
frm_Login = New cls_Login()
frm_Login.ShowDialog()
frm_Login = Nothing

Case NeedsForm.Splash
frm_Splash = New cls_Splash()
frm_Splash.ShowDialog()
frm_Splash = Nothing

Case NeedsForm.User
frm_User = New cls_User()
frm_User.ShowDialog()
frm_User = Nothing

End Select
Loop

Но стоило убрать следующее
NextForm = NeedsForm.No
и сразу заработал, а перед этим просто закрывалось приложение, не успев запуститься

areh
Постоялец
Постоялец
 
Сообщения: 530
Зарегистрирован: 02.12.2002 (Пн) 12:28
Откуда: РОССИЯ, Салехард

Сообщение areh » 22.04.2005 (Пт) 10:21

мда... странно что я это вообще выложил... этой строки там вроде как быть не должно :)


Вернуться в Visual Basic .NET

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 78

    TopList