Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / еще один детский вопрос / 9 сообщений из 9, страница 1 из 1
11.09.2003, 14:27
    #32262484
hangkil
hangkil
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
Есть 2 формы с чекбоксом, кликаем по нему открывается еще одна форма, на которой есть кнопка закрыть, закрываем форму.

КАК зделать чтобы при закрытии второй формы убирался маркер с чекбокса?

Прошу не смеятся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 14:57
    #32262533
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
В событии вызрузки второй формы надо присвоить False этому чекбоксу первой формы и выполнить DoEvents.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 15:50
    #32262628
hangkil
hangkil
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
Понятно, а вот только где, какое свойство или метод убирает отметку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 16:34
    #32262722
123456
123456
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
form.form_name.checkbox_name.value=0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2003, 10:40
    #32263288
hangkil
hangkil
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
я так и делаю ну почему то не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2003, 11:41
    #32263421
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
DoEvents после этого стоит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.09.2003, 14:37
    #32264288
Hibernate
Hibernate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
Первая форма:

Код: plaintext
1.
2.
3.
4.
Private Sub Check1_Click()
  If Check1.Value =  1  Then
    Form2.Show
  End If
End Sub


Вторая форма:

Код: plaintext
1.
2.
Private Sub Form_Unload(Cancel As Integer)
Form1.Check1.Value =  0 
End Sub

все прекрасно работает.

Хотя я бы сделал не так:
В первой форме:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit
Dim WithEvents frmChild As Form

Private Sub Check1_Click()
  If Check1.Value =  1  Then
    Set frmChild = New Form2
    frmChild.Show
  Else
    Unload frmChild
  End If
End Sub

Private Sub frmChild_Load()
  Check1.Value =  1 
End Sub

Private Sub frmChild_Unload(Cancel As Integer)
  Check1.Value =  0 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 06:52
    #32264626
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
А так попробуй
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Option Explicit
Dim WithEvents frmChild As Form

Private Sub Check1_Click()
  If Check1.Value =  1  Then
    Set frmChild = New Form2
    frmChild.Show
  Else
    Unload frmChild
  End If
  DoEvents 
End Sub

Private Sub frmChild_Load()
  Check1.Value =  1 
  DoEvents 
End Sub

Private Sub frmChild_Unload(Cancel As Integer)
  Check1.Value =  0 
  DoEvents 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 08:52
    #32264675
hangkil
hangkil
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще один детский вопрос
все заработало, спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / еще один детский вопрос / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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