Visual Basic _ Aplicatia 1

Private Sub Command1_Click()
If Form1.Text1.Text = "florin" Then
Form1.Hide
Form2.Show
End If
End Sub



Private Sub Command1_Click()
If Form2.Command1 Then
Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal"
End If
End Sub
Private Sub Command10_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFFFFFF
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFFFFFF
End If
End Sub
Private Sub Command11_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H40&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H40&
End If
End Sub
Private Sub Command12_Click()
Form2.Text1.FontSize = Val(Form2.Text2.Text)
End Sub
Private Sub Command13_Click()
If Form2.Text3.Text = "B" Then
Form2.Text1.FontBold = True
End If
If Form2.Text3.Text = "I" Then
Form2.Text1.FontItalic = True
End If
If Form2.Text3.Text = "U" Then
Form2.Text1.FontUnderline = True
End If
If Form2.Text3.Text = "BI" Then
Form2.Text1.FontBold = True
Form2.Text1.fonditalic = True
End If
End Sub
Private Sub Command2_Click()
If Form2.Command2 Then
Form2.Label1.Caption = "Acum schimbati culoarea caracterelor"
End If
End Sub
Private Sub Command3_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFF&
End If
End Sub
Private Sub Command4_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H80FF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H80FF&
End If
End Sub
Private Sub Command5_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HFFFF&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HFFFF&
End If
End Sub
Private Sub Command6_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H8000&
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H8000&
End If
End Sub
Private Sub Command7_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &HC00000
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &HC00000
End If
End Sub
Private Sub Command8_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H800000
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H800000
End If
End Sub
Private Sub Command9_Click()
If Form2.Label1.Caption = "Acum schimbati culoarea pentru fundal" Then
Form2.Text1.BackColor = &H800080
End If
If Form2.Label1.Caption = "Acum schimbati culoarea caracterelor" Then
Form2.Text1.ForeColor = &H800080
End If
End Sub