Saturday, April 6, 2013

Cara Membuat Link Pada Visual Basic

Balik lagi soal Visual Basic, memang tidak ada habisnya kita bermain dengan visual basic selain menyenangkan juga kita dapat memiliki kreasi kita sendiri, pada postingan kali ini saya akan membagikan cara membuat perintah yang menuju ke suatu link tertentu.



Link ini akan di buka melalui browser bawaan atau default ya.. oke kalau begitu langsung saja berikut caranya :

Baca Juga : Cara Membuat Border None Dapat Di Gerakan Mouse pada Visual Basic

#1 : Klik dual kali pada sembarang form, sekarang arahkan ke bagian GENERAL yang terdapat pada bagian kiri atas kemudian pilih dan masukkan saja kode yang berwarna merah berikut ke dalamnya

      Private 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
Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _
    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As Long
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2


#2 : Setelah itu pilih target mana yang akan di gunakan untuk masuk ke link yang akan di buat, bisa Label atau Button, kemudian masukkan kode ini ke label atau button yang telah kalian siapkan.

ShellExecute Me.hwnd, "Open", "(masukkan link contohnya:http://www.kenhondar.com", vbNullString, vbNullString, 3


#3 : Ganti semua tulisan berwarna biru di atas dengan link yang kalian inginkan

Selesai sekarang tekan tombol F5 untuk mencobanya! bagaimana gampang kan, sekian dulu postingan kali ini nantikan tips dan trik selanjutnya, semoga bermanfaat Terima Kasih!

3 comments


EmoticonEmoticon