Visual Basic Reference

Пример использования свойства Parent

Пример передает control от формы, которая не имеет фокуса, процедуре в модуле, и потом отображает состояние control'а на родительской форме. Чтобы опробовать этот пример, создайте три формы: Form1, содержащую CommandButton control,  Form2 и Form3, каждая содержит CheckBox control. Вы должны также создать новый модуль (щелкнуть Add Module в пункте меню Project). Вставьте код в секции объявлений соответствующих форм или модуля, и нажмите F5 для выполнения программы.

' Введите этот код в Form1.
Private Sub Form_Load ()
   Form2.Show   ' Отобразить все формы.
   Form3.Show
   Form2.AutoRedraw = True
   Form3.AutoRedraw = True
End Sub

Private Sub Command1_Click ()
   ReadCheckBox Form2.Check1   ' Вызов процедуры в другом модуле
   ReadCheckBox Form3.Check1   ' и посылка control как аргумента.
End Sub

' Введите этот код в Module1.
Sub ReadCheckBox (Source As Control)
   If Source.Value Then
      Source.Parent.Cls   ' Очистить родительскую форму.
      Source.Parent.Print "CheckBox is ON."  ' Отобразить на родительской форме.
   Else
      Source.Parent.Cls   ' Очистить родительскую форму.
      Source.Parent.Print "CheckBox is OFF."  ' Отобразить на родительской форме.
   End If
End Sub