Load/membuka Form di dalam Picturebox dengan Visual Basic 6

Percaya atau tidak, desain aplikasi sangat mempengaruhi kenyamanan user, istilahnya UX experience. Berbagai cara dilakukan buat menyenangkan user. Misalnya biar terkesan sederhana, aplikasi dibuat tanpa MDI container.

Terus terang aku suka dengan design seperti itu. Aku pernah melihat ada yang membagikan source code aplikasi yang nggak pakai MDI container. Masalahnya aplikasi itu dibuat dengan vb.net. 

Kalau di vb.net kita bisa menggunakan panel sebagai penampung form. Kalau di vb6 gimana? vb6 nggak punya panel, jadi pasrah saja ya.

Meski nggak punya panel, tapi kita bisa pakai sedikit trik. Kuy simak tips and trik meload form di panel wannabe di vb6.

Bahan Baku

form1
      -- Picture Box, name ="picture1 "
      -- Command Button 1, name="Command1"
      -- Command Button 2, name="Command2"
form 2
      -- Label, name "Label1"
form 3
      -- Label, name "Label1"

Setelah bahan bakunya disiapkan, saatnya kita olah menjadi suatu aplikasi. Langkahnya sebagai berikut:

1.  Rangkai komponen-komponen di  form 1 seperti gambar berikut:

 

2.  Setting Form2

     set Form Border Style = 0 None

     label 1 Caption = "INI ADALAH FORM 2" 

3. Setting Form 3

     set Form Border Style = 0 None

     label 1 Caption = "INI ADALAH FORM 3" 

4. Kembali ke Form 1, tuliskan mantra berikut ini:

 

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

private sub command1_click()

   form1.show
    SetParent form1.hwnd, picture1.hwnd    

    Call form1.Move(0, 0)

end sub

source code ini hasil modifikasi dari : http://www.vbforums.com/showthread.php?545636-Load-a-form-into-a-frame