Pada pertemuan kali ini Saya akan berbagi sebuah tips kepada Anda semua untuk para pembaca setia tip dan rik unik vb6 yaitu bagaiaman cara membuat Address bar browser menggunakan visual basic 6.0.
Dalam judul ini tentu tidak asing lagi kita dengar ditelinga kita bagi siapapun yang suka berselancar didunia internet baik di HP maupun komputer atau laptop yaitu sebuah Address Bar Browser.
Address Bar ini berfungsi untuk memasukan sebuah Url halaman Web yang hendak dikunjungi dan sekaligus menampilkan halaman Web nya.Misal Anda ingin mengunjungi halaman utama google.com maka anda harus mengetikannya pada sebuah Address Bar Browser
Pada umumnya pembuatan Adress bar ini menggunakan sebuah script HTML, tapi tahukah anda bahwa kita juga bisa membuat sebuah Addres bar dengan menggunakan visual basic 6.0 secara sederhana.
Cara Membuat Kotak Address Bar Browser di VB6
Berikut adalah langkah-langkah cara membuat Address Bar Browser pada visual baic 6.0
- Pastikan anda membuka form VB6 dengan standar EXE
- Tanamkan 2 komponen pada form yaitu 1 buah Textbox dan 1 Commandbuton
- Setelah menambahkan beberapa komponen silahkan anda desain sendiri menurut kreatifitas Anda sendiri seperti Addres Bar yang sering anda lihat pada sebuah Browser.
- Setelah Anda mendesain form, lalu ketik kode dibawah ini :
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
Public Function OpenUrl(address As String, WindowState As Long) As Long
Dim achan As Long
Dim vb As Long
'buka alamat web
vb = ShellExecute(achan, "open", address, vbNullString, vbNullString, WindowState)
OpenUrl = vb
End Function
Private Sub Command1_Click()
If Text1.Text = "" Or Text1.Text = "namadomain.com" Then
MsgBox "Silahkan masukan alamat WebSite tujuan!", vbInformation, "Informasi"
Text1.SetFocus
Else
Dim AC As Long
Dim address As String
Dim url As String
url = "http://www." & Text1.Text
address = Trim(url)
AC = OpenUrl(address, 1)
End If
End Sub
Private Sub Form_Load()
Text1.Text = "namadomain.com"
Text1.ForeColor = &H80000002
End Sub
Private Sub Text1_Click()
If Text1.Text = "namadomain.com" Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "namadomain.com" Then
Text1.Text = ""
Text1.ForeColor = vbBlack
End If
If KeyAscii = 13 Then 'Anda bisa menekan tombol enter tanpa menekan tombol Buka
If Text1.Text = "" Or Text1.Text = "namadomain.com" Then
MsgBox "Silahkan masukan alamat WebSite tujuan!", vbInformation, "Informasi"
Text1.SetFocus
Else
Dim AC As Long
Dim address As String
Dim url As String
url = "http://www." & Text1.Text
address = Trim(url)
AC = OpenUrl(address, 1)
End If
End If
End Sub
Setelah Anda mengetikan kode seperti diatas, sekarang jalankan VB6 anda kemudian pada Textbox coba masukan sebuah Url pavorit anda misalnya ” namadomain.com” tanpa http://www. Kemudian tekan Buka.
Dalam contoh ini saya mengetikan Url dari blog ini, seperti gambar dibawah ini :
 |
| Address Bar di VB6 |
Itulah tips sederhana dari saya cara membuat kotak address Bar Browser menggunakan VB6, semoga artikel ini bermanfaat buat kita semua dan dapat menambah wawasan tentang pemograman khususnya Visual Basic 6.0.
Selamat mencoba semoga sukses
No comments:
Post a Comment