NOT: Aşağıda yazdığım bilgilendirici doküman tamamen bana (tetrasoftware) aittir. İzin almadan alıntılanamaz.
---
Öncelikle yeni bir proje açın. Daha sonra aşağıdaki adresten "Mozilla Activex Control" indirin ve kurun:
Mozilla ActiveX Control: https://tik.lat/PPFvI
Şimdi Project->Components bölümünden aşağıdakini seçin:
Ve "Uygula" ya basın.
Daha sonra Toolbox'tan kontrolü bulup forma ekleyin: (Siyah simgesi vardır)
Sonra bu kontrolün adını "tbrowser" yapın ve formun kodlarına bunları ekleyin:
Şimdi 1 tane textbox ve 3 tane commandbutton ekleyin.
Form'un kodlarına şunları ekleyin:
Ben size öğretmek için basit olarak bir tane yaptım,
Gerisi sizin hayalgücü ve programcılık yeteneğinize kalmış.
Daha fazlası için: tetrasoftware.weebly.com
---
Öncelikle yeni bir proje açın. Daha sonra aşağıdaki adresten "Mozilla Activex Control" indirin ve kurun:
Mozilla ActiveX Control: https://tik.lat/PPFvI
Şimdi Project->Components bölümünden aşağıdakini seçin:
Ve "Uygula" ya basın.
Daha sonra Toolbox'tan kontrolü bulup forma ekleyin: (Siyah simgesi vardır)
Sonra bu kontrolün adını "tbrowser" yapın ve formun kodlarına bunları ekleyin:
Kod:
Private Sub Form_Load()
tbrowser.Navigate "about:blank" ' "about:blank" boş sayfayı belirtir.
End SubŞimdi 1 tane textbox ve 3 tane commandbutton ekleyin.
Form'un kodlarına şunları ekleyin:
Kod:
Private Sub Command1_Click()
If Not tbrowser.Busy = True Then 'Eğer tbrowser meşgul değilse ->
tbrowser.Navigate Text1.Text 'CStr() - tbrowser'in adresini değiştir
End If ' <-
End Sub
Private Sub Command2_Click()
If Not tbrowser.Busy = True Then 'Eğer tbrowser meşgul değilse ->
tbrowser.GoBack 'Geri
End If ' <-
End Sub
Private Sub Command3_Click()
If Not tbrowser.Busy = True Then 'Eğer tbrowser meşgul değilse ->
tbrowser.GoForward 'İleri
End If ' <-
End Sub
Private Sub Form_Load()
tbrowser.Navigate "about:blank"
Text1.Text = "http://tetrasoftware.weebly.com"
End SubGerisi sizin hayalgücü ve programcılık yeteneğinize kalmış.
Daha fazlası için: tetrasoftware.weebly.com
