Хочу TRUE, что мне делать? - VB
Формулировка задачи:
Есть две формы:
Form1, Form2
На Form2 есть кнопка cmdOK
Private Sub cmdOK_Click()
' MsgBox cmdOK.Value равно TRUE
Unload Me
End Sub
В Form1 я вызываю Form2:
Private Sub mbOpen_Click()
Form2.Show vbModal
'MsgBox Form2.cmdOK.Value равно FALSE ???
End Sub
Вопрос: Почему при нажатии на кнопке cmdOK на Form2 возврате
в процедуру первой формы mbOpen_Click() Form2.cmdOK равно FALSE?
Form1, Form2
На Form2 есть кнопка cmdOK
Private Sub cmdOK_Click()
' MsgBox cmdOK.Value равно TRUE
Unload Me
End Sub
В Form1 я вызываю Form2:
Private Sub mbOpen_Click()
Form2.Show vbModal
'MsgBox Form2.cmdOK.Value равно FALSE ???
End Sub
Вопрос: Почему при нажатии на кнопке cmdOK на Form2 возврате
в процедуру первой формы mbOpen_Click() Form2.cmdOK равно FALSE?
Решение задачи: «Хочу TRUE, что мне делать?»
textual
Листинг программы
<font color="00AA00">'это Form1</font> <font color="blue">Dim</font> <font color="blue">WithEvents</font> frmForm2 <font color="blue">As</font> Form2 <font color="blue">Private</font> <font color="blue">Sub</font> btnForm2_Click() <font color="blue">If</font> frmForm2 <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> <font color="blue">Set</font> frmForm2 = <font color="blue">New</font> Form2 frmForm2.Show <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Private</font> <font color="blue">Sub</font> Form_Unload(Cancel <font color="blue">As</font> <font color="blue">Integer</font>) <font color="blue">If</font> <font color="blue">Not</font> frmForm2 <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> Unload frmForm2 <font color="blue">Set</font> frmForm2 = <font color="blue">Nothing</font> <font color="blue">End</font> <font color="blue">If</font> <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Private</font> <font color="blue">Sub</font> frmForm2_ImClosed(<font color="blue">ByVal</font> OK_Exit <font color="blue">As</font> <font color="blue">Boolean</font>) MsgBox <font color="teal">"OK_Exit = "</font> & OK_Exit <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д