LA3 AP2A (Menu dan PopUp Menu pada VB6.0) tanggal 21 Mei 2011

Sebelumnya gw mo ngasih tau klo LA bagian ini gw g make PopUpMenu soalnya gw lupa codingan bwt PopUpMenu tuh gimana. Jadi gw cuma ngbahas Menu Editor aja..

Listing

MDIForm1
Private Sub about_Click()
MsgBox "Design by Adjie Putra Nugraha", vbInformation, "Info"
End Sub

Private Sub exit_Click()
If MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbInformation, "Exit") = vbYes Then
End
End If
End Sub

Private Sub kalkulator_Click()
Form1.Show
MDIForm1.Hide
End Sub

Private Sub text_Click()
Form2.Show
MDIForm1.Hide
End Sub

Private Sub warna_Click()
Form3.Show
MDIForm1.Hide
End Sub

Form1
Private Sub Command1_Click()
Text1.text = ""
Text2.text = ""
Text3.text = ""
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
Text3.text = Val(Text1.text) + Val(Text2.text)
End Sub

Private Sub Command4_Click()
Text3.text = Val(Text1.text) - Val(Text2.text)
End Sub

Private Sub Command5_Click()
Text3.text = Val(Text1.text) * Val(Text2.text)
End Sub

Private Sub Command6_Click()
Text3.text = Val(Text1.text) / Val(Text2.text)
End Sub

Form2
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
MDIForm1.Show
Form2.Hide
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub

Form3
Private Sub Command1_Click()
Form1.BackColor = Text1.BackColor
Form2.BackColor = Text1.BackColor
Form3.BackColor = Text1.BackColor
MDIForm1.BackColor = Text1.BackColor
End Sub

Private Sub warna()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub Command2_Click()
Form1.BackColor = &H8000000F
Text1.BackColor = &H8000000F
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Form3.Hide
End Sub

Private Sub HScroll1_Change()
warna
Label4.Caption = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
warna
Label5.Caption = HScroll2.Value
End Sub

Private Sub HScroll3_Change()
warna
Label6.Caption = HScroll3.Value
End Sub

Output