1. Buat project ( apa aja namnya terserah )
2. Ke Components ( Ctrl+t ) terus cari components "Web Browser" klik OK
3. Terus Lakukan Seperti di SS di bawah
![[Image: ArdUb.jpg]](http://i.imgur.com/ArdUb.jpg)
4.masukan SC brikut :
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
WebBrowser1.SetFocus
End Sub
Private Sub Command2_Click()
WebBrowser1.Stop
End Sub
Private Sub Command3_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command4_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress > 0 Then
Text2.Text = Progress & "/" & ProgressMax
End If
End Sub
5. Trus Make Save.exe
0 komentar:
Posting Komentar
* Dilarang Spam
* Dilarang Flood
* Dilarang SARA
* Dilarang Alay