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

Cara Membuat Prosedure Generator Nama Secara Acak (Random)

Fungsi untuk membuat nama secara random (acak) - Di bawah ini merupakan prosedur yang digunakan untuk membuat nama secara acak, fungsi ini memiliki satu parameter untuk mengatur jumlah huruf yang akan digenerate, sedangkan nilai defaultnya adalah 4 huruf. Bagaimana fungsi generator nama secara acak atau random, bisa Anda lihat di bawah ini:

Option Explicit 
 
Private Function NamaAcak(Optional k As Integer = 4) As String 
    Dim s(1) As String, l As String 
    Randomize 
    s(0) = ("aiueo") 
    s(1) = ("bcdfghjklmnpqrstvwxyz") 
    For i = 1 To k 
        l = l & Mid(s(i Mod 2), Int((4 * Rnd) + 1), 1) 
    Next 
    NamaAcak = l 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    MsgBox NamaAcak(10) 'menampilkan nama acak yang memiliki jumlah huruf 10 
    'sedangkan contoh di bawah akan mengenerate 20 nama acak 
    'dengan jumlah huruf 10 karakter 
    Dim i As Integer 
    List1.Clear 
    For i = 1 To 20 
        List1.AddItem NamaAcak(6) 
    Next 
End Sub 

Apakah kegunaan dari generator nama secara acak/random ini? saya juga tidak tahu, mungkin Anda tahu?

READ MORE - Cara Membuat Prosedure Generator Nama Secara Acak (Random)