Lansung aja ke tutorial nya SOB :
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
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
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar
* Dilarang Spam
* Dilarang Flood
* Dilarang SARA
* Dilarang Alay