Its a simple Project who are intrested in learning to code on visual basic
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
Text1.Text = WebBrowser1.LocationURL
End Sub
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
Text1.Text = WebBrowser1.LocationURL
End Sub
Private Sub Command3_Click()
Text1.Text = "file://c:"
WebBrowser1.Navigate Text1.Text
End Sub
Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub
Private Sub Command5_Click()
WebBrowser1.Stop
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
End Sub
Private Sub WebBrowser1_DownloadBegin()
Me.Caption = "web browser: " & WebBrowser1.LocationName
App.Title = "web browser: " & WebBrowser1.LocationName
Label2.Caption = "loading wait"
End Sub
// add a frame then code this which i missed in video
Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29
Frame1.Left = (Me.Width - Frame1.Width) / 2
Frame1.Top = Me.Height - (Frame1.Height + 480)
WebBrowser1.Width = Me.Width - 360
WebBrowser1.Height = Frame1.Top - 180
End Sub
Private Sub WebBrowser1_DownloadComplete()
Me.Caption = "web browser: " & WebBrowser1.LocationName
App.Title = "web browserL: " & WebBrowser1.LocationName
Label2.Caption = "done"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.LocationURL
Text2.Text = WebBrowser1.LocationURL
Me.Caption = "web browser: " & WebBrowser1.LocationName
App.Title = "web browser: " & WebBrowser1.LocationName
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm_web As Form1
Set frm_web = New Form1
With frm_web
.WindowState = vbNormal
.Top = frm_web.Top + 1200
.Left = frm_web.Left + 1200
Set ppDisp = frm_web.WebBrowser1.Object
frm_web.Show
End With
End Sub
Views: 246