Tutorial Membuat Aplikasi Dengan Menggunakan MDIForm Visual Basic 6.0

   

Gambar : MDIForm di Visual Basic 6.0

      MDIForm (Multiple Document Interface) Form adalah sebuah Form khusus yang dapat menampung lebih dari satu form biasa, sehingga semua form yang memiliki fungsi berbeda pada applikasi yang kita buat bisa menjadi satu. Jadi MDIForm juga dapat kita sebut sebagai Induk Form.

      Makanya pasti di semua program yang memiliki lebih dari satu form yang memiliki fungsi berbeda pasti banyak yang menggunakan jasa MDIForm ini, bayang kan saja jika semua form yang kita butuhkan masing fungsinya tidak berada di satu wadah yang menyatukannya, repot dong jadinya. maka dari itu lah kita sangat membutuhkan MDIForm ini untuk menyatukan semua Form yang telah kita buat dengan fungsi yang berbeda - beda, dengan demikian applikasi yang kita buat menjadi terstruktur, ya seengganya sih jadi rapih.

      Apa aja sih yang dapat kita manfaatkan atau kita lakukan dengan MDIForm ini, padahal kita g bisa buat object seperti Command Button di Form ini g seperti Form biasanya ?, ya memang sih MDIForm ini jauh beda dengan Form biasanya, ok biar lebih cepet ngerti kita mulai saja praktek dengan menggunakan MDIForm ini. Mulai buka applikasi Visual Basic 6.0 nya seperti biasa, dan pilih Project yang standard exe ya.

1. Buat Form LogIn

Gambar : Tampilan Form LogIn

      Siapkan 2 object label dan 2 object TextBox, atur sedemikian rupa seperti form login. Set Properti Objectnya seperti ini :

• Form1

          Name           : "Frm_LogIn"

          Caption        : "LogIn"

          BorderStyle : "1 - Fixed Single"

• Label1

          Caption : "User ID :"

• Label2

          Caption : "Password : "

• TextBox1

          Name       : "Txt_UserId"

          Text         : "User ID"

          TabIndex : 0

• TextBox2

          Name              : "Txt_Password"

          Text                 : "Password"

          PasswordChar : "*"

          TabIndex         : 1

Copy Code Berikut ke Window Code

Option Explicit

Private Sub Form_Load()
'   Code Untuk Set agar posisi Form di tengah Layar.
    Me.Top = (Screen.Height - Me.Height) / 3
    Me.Left = (Screen.Width - Me.Width) / 2
End Sub

Private Sub Txt_Password_GotFocus()
    Call BlockAllText(Txt_Password)
End Sub

Private Sub Txt_Password_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        If Txt_UserID.Text <> "Jafar" Then
            MsgBox "User Yang Anda Masukan Salah !", vbCritical + vbOKOnly
            Txt_UserID.SetFocus
            Exit Sub
        End If
        If Txt_Password.Text <> "TextMasuk" Then
            MsgBox "Password Yang Anda Masukan Salah !", vbCritical + vbOKOnly
            Txt_Password.SetFocus
            Exit Sub
        End If
        
        MsgBox "LogIn Berhasil !", vbInformation + vbOKOnly
        
        MDIForm1.Show
        Unload Me
    End If
End Sub

Private Sub Txt_UserID_GotFocus()
    Call BlockAllText(Txt_UserID)
End Sub

Private Sub Txt_UserID_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Txt_Password.SetFocus
    End If
End Sub

'Function Untuk Block text
Private Sub BlockAllText(oText As Object)
    oText.SelStart = 0
    oText.SelLength = Len(oText.Text)
End Sub

•  Setelah itu Add MDIForm dengan cara click kanan di windows project Explor atau pilih menu Project - MDIForm.
• Click kanan design MDIForm lalu pilih Menu Editor maka akan muncul tampilan Menu Editor seperti gambar berikut.

• Untuk menu pertama isi Caption : "Program Sederhana", Name : "MnuProgramSederhana", setelah itu click Next lalu buat lagi menu kedua, Caption : "Kalkulator", Name : "MnuKalkulator"
• Sebelum kita isi code di MDIFormnya Add Terlebih dahulu Form Program yang pernah kita buat Membuat Program Sederhana Dengan Visual Basic 6.0 ganti nama form jadi FrmProgSederhana dan Form Kalkulator Sederhana Dengan Visual Basic 6.0. ganti nama jadi Frm_Kalkulator. Bagi yang blum tau cara Add Filenya yaitu click kanan di project explor -> Add -> Add File, setelah di Add ubah settingan MDIChild = True untuk Form Frm_ProgSederhana dan Frm_Kalkulator.
• Setelah itu baru masukan code berikut di Form MDIForm nya:

Option Explicit

Private Sub MnuKalkulator_Click()

    Frm_Kalkulator.Show

End Sub

Private Sub MnuProgramSederhana_Click()

    FrmProgSederhana.Show

End Sub

• Klo sudah tinggal CTRL+F5 aja sob.

Klo g ada error langsung aja LogIn, Id nya : Jafar dan passwordnya : TextMasuk, inget ya id sama password Case Sensityp.