Lab 2: MDI Form And Child Form
IN CHILD FORM
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Command3_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Command3_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
IN MDI FORM
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub New_Click()
Form1.Show
End Sub
Private Sub Open_Click()
Form1.Show
End Sub
Leave a Comment