Mengenai cara menampilkan kotak dialog About

Mengenai cara menampilkan kotak dialog About default windows menggunakan Visual Basic 6 - Apabila kita malas membuat tampilan kotak dialog About, mungkin kode di bawah adalah alternatif yang tepat, selain itu ia memiliki tampilan (GUI) yang menarik, adapun cara menampilkan kotak dialog about default windows adalah sebagai berikut:

'simpan kode di bawah ini pada module 
Option Explicit 
 
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long 
 
Public Sub ShowAboutDialog(hwnd As Long, Caption As String, Txt As String, Icon As Long) 
    Call ShellAbout(hwnd, Caption, Txt, Icon) 
End Sub 

Contoh penggunaan kode untuk menampilkan kotak dialog about:

'simpan kode di bawah ini dalam module 
Option Explicit 
 
Private Sub cmdAbout_Click() 
    ShowAboutDialog Me.hwnd, "About My-Sofware", "Software Versi ke-1", Me.Icon 
End Sub 

READ MORE - Mengenai cara menampilkan kotak dialog About

Membuat HyperLink Label Menggunakan Visual Basic 6

Mengenai cara membuat link label atau hyperlink label menggunakan VB6 - Link label atau hyperlink label merupakan label yang apabila diklik akan membuka browser dengan alamat website atau blog yang kita miliki. Bagaimana kode mengenai hiperlink label ini, berikut merupakan kode untuk membuat link label atau hyperlink label menggunakan Visual Basic 6:

'simpan kode ini pada module, atau satukan dengan form, jika ingin disatukan dengan form 
'gantilah Public menjadi Private 
Option Explicit 
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
Public Const SW_SHOW = 5 

contoh penggunaan fungsi API di atas:

'simpan kode ini pada form 
'gantilah label caption dengan alamat blog atau website 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    ShellExecute hwnd, "open", "http://khoiriyyah.blogspot.com", vbNullString, vbNullString, SW_SHOW 
End Sub 

Demikianlah mengenai cara pembuatan hyperlink label atau link label menggunakan Visual Basic 6. Selamat mencoba.

READ MORE - Membuat HyperLink Label Menggunakan Visual Basic 6

Cara Mengatasi Aplikasi Crash Akibat OCX Third Party

Bagaimana kita dapat mengatasi aplikasi yang menjadi crash pada saat keluar (exit) dari program akibat dari ocx yang dibuat oleh pihak ketiga (third party)? Penggunaan ocx yang kurang stabil (pada aplikasi yang telah dicompile/dijadikan exe), seringkali menyebabkan crash yaitu pada saat keluar dari aplikasi tersebut. Kondisi ini tentu saja sangat mengganggu, karena aplikasi, tidak akan pernah menjalankan kode-kode yang berada pada event Unload atau QueryUnload, seperti kode untuk mengatur settingan pada registry, settingan pada file .ini, dsb. Bagaimana cara mengatasi keadaan tersebut? ikuti langkah-langkah berikut:

• Tambahkan satu CommonDialog biarkan dengan nama default CommondDialog1
• Tambahkan satu UserControl biarkan dengan nama default UserControl1
• Biarkan CommonDialog dan UserControl tersebut tanpa ditambahkan kode.

Lakukan compile ulang, dan lihatlah hasilnya, dalam banyak kasus kondisi di atas bisa diatasi, tapi bila masih crash sebaiknya Anda mencari pengganti dari ocx tersebut.

READ MORE - Cara Mengatasi Aplikasi Crash Akibat OCX Third Party

Tips Menempatkan CommonDialog Pada Posisi Yang Diinginkan

Posting mengenai cara mudah menempatkan CommonDialog pada koordinat yang diinginkan - Dari beberapa common dialog yang terdapat pada COMDLG32.OCX, ada beberapa common dialog yang sulit untuk diatur posisinya, dalam arti ia selalu tampil pada sisi kiri bagian atas, mengapa demikian? karena sebelum tampil ia (COMDLG32.OCX) membaca terlebih dahulu koordinat yang diperoleh dari hwnd parentnya. Nah, untuk memposisikan commondialog pada saat tampil, ikuti langkah-langkah berikut:

1. Pada form tambahkan satu PictureBox jadikan property visible = false
2. Samakan ukurannya dengan COMDLG32.OCX (agar tidak menghabiskan space).
3. Masukan COMDLG32.OCX pada PictureBox tadi
4. Aturlah posisi PictureBox tadi pada koordinat tertentu

Sekarang CommonDialog akan selalu tampil mengikuti koordinat PictureBox yang menjadi parentnya. Untuk mengujinya (dengan mengikuti langkah di atas) buatlah kode seperti di bawah ini:

'kode di bawah simpan pada form 
'tambahkan CommandButton dengan nama default Command1 
'tambahkan CommonDialog dengan nama default CommonDialog1 
Option Explicit 
 
Private Sub Command1_Click() 
    CommonDialog1.ShowColor 
End Sub 

Selanjutnya jadikan property form WindowState = 2 - Maximize, bandingkan hasilnya sebelum dan sesudah menggunakan PictureBox. Demikian mengenai cara menempatkan CommonDialog pada posisi yang diinginkan. Semoga bermanfaat.

READ MORE - Tips Menempatkan CommonDialog Pada Posisi Yang Diinginkan