Membuat Program Menggunakan Fungsi MDIForm

Konsep program yang akan dibuat kali ini adalah:

1. Tahap pertama kita akan membuat sebuah Form login yang digunakan untuk masuk kedalam MDIForm, Form login ini tidak termasuk kedalam anak program dari MDIForm
2. Membuat MDIForm lalu buat sebuah menu dengan nama menu lalu mempunyai sebuah submenu dengan nama Matrik Program. 
3. Membuat anak form, yang dimana form ini berisikan tentang program efek text matrik. 

Oke langsung saja buat programnya:

A. Membuat Form Login (Form 1)


1. Buat Form Login seperti dimana:

dibawah ini adalah isi kode dari program Form Login:

Dim pass As String
Dim user As String
Dim p As Integer
Dim Hit As Integer

Private Sub Command1_Click()
pass = "fajar"
user = "fajar rifai"
If Hit < 2 Then
If Text1.Text = user And Text2.Text = pass Then
MsgBox "Selamat Anda Berhasil Login", vbInformation, "berhasil"
MDIForm1.Show
Me.Hide

Else
MsgBox "Login Error"
Hit = Hit + 1
Label3.Caption = "remaining " & (3 - Hit) & " more times"
End If

Else
MsgBox "youre account has been blocked"
End
End If

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub

Catatan: untuk dapat masuk kedalam MDIForm pada program ini anda memasukan Username dengan nama fajar rifai dan Password fajar.

B. Membuat Program Efek Text Matrik (Form 2)

1.Buat Form Seperti Gambar dibawah:

dibawah ini adalah kode pada progra Efek Text Matrik:

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

Private Sub Command2_Click()
p = MsgBox("Keluar Aplikasi?", vbInformation + vbYesNo)
If p = vbYes Then
End
Else
Me.Show
End If
End Sub

Private Sub Timer1_Timer()
Label1.Top = Val(Label1.Top) + 30
Label2.Top = Val(Label2.Top) + 50
Label3.Top = Val(Label3.Top) + 60
Label4.Top = Val(Label4.Top) + 90
Label5.Top = Val(Label5.Top) + 70
Label6.Top = Val(Label6.Top) + 30
Label7.Top = Val(Label7.Top) + 40
Label8.Top = Val(Label8.Top) + 20
Label9.Top = Val(Label9.Top) + 80
Label10.Top = Val(Label10.Top) + 50

If Label1.Top > 4000 Then
Label1.Top = -2000
End If

If Label2.Top > 4000 Then
Label2.Top = -2000
End If

If Label3.Top > 4000 Then
Label3.Top = -2000
End If

If Label4.Top > 4000 Then
Label4.Top = -2000
End If

If Label5.Top > 4000 Then
Label5.Top = -2000
End If

If Label6.Top > 4000 Then
Label6.Top = -2000
End If

If Label7.Top > 4000 Then
Label7.Top = -2000
End If

If Label8.Top > 4000 Then
Label8.Top = -2000
End If

If Label9.Top > 4000 Then
Label9.Top = -2000
End If

If Label10.Top > 4000 Then
Label10.Top = -2000
End If
End Sub
 
Catatan : pada Propertiesnya atur MDIChild-nya menjadi TRUE

C. Membuat Membuat MDIForm

1. Buat Form Seperti dibawah ini:

setelah membuat Menu dan Submenunya adalah Matrik Program, pada submenu Matrik Program, klik dan isikan perintah seperti dibawah ini:

Private Sub k_Click()
Form2.Show
End Sub