Cara Membuka Website Di Visual Basic

seperti yang kita ketahui website adalah sebuah halaman yang berisikan sebuah informasi, baik tutorial, berita, cerita dan hal hal lainya, pada program kali ini kita akan membuat sebuah program dimana kita bisa membuka sebuah website dengan mengklik tombol di program visual basic. Baiklah berikut tutorialnya :

1. Buka VB dengan project standar exe
2. Tambahkan 1 label, 1 text box dan 2 command button, ubah propertienya sehingga seperti ini :



Tool BoxPropertiesDescription
Form1Start UpCenter Screen
Label 1CaptionWebsite Address
Text 1Text(Blank)
Command 1CaptionOPEN
Command 2END
AllFont Size10

3. Buka Form Code lalu tuliskan scrip berikut :

Option Explicit
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

4. Jika sudah, tambahkan script berikut untuk membuka website

Public Function OpenUrl(addres As String, WindowState As Long) As Long
Dim Blues As Long
Dim Pedia As Long

'Buka Alamat Website
Pedia = ShellExecute(Blues, "open", addres, vbNullString, vbNullString, WindowState)
OpenUrl = Pedia
End Function

5. Klik 2 kali command1 lalu tuliskan scrip berikut :

Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Silahkan Isi Form Terlebih Dulu !", vbInformation, "Blues Pedia"
Else
Dim BP As Long
Dim address As String
Dim url As String
url = "http://" & Text1.Text
address = Trim(url)
BP = OpenUrl(address, 1)
End If
End Sub

6. Begitu juga dengan command2,

Private Sub Command2_Click()
End
End Sub

7. Silahkan jalankan dan coba programnya,


Tuliskan alamat website yang akan anda buka, untuk format penulisanya, cukup tuliskan namawebsite.domain, contohnya bluespedia.net atau google.com, 

jika sudah silahkan klik command1 "OPEN", maka otomatis web browser (default) akan aktif dan membuka halaman website yang dituliskan.

Sekian tutorial kali ini
semoga bermanfaat



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Cara Membuka Website Di Visual Basic"

Post a Comment