ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / еще один детский вопрос
9 сообщений из 9, страница 1 из 1
еще один детский вопрос
    #32262484
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hangkil
Гость
Есть 2 формы с чекбоксом, кликаем по нему открывается еще одна форма, на которой есть кнопка закрыть, закрываем форму.

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

Прошу не смеятся
...
Рейтинг: 0 / 0
11.09.2003, 14:27
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32262533
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tpg
Участник
В событии вызрузки второй формы надо присвоить False этому чекбоксу первой формы и выполнить DoEvents.
...
Рейтинг: 0 / 0
11.09.2003, 14:57
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32262628
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hangkil
Гость
Понятно, а вот только где, какое свойство или метод убирает отметку?
...
Рейтинг: 0 / 0
11.09.2003, 15:50
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32262722
123456
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
123456
Участник
form.form_name.checkbox_name.value=0
...
Рейтинг: 0 / 0
11.09.2003, 16:34
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32263288
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hangkil
Гость
я так и делаю ну почему то не работает
...
Рейтинг: 0 / 0
12.09.2003, 10:40
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32263421
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tpg
Участник
DoEvents после этого стоит?
...
Рейтинг: 0 / 0
12.09.2003, 11:41
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #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
13.09.2003, 14:37
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #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, 06:52
| Ответить | Цитировать | Написать  
еще один детский вопрос
    #32264675
hangkil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hangkil
Гость
все заработало, спасибо
...
Рейтинг: 0 / 0
15.09.2003, 08:52
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / еще один детский вопрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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