Хочу 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?

Решение задачи: «Хочу 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы