Contoh-Contoh Program Frame NET Work

INPUTNYA          

Private Sub Check1_Click()

If Check1.Value = vbChecked Then

Label1.FontBold = True

Else

If Check1.Value = vbChecked Then

Label1.FontBold = False

      End If

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = vbChecked Then

Label1.FontUnderline = True

Else

If Check2.Value = vbChecked Then

Label1.FontBold = False

      End If

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = vbChecked Then

Label1.ForeColor = vbRed

Else

If Check3.Value = vbChecked Then

Label1.ForeColor = vbBlack

      End If

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = vbChecked Then

Label1.FontSize = 14

Else

If Check3.Value = vbChecked Then

Label1.FontSize = 10

      End If

End If

End Sub

Private Sub Check5_Click()

If Check5.Value = vbChecked Then

Label1.FontItalic = True

Else

If Check5.Value = vbChecked Then

Label1.FontItalic = False

       End If

End If

End Sub

Private Sub Check6_Click()

If Check6.Value = vbChecked Then

Label1.BackColor = vbYellow

Else

If Check6.Value = vbChecked Then

Label1.BackColor = vbBlue

       End If

End If

End Sub

Private Sub Check7_Click()

If Check7.Value = vbChecked Then

Label1.Alignment = vbRight

Else

If Check7.Value = vbChecked Then

Label1.Alignment = vbLeft

       End If

End If

End Sub

Private Sub Check8_Click()

If Check8.Value = vbChecked Then

Label1.Font = MonotypeCorsiva

Else

If Check8.Value = vbChecked Then

Label1.Font = Arial

       End If

End If

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

                                                                   OUTPUTNYA   

INPUTNYA

          :

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label1.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

Label1.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

Label1.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

Label1.ForeColor = vbMagenta

End Sub

Private Sub Option6_Click()

Label1.ForeColor = vbCyan

End Sub

                                                                   OUTPUTNYA

INPUTNYA     

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbBlack

Label1.BackColor = vbWhite

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbGreen

Label2.BackColor = vbBlue

End Sub

Private Sub Option3_Click()

Label3.ForeColor = vbBlue

Label3.BackColor = vborange

End Sub

Private Sub Option4_Click()

Label4.ForeColor = vborange

Label4.BackColor = vbYellow

End Sub

Private Sub Option5_Click()

Label5.ForeColor = vbRed

Label5.BackColor = vbYellow

End Sub

Private Sub Option6_Click()

Label6.ForeColor = vbWhite

Label6.BackColor = vblack

End Sub

                                                                     OUTPUTNYA

INPUTNYA

Private Sub Check1_Click()

If Check1.Value = vbChecked Then

ListBox1.FontBold = True

Else

If Check1.Value = vbChecked Then

ListBox1.FontBold = False

      End If

End If

End Sub

Private Sub Check2_Click()

If Check1.Value = vbChecked Then

ListBox1.FontUnderline = True

Else

If Check1.Value = vbChecked Then

ListBox1.FontUnderline = False

      End If

End If

End Sub

Private Sub Check3_Click()

If Check1.Value = vbChecked Then

ListBox1.FontItalic = True

Else

If Check1.Value = vbChecked Then

ListBox1.FontItalic = False

      End If

End If

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbYellow

Label1.BackColor = vbGreen

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbRed

Label2.BackColor = vbBlue

End Sub

Private Sub Option3_Click()

ListBox1.ForeColor = vbBlue

ListBox1.BackColor = vbCyan

End Sub

                                                                     OUTPUTNYA

                                                                        INPUTNYA

                                                                     OUTPUTNYA