Mohon tunggu...
Wawan Supriadi
Wawan Supriadi Mohon Tunggu... lainnya -

LAHIR DI SUMEDANG TANGGAL 20 NOVEMBER 1966 -. PERNAH JADI GURU DI SMP DAN SMK SEJAK TAHUN 1988 SAMPAI TAHUN 2013. PROGRAMMER DI RSU KABUPATEN SUMEDANG - SENANG MEMPELAJARI SOFTWARE 3D ANIMATION E-Mail wulansoft.computindo@gmail.com Website :http://rsudsumedang.com

Selanjutnya

Tutup

Nature

VB6: Form Container

25 Desember 2010   10:38 Diperbarui: 26 Juni 2015   10:24 932
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.

pAssignContainer = SetParent(lFrmPtr, lPicPtr) Call SetWindowPos(lFrmPtr, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE) End Function

Private Sub pReleaseContainer(lFrmPtr As Long, lParentPtr As Long)

SetParent lFrmPtr, lParentPtr End Sub

Private Sub oF2_MoveFocus()

Call winSetFocus(mlFocus1Ptr) End Sub

Private Sub Picture1_GotFocus()

Call winSetFocus(mlF2Ptr) End Sub

Pada event Command1_click tulis kode sebagai berikut

Private Sub Command1_Click() Set oF2 = New Form2 mlF2Ptr = oF2.hWnd pSetWinStyle mlF2Ptr mlP2Ptr = pAssignContainer(mlF2Ptr, Picture1.hWnd) oF2.Visible = True End Sub

Pada Event event Comman2_click, tulis kode sebagai berikut

Private Sub Command2_Click()

Set oF3 = New Form3 mlF2Ptr = oF3.hWnd pSetWinStyle mlF2Ptr mlP2Ptr = pAssignContainer(mlF2Ptr, Picture1.hWnd) oF3.Visible = True oF2.Visible = False Form2.Hide End Sub

Pada Form2 dan Form3, sebelum menuliskan kode sesuai dengan program yang akan dibuat, pertama-tama tulis terlebih dahulu kode sebagai berikut :

Option Explicit

Event MoveFocus()

HALAMAN :
  1. 1
  2. 2
  3. 3
  4. 4
Mohon tunggu...

Lihat Konten Nature Selengkapnya
Lihat Nature Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun