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

	Option Explicit
	Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
	Private Sub Command1_Click()
	Call tutupsemua
	Form2.Show
	SetParent Form2.hWnd, Picture1.hWnd ' You could also substitute a Frame for the picturebox
	Form2.Move 0, 0
	End Sub
	Private Sub tutupsemua()
	Unload Form2
	Unload Form3
	End Sub
	Private Sub Command2_Click()
	Call tutupsemua
	Form3.Show
	SetParent Form3.hWnd, Picture1.hWnd ' You could also substitute a Frame for the picturebox
	Form3.Move 0, 0
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

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