Cara membuat hyperlink di Visual BasicCara membuat hyperlink di Visual Basic

Sabtu, 24 Juli 2010

Cara membuat hyperlink di Visual Basic



nie ku kasih lihat preview project yg mau kita bikin. yaitu buat sebuah form dan 3 buah comand button di dalam nya.
dalam project cara membuat hyperlink akan ada 3 sampel yakni link ke web, link ke control panel dan link ke file exe. oke langsung saja menuju tkp.


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
Const SW_SHOWNORMAL = 1

Private Sub link_Click(Index As Integer)
Select Case Index
Case 0
result = ShellExecute(Me.hwnd, vbNullString, "http:\\www.google.co.id", vbNullString, vbNullString, SW_SHOWNORMAL)
Case 1
result = Shell("rundll32.exe shell32.dll, Control_RunDLL", 5)
Case 2
result = Shell(App.Path & "\form transparan.exe", 5)
End Select
End Sub

download source code

Tidak ada komentar:

Posting Komentar