Visual Basic 6 Gelişmiş Webbrowser Adres Barı

Herkese merhaba arkadaşlar, herkes bilir ki vb6 da kendi tarayıcınızı yapmak çok kolay, bunu sizlere en eski konumda anlattım. Artı olarak geçmiş bölümü eklemeyi göstermiştim. Bugün ise tarayıcımızı geliştirerek normal tarayıcılardaki adres barının aynısını yapacağız. Yani diyelim “go” yazdık; Bize önceden girdiğimiz “go” ile başlayan siteleri gösterecek. Bunu kullanarak tarayıcımızı baya bir geliştirebiliriz. Bu sayede profesyonelliğe bir adım daha atmış oluruz. Bunu bir kod sayesinde yapacağız.

Formumuza bir adet uzun ve dikdörtgen bir Textbox koyalım.

Kodları olduğu gibi formumuza yapıştıralım.

Option Explicit
Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
Private Const SHACF_AutoComplete = (SHACF_FILESYSTEM Or SHACF_URLALL)
Private Declare Sub SHAutoComplete Lib “shlwapi.dll” (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Private Sub Form_Load()
SHAutoComplete Text1.hWnd, SHACF_AutoComplete
End Sub

visual basic 6 internet tarayıcısı

Gördüğünüz gibi böyle bir görüntü çıkıyor, gerçekten tarayıcı yapacaklar için mükemmel bir kod diyebilirim.

Okudugunuz için teşekkür ederim