Pada jaman dahulu, seorang arab badui (wonk deso) yang baru masuk islam ikut sholat subuh berjamaah. Pada hal waktu itu dia buru2x karna ada suatu urusan, pas waktu sholat kebetulan imamnya baca surat Al Baqarah (sapi betina) yang panjangnya sampai 286 ayat. Akhirnya urusannya enggak selesai deh karna sholat subuhnya kelamaan.
Besoknya si arab badui ini ikut lagi sholat subuh berjamaah, pas waktu imam baca surat Al Fiil (gajah), si arab badui ini langsung keluar dari mesjid :D, mau tau kenapa?
Dia cuma mikir kemarin aja yang dibaca surat Al Baqarah lama banget sholatnya, apalagi sekarang yang dibaca surat Al Fiil. Bukankah gajah itu lebih besar dari sapi betina? :D, he he kecolongan deh dia padahal sural Al Fiil itu kan panjangnya cuma 5 ayat.
Sumber :
buku Tersenyumlah karangan Aidh Al-Qarani (pengarang La Tahzan)
Minggu, 30 September 2007
ASDOS
Emang kalo di Jogja itu waktu enggak terasa, kayaxnya sih baru kemarin gw jadi mahasiswa eh sekarang udah jadi ASDOS. Apalagi gw disuruh ngajar cah2x TI yang LuGu, he he :D jadi lintas platform deh (gw kan anax SI).
Bayangan pertama waktu ngajar, cuma kepikiran "wah jangan2x materi kuliah selesai sekali pertemuan nih, intinya bingung entar di kelas mau ngomong apa ?" maklum gw dulu levelnya cuma ASPRAK (ngomongnya sedikit).
Ternyata pepatah yang bunyinya "sebesar apapun masalah tapi tidak sebesar kekuatan yang kita punya" benar juga, setelah ngajar di kelas beberapa kali ternyata asik2x aja tuh :D
Malahan sekarang jadi kepikiran nih pengen konsen di bidang ini ya setahun 2 tahun, sambil nungguin waktu yang tepat untuk balik ke Riau
Ayoo yang masih ASDOS semangat biar cepat jadi Dosenya :D
Bayangan pertama waktu ngajar, cuma kepikiran "wah jangan2x materi kuliah selesai sekali pertemuan nih, intinya bingung entar di kelas mau ngomong apa ?" maklum gw dulu levelnya cuma ASPRAK (ngomongnya sedikit).
Ternyata pepatah yang bunyinya "sebesar apapun masalah tapi tidak sebesar kekuatan yang kita punya" benar juga, setelah ngajar di kelas beberapa kali ternyata asik2x aja tuh :D
Malahan sekarang jadi kepikiran nih pengen konsen di bidang ini ya setahun 2 tahun, sambil nungguin waktu yang tepat untuk balik ke Riau
Ayoo yang masih ASDOS semangat biar cepat jadi Dosenya :D
Efex samping coding
Wah gw baru sekarang nih ngerasin efex sampingnya coding, gw mulai coding secara intensif sejak semester 3 (maklum baru punya komputer :D)berarti udah sekitar 4 tahunan (2003 - sekarang)
Ya itu tadi gara2x sering coding kayaxnya memory di otax gw jadi aus nih, bayangin aja masa iya pin ATM gw lupa ke2nya (BRI n Mandiri) dalam 1 hari lagi. Ngurus di Mandiri sih gampang tinggal GESEX di KASIR nya ATM udah bisa dipake lagi (walau harus nunggu 3 jam an).
Nah masalahnya yang di BRI, katanya sih harus ngurus di kantor cabang waktu buka rekening (kebetulan gw buka rekeningnya di RIAU :D whexxx).
Jadi serba salah juga sih yang di BRI mau gw habisin uangnya, tapi enggak tau saldonya sisa berapa :D
Makanya mumpung masih muda jangan sering2x coding he he :D
Ya itu tadi gara2x sering coding kayaxnya memory di otax gw jadi aus nih, bayangin aja masa iya pin ATM gw lupa ke2nya (BRI n Mandiri) dalam 1 hari lagi. Ngurus di Mandiri sih gampang tinggal GESEX di KASIR nya ATM udah bisa dipake lagi (walau harus nunggu 3 jam an).
Nah masalahnya yang di BRI, katanya sih harus ngurus di kantor cabang waktu buka rekening (kebetulan gw buka rekeningnya di RIAU :D whexxx).
Jadi serba salah juga sih yang di BRI mau gw habisin uangnya, tapi enggak tau saldonya sisa berapa :D
Makanya mumpung masih muda jangan sering2x coding he he :D
Jumat, 27 Juli 2007
How can I detect whether my program is already running?
Wah judulnya pake bahasa wong londo, ya kira2x kalo diartikan lebih kurang "gimana cara ngecek program kita udah jalan atw belum?"
Sebenarnya sih simple aja cukup membuat kode berikut :
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Program udah dijalankan", vbExclamation, "Peringatan"
End
End If
End Sub
Nah gimana cara kalo kita pengen program kita langsung aktif jika sebelumnya program sudah dijalankan (ya mirip2x Winamp gitu), ya tinggal tambah sebuah module trus ketik kode berikut:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
Private Const SW_RESTORE = 9
Public Sub Main()
Dim hWnd As Long
Dim lres As Long
If App.PrevInstance Then
hWnd = FindWindow(0&, "Menu Utama")
If hWnd <> 0 Then
If IsIconic(hWnd) Then
lres = ShowWindow(hWnd, SW_RESTORE)
End If
AppActivate "Menu Utama"
Exit Sub
End If
Else
frmMain.Show
End If
End Sub
sample diatas dengan asumsi form utama (frmMain) di set captionnya manjadi Menu Utama, selain itu Startup Object harus di set menjadi Sub Main
selamat mencoba :)
Sebenarnya sih simple aja cukup membuat kode berikut :
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Program udah dijalankan", vbExclamation, "Peringatan"
End
End If
End Sub
Nah gimana cara kalo kita pengen program kita langsung aktif jika sebelumnya program sudah dijalankan (ya mirip2x Winamp gitu), ya tinggal tambah sebuah module trus ketik kode berikut:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
Private Const SW_RESTORE = 9
Public Sub Main()
Dim hWnd As Long
Dim lres As Long
If App.PrevInstance Then
hWnd = FindWindow(0&, "Menu Utama")
If hWnd <> 0 Then
If IsIconic(hWnd) Then
lres = ShowWindow(hWnd, SW_RESTORE)
End If
AppActivate "Menu Utama"
Exit Sub
End If
Else
frmMain.Show
End If
End Sub
sample diatas dengan asumsi form utama (frmMain) di set captionnya manjadi Menu Utama, selain itu Startup Object harus di set menjadi Sub Main
selamat mencoba :)
Membuat File Help (format HTML)
Mungkin sekilas judul topik kali ini enggak ada hubungannya dengan pemrogram, et… jangan salah, kali ini saya akan membahas pembuatan petunjuk penggunaan program sekaligus cara memanggilnya lewat program.
Tools2x dan kemampuan yang harus dipersiapkan:
1. Kemampuan bahasa web tradisional (cuma HTML tok enggak perlu yang canggih2x, minimal bisa membuat link)
2. InstallerHTMLHELP, ada di CD master visual studio cari aja folder HTMLHELP
Urutan yang harus dikerjaan:
1. Membuat filehtml (tidak dibahas)
2. Membuat TOC (Table of Contents)
3. Membuat Index jika ingin file Help kita ada pencariannya (tidak dibahas)
4. Membuat Project plus mengcompile
1. MEMBUAT TOC (TABLE OF CONTENTS)
a. Jalankan program HTML Help Workshopkalo udah nginstall, kalo belum ya diinstall dulu
b. Klik menu File -> New kemudian pilih item"Table of Contents" jangan lupa di OK
c. Klik toolbars Insert a heading
d. Tinggal isikan nama heading yang diinginkan, trus tekan tombol OK
e. Tampilan setelah berhasil menghinputkan heading untuk pertama kali
f. Untuk mengganti icon heading klik tombol edit selection, kemudian klik tab Advanced, trus tinggal diganti index iconnya (misalindex = 2) akhiri dengan menekan tombol ok
g. Selanjutkan kita akan coba membuat isi atau contents dari heading SisfoSiswa
h. Caranya sama tapi yang di klik adalah icon "Insert a page", jika ada konfirmasi pilih aja tombol No
i. Selanjutnya tinggal mengisi nilai contentnya, dilanjutkan dengan mengklik tombol Add untuk menentukan lokasi fileh tmlnya
j. Selanjutnya tinggal ubah icon contentsnya (index = 9), sama dengan langkah mengganti icon heading
k. HasilAkhir
l. Selanjutkan tinggal mengulangi langkah2x sebelumnya untuk menambah heading dan contents yang lain
Terakhir kalo udah selesai ya jangan lupa disimpan (kalo bisa satu folder dengan file htmlnya)
2. MEMBUATPROJECT
a. Klik menu File -> New kemudian pilih item "Project" jangan lupa di OK
b. Kemudian klik tombol Next, dilanjutkan dengan menentukan lokasi penyimpanan (kalo bisa satu folder dengan file htmlnya)
c. Menentukan item yang akan diikut sertakan dalam project (file Table of Contents dan HTML), kemudian klik tombol Next
d. Selanjutnya akan diminta untuk menentukan lokasi file Table of Contents dan HTMLnya, diakhiri dengan menekan tombol Finish
3. MENGCOMPILE PROJECT
Selamat !!!! akhirnya selesai juga membuat project dan contentsnya, untuk mengcompile tinggal klik menu File ->Compile..
Jika ad error pada saat prosescompile, biasanya hanya disebabkan ada kesalahan skrip HTML atau file HTMLnya tidakditemukan.
4. MEMANGGIL FILE HELP DARI PROGRAM
File hasil compile biasanya mempunyai ekstensi .CHM, jadi ingat jangan sampai salah mengetikkan ekstensinya di kode program
/* [general declaration] */
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters AsString, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL =1
/* ini fungsi untuk mengecek file ada atau tidak */
private Function FileExists(strNamaFile AsString) As Boolean
If Dir$(strNamaFile, vbNormal) = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
Private sub mnuBantuan_Click()
/* diasumsikan file bantuannya bernama SisfoSiswa.chm dan lokasinya satu folder dengan program. */
IfFileExists(App.Path & "SisfoSiswa.chm") Then
Call ShellExecute(Me.hwnd,vbNullString, "SisfoSiswa.chm", vbNullString, App.Path, SW_SHOWNORMAL)
Else
MsgBox "File petunjuk penggunaan tidak ditemukan", vbInformation, "Informasi"
End If
End Sub
Selamat mencoba :)
Tools2x dan kemampuan yang harus dipersiapkan:
1. Kemampuan bahasa web tradisional (cuma HTML tok enggak perlu yang canggih2x, minimal bisa membuat link)
2. InstallerHTMLHELP, ada di CD master visual studio cari aja folder HTMLHELP
Urutan yang harus dikerjaan:
1. Membuat filehtml (tidak dibahas)
2. Membuat TOC (Table of Contents)
3. Membuat Index jika ingin file Help kita ada pencariannya (tidak dibahas)
4. Membuat Project plus mengcompile
1. MEMBUAT TOC (TABLE OF CONTENTS)
a. Jalankan program HTML Help Workshopkalo udah nginstall, kalo belum ya diinstall dulu
b. Klik menu File -> New kemudian pilih item"Table of Contents" jangan lupa di OK
c. Klik toolbars Insert a heading
d. Tinggal isikan nama heading yang diinginkan, trus tekan tombol OK
e. Tampilan setelah berhasil menghinputkan heading untuk pertama kali
f. Untuk mengganti icon heading klik tombol edit selection, kemudian klik tab Advanced, trus tinggal diganti index iconnya (misalindex = 2) akhiri dengan menekan tombol ok
g. Selanjutkan kita akan coba membuat isi atau contents dari heading SisfoSiswa
h. Caranya sama tapi yang di klik adalah icon "Insert a page", jika ada konfirmasi pilih aja tombol No
i. Selanjutnya tinggal mengisi nilai contentnya, dilanjutkan dengan mengklik tombol Add untuk menentukan lokasi fileh tmlnya
j. Selanjutnya tinggal ubah icon contentsnya (index = 9), sama dengan langkah mengganti icon heading
k. HasilAkhir
l. Selanjutkan tinggal mengulangi langkah2x sebelumnya untuk menambah heading dan contents yang lain
Terakhir kalo udah selesai ya jangan lupa disimpan (kalo bisa satu folder dengan file htmlnya)
2. MEMBUATPROJECT
a. Klik menu File -> New kemudian pilih item "Project" jangan lupa di OK
b. Kemudian klik tombol Next, dilanjutkan dengan menentukan lokasi penyimpanan (kalo bisa satu folder dengan file htmlnya)
c. Menentukan item yang akan diikut sertakan dalam project (file Table of Contents dan HTML), kemudian klik tombol Next
d. Selanjutnya akan diminta untuk menentukan lokasi file Table of Contents dan HTMLnya, diakhiri dengan menekan tombol Finish
3. MENGCOMPILE PROJECT
Selamat !!!! akhirnya selesai juga membuat project dan contentsnya, untuk mengcompile tinggal klik menu File ->Compile..
Jika ad error pada saat prosescompile, biasanya hanya disebabkan ada kesalahan skrip HTML atau file HTMLnya tidakditemukan.
4. MEMANGGIL FILE HELP DARI PROGRAM
File hasil compile biasanya mempunyai ekstensi .CHM, jadi ingat jangan sampai salah mengetikkan ekstensinya di kode program
/* [general declaration] */
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters AsString, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL =1
/* ini fungsi untuk mengecek file ada atau tidak */
private Function FileExists(strNamaFile AsString) As Boolean
If Dir$(strNamaFile, vbNormal) = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
Private sub mnuBantuan_Click()
/* diasumsikan file bantuannya bernama SisfoSiswa.chm dan lokasinya satu folder dengan program. */
IfFileExists(App.Path & "SisfoSiswa.chm") Then
Call ShellExecute(Me.hwnd,vbNullString, "SisfoSiswa.chm", vbNullString, App.Path, SW_SHOWNORMAL)
Else
MsgBox "File petunjuk penggunaan tidak ditemukan", vbInformation, "Informasi"
End If
End Sub
Selamat mencoba :)
Esc Command
Esc Command apalagi nih?
Wah saya juga bingung kalo disuruh mendefinisikan
Ngiri sama program2x DOS
Saya atw Anda mungkin pernah membandingkan kecepatan print yang kita buat pake vb atw delphi kalah jauh dengan kecepatan printnya program2x DOS. Biasanya nih kita yang koding pake VB untuk ngeprint pake :
1. Data Report (bawaan VB)
2. Seagete Crystal Report
3. Active Report
4. Pake printah internal VB (printer.print)
Habis gelap terbitlah terang :D
Hal ini yang pernah saya alami waktu ngerjain program untuk salah satu swalayan di Jogja. Usut punya usut, eh ternyata di VB juga bisa kok ngeprint secepat di DOS :), yaitu tadi pake ESC Command, tapi jangan senang dulu :(, ternyata tidak semua printer dukung ESC Command, tapi yang jelas saya udah pernah coba untuk printer Epson dan Samsung baik yang pake port LPT ataupun yang COM.
Ngintip ESC Command
Ah.. ternyata cuma gitu simple banget
Contoh kalo portnya pake LPT, asumsinya kalo teman2x colokinnya ke LPT1, kalo ke LPT2 ya diganti donk LPT1 -> LPT2:
Open "LPT1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Contoh kalo portnya pake COM:
Open "COM1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Printah2x yang sering dipake
Print #1, Chr$(&H1B); "a"; Chr$(0) /* rata kiri */
Print #1,Chr$(&H1B); "a"; Chr$(1); /* rata tengah */
/* perintah untuk membuka cash drawer*/
kok banyak ya? ya tergantung jenis printernya
Print #1, Chr$(&H1B); Chr$(&H70);Chr$(&H0); Chr$(60); Chr$(120);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(10);Chr$(100);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250);
Print #1, Chr$(&H1B); "p"; Chr$(1); Chr$(25);Chr$(250);
Print #1, Chr$(&H1B); Chr$(&H70); Chr$(&H0); Chr$(60);Chr$(120);
Referensi ESC Command
Walapun jaman kedigdayaan/persilatan udah lewat, jangankuatir qita masih punya kok, mbah yang sakti mandra guna siapa lagi kalo buka Mbah Google :D,tanya aja ke mba g0oglE pake keyword "ESC Command" pasti dijawab
Selamat mencoba :)
Wah saya juga bingung kalo disuruh mendefinisikan
Ngiri sama program2x DOS
Saya atw Anda mungkin pernah membandingkan kecepatan print yang kita buat pake vb atw delphi kalah jauh dengan kecepatan printnya program2x DOS. Biasanya nih kita yang koding pake VB untuk ngeprint pake :
1. Data Report (bawaan VB)
2. Seagete Crystal Report
3. Active Report
4. Pake printah internal VB (printer.print)
Habis gelap terbitlah terang :D
Hal ini yang pernah saya alami waktu ngerjain program untuk salah satu swalayan di Jogja. Usut punya usut, eh ternyata di VB juga bisa kok ngeprint secepat di DOS :), yaitu tadi pake ESC Command, tapi jangan senang dulu :(, ternyata tidak semua printer dukung ESC Command, tapi yang jelas saya udah pernah coba untuk printer Epson dan Samsung baik yang pake port LPT ataupun yang COM.
Ngintip ESC Command
Ah.. ternyata cuma gitu simple banget
Contoh kalo portnya pake LPT, asumsinya kalo teman2x colokinnya ke LPT1, kalo ke LPT2 ya diganti donk LPT1 -> LPT2:
Open "LPT1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Contoh kalo portnya pake COM:
Open "COM1:" For Output As #1
Print #1, "Test ngeprint pake ESC Command"
Close #1
Printah2x yang sering dipake
Print #1, Chr$(&H1B); "a"; Chr$(0) /* rata kiri */
Print #1,Chr$(&H1B); "a"; Chr$(1); /* rata tengah */
/* perintah untuk membuka cash drawer*/
kok banyak ya? ya tergantung jenis printernya
Print #1, Chr$(&H1B); Chr$(&H70);Chr$(&H0); Chr$(60); Chr$(120);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(10);Chr$(100);
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250);
Print #1, Chr$(&H1B); "p"; Chr$(1); Chr$(25);Chr$(250);
Print #1, Chr$(&H1B); Chr$(&H70); Chr$(&H0); Chr$(60);Chr$(120);
Referensi ESC Command
Walapun jaman kedigdayaan/persilatan udah lewat, jangankuatir qita masih punya kok, mbah yang sakti mandra guna siapa lagi kalo buka Mbah Google :D,tanya aja ke mba g0oglE pake keyword "ESC Command" pasti dijawab
Selamat mencoba :)
Menambah menu about di system menu
Secara umum informasi program (menu About) ditampilkan di bawah sub menu Help -> About. Contoh
Nah yang jadi pertanyaan gimana cara menempatkan menu About di system menu. Contoh
Ada 2 cara yang bisa digunakan :
1. Full menggunakan fungsi API
2. Fungsi API + Subclass control
Saya hanya akan menampilkan cuplikan kode dengan cara yang kedua, soalnya kodenya lebih dikit :D. Ini cuplikannya
/* [general declaration] */
Option Explicit
/* deklarasi fungsi API berikut konstantanya */
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd
As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32"
Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long,
ByVal lpNewItem As String) As Long
Private Const IDM_ABOUT = 10
Private Const WM_SYSCOMMAND = &H112
Private Const MF_STRING = &H0
Private Const MF_SEPARATOR = &H800
Private Sub Form_Load()
Dim lngi As Long, hMenu As Long
'Add "About..." command to system menu
hMenu = GetSystemMenu(Me.hwnd, False)
'lngi = AppendMenu(hMenu, MF_SEPARATOR, 0, 0&)
lngi = AppendMenu(hMenu, MF_STRING, IDM_ABOUT, "&About...")
'Setup Subclass
Subclass1.hwnd = Me.hwnd
Subclass1.Messages(WM_SYSCOMMAND) = True
'******************************************
End Sub
Private Sub Subclass1_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
'Look for WM_SYSCOMMAND message with About command
If Msg = WM_SYSCOMMAND Then
If wParam = IDM_ABOUT Then
frmAbout.Show vbModal '/* pemanggilan frm aboutnya disini */
Exit Sub
End If
End If
'Pass along to default handler if message not
processed
Result = Subclass1.CallWndProc(Msg, wParam, lParam)
End Sub
Sample program bisa di download di http://k4m4r82.amikom.ac.id/koleksi/AboutPakeSublcass.zip. Jangan loepha sebelum membuka source code program, copikan file Subclass.ocx yang ada di sub folder OCX ke folder windows system dan jangan loepha untuk meregistrasikannya.
Selamat Mencoba :)
Nah yang jadi pertanyaan gimana cara menempatkan menu About di system menu. Contoh
Ada 2 cara yang bisa digunakan :
1. Full menggunakan fungsi API
2. Fungsi API + Subclass control
Saya hanya akan menampilkan cuplikan kode dengan cara yang kedua, soalnya kodenya lebih dikit :D. Ini cuplikannya
/* [general declaration] */
Option Explicit
/* deklarasi fungsi API berikut konstantanya */
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd
As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32"
Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long,
ByVal lpNewItem As String) As Long
Private Const IDM_ABOUT = 10
Private Const WM_SYSCOMMAND = &H112
Private Const MF_STRING = &H0
Private Const MF_SEPARATOR = &H800
Private Sub Form_Load()
Dim lngi As Long, hMenu As Long
'Add "About..." command to system menu
hMenu = GetSystemMenu(Me.hwnd, False)
'lngi = AppendMenu(hMenu, MF_SEPARATOR, 0, 0&)
lngi = AppendMenu(hMenu, MF_STRING, IDM_ABOUT, "&About...")
'Setup Subclass
Subclass1.hwnd = Me.hwnd
Subclass1.Messages(WM_SYSCOMMAND) = True
'******************************************
End Sub
Private Sub Subclass1_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
'Look for WM_SYSCOMMAND message with About command
If Msg = WM_SYSCOMMAND Then
If wParam = IDM_ABOUT Then
frmAbout.Show vbModal '/* pemanggilan frm aboutnya disini */
Exit Sub
End If
End If
'Pass along to default handler if message not
processed
Result = Subclass1.CallWndProc(Msg, wParam, lParam)
End Sub
Sample program bisa di download di http://k4m4r82.amikom.ac.id/koleksi/AboutPakeSublcass.zip. Jangan loepha sebelum membuka source code program, copikan file Subclass.ocx yang ada di sub folder OCX ke folder windows system dan jangan loepha untuk meregistrasikannya.
Selamat Mencoba :)
Langgan:
Entri (Atom)
