Web Browser
Hallo! kali ini saya akan membahas gimana sih cara membuat web browser pada Visual Basic. Kita bisa atur web yang kita mau. nah, saya akan memberi tahu bagaimana web bebas yang saya buat. Berikut adalah cara nya. Simak baik-baik ya.1. Script
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.AcceptButton = Button6
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.imbloggersoftwareengineering2.blogspot.co.id")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://www.instagram.com")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
WebBrowser1.Navigate("http://www.facebook.com")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
WebBrowser1.Navigate("http://www.gmail.com")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
WebBrowser1.Navigate("http://www.youtube.com")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim adress As String = TextBox1.Text
'dim url as system.url = new system.url(Adress)
'webBrowser1.Navigate (URL)
WebBrowser1.Navigate(adress)
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim adress As String = TextBox1.Text
WebBrowser1.Refresh()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Dim adress As String = TextBox1.Text
WebBrowser1.GoBack()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim adress As String = TextBox1.Text
WebBrowser1.GoForward()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim adress As String = TextBox1.Text
WebBrowser1.Stop()
End Sub
End Class
2. Hasil Setelah Dijalankan
-Btn Instagram
-Btn Youtube
Tidak ada komentar:
Posting Komentar