Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как приостановить работу одной формы, пока работает другая? / 6 сообщений из 6, страница 1 из 1
31.10.2007, 08:46
    #34906287
Charles Weyland
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
Можно перефразировать вопрос:
как создать собственными руками форму типа MsgBox? (что бы она приостанавливала работу главной формы в месте вызова, а потом её возобновляла).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2007, 09:06
    #34906321
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
создайте форму и откройте ее в модальном режиме

Код: plaintext
MyForm.Show vbModal

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2007, 13:24
    #34907443
Charles Weyland
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
HandKotсоздайте форму и откройте ее в модальном режиме

Код: plaintext
MyForm.Show vbModal

I Have Nine Lives You Have One Only
THINK!
оо, неплохо!
Попутно второй вопрос..
msgBox возвращает значение - это как можно реализовать?
Я бы сделал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
....
OtvetUsera=MyMsgBox("Напиши строку")
....

function MyMsgBox(Msg as string) as string
MsgBoxForm.Show vbModal
MyMsgBox=MsgBoxForm.Result'где Result - это глобальная переменная в MsgBoxForm
unload MsgBoxForm
end function
'Но глобальные переменные использовать не хочется - есть другие варианты?
'Именно так, что бы через параметр передавалось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2007, 13:29
    #34907468
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
используй лучше InputBox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2007, 15:00
    #34907852
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
используй св-во Tag
т.е во второй форме его устанавливаешь, делаешь Me.Hide
а там где запускал форму d = frm.tag и Unload frm


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2007, 15:34
    #34907994
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как приостановить работу одной формы, пока работает другая?
Так вам нужен не MsgBox, a что-то вроде InputBox. MsgBox не возвращает string, как у вас. Но InputBox не используйте, это устаревший способ, оставленный для совместимости с прежними версиями языка. Нужна действительно форма. Берите тогда либо Tag ее либо добавьте новое свойство форме (как это делается для любого класса):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Private mstrMyResponse As String

Public Property Get MyResponse() As String
    MyResponse = mstrMyResponse
End Property

Public Property Let MyResponse(ByVal vNewValue As String)
    mstrMyResponse = vNewValue
End Property
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как приостановить работу одной формы, пока работает другая? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163161]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 245ms
total:  371ms
x
x
Закрыть


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