Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 9265

Jul 12th, 2005

VB6 RTE '424' Object required.

Expand Post »

Im trying to make a basic web browser with VB6, here is what i have:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub cmdback_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
 
Private Sub cmdForward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
 
Private Sub cmdgo_Click()
WebBrowser1.Navigate (txturl.Text)
End Sub
 
 
 
Private Sub cmdRefresh_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub
 
Private Sub cmdStop_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub
 
Private Sub Timer1_Timer()
Form1.Caption = WebBrowser1.LocationName
End Sub
Private Sub cmdback_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub cmdForward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Private Sub cmdgo_Click()
WebBrowser1.Navigate (txturl.Text)
End Sub



Private Sub cmdRefresh_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub cmdStop_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Timer1_Timer()
Form1.Caption = WebBrowser1.LocationName
End Sub

When i try to open the compiled .exe the error:
Run-time Error '424'
Object required.
Pops up, any ideas?

Similar Threads

VB6 - Outlook Email set up - Error 424: Object required in Visual Basic 4 / 5 / 6
VB6 - Email attachment not working in Visual Basic 4 / 5 / 6
Error 424-object required in Visual Basic 4 / 5 / 6
Runtime Error 424 object required (was: Please Help!) in Visual Basic 4 / 5 / 6

Drakey

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jul 2005

Permalink

Jul 12th, 2005

Re: VB6 RTE '424' Object required.

have you tried running it in the VB IDE? If not, you might try that, and tell us which line gets highlighted....

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Aug 12th, 2005

Re: VB6 RTE '424' Object required.

i have the same problem

although i can tell you witch line is pissing VB off

Private Sub cmdgo_Click()
WebBrowser1.Navigate (txturl.Text)
End Sub

WebBrowser1.Navigate (txturl.Text)
___________
| .. ........ |
|(txturl.Text) |
|___________|
| _
\_____\ That bit there it (i cant seem to figure it out either.
_/

Blake15487

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Aug 2005

Permalink

Aug 16th, 2005

Re: VB6 RTE '424' Object required.

put this on a form. six command buttons one row on top,one textbox below buttons,one webbrowser window below textbox

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 
Private Sub Command1_Click()
WebBrowser1.Navigate Trim(Text1.Text)
End Sub
 
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoBack
If Err.Number = -2147467259 Then MsgBox "You have not been anywhere to go back to.", vbInformation, "Wake up."
End Sub
 
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoForward
If Err.Number = -2147467259 Then MsgBox "You have not been anywhere to go forward to.", vbInformation, "Wake up."
 
End Sub
 
Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub
 
Private Sub Command5_Click()
WebBrowser1.GoHome
End Sub
 
Private Sub Command6_Click()
WebBrowser1.GoSearch
End Sub
 
Private Sub Form_Load()
Text1.Text = "http:\\www.google.com"
Command1.Caption = "GO"
Command2.Caption = "BACK"
Command3.Caption = "FORWARD"
Command4.Caption = "REFRESH"
Command5.Caption = "HOME"
Command6.Caption = "SEARCH"
WebBrowser1.GoHome
End Sub
 
Private Sub Form_Resize()
Dim x As Integer
x = Me.Width / 6
Command1.Width = x
Command2.Width = x
Command3.Width = x
Command4.Width = x
Command5.Width = x
Command6.Width = x
 
Command2.Left = 0
Command3.Left = Command2.Width + Command2.Left
Command4.Left = Command3.Width + Command3.Left
Command5.Left = Command4.Width + Command4.Left
Command6.Left = Command5.Width + Command5.Left
Command1.Left = Command6.Width + Command6.Left
 
Text1.Width = Form1.Width
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height
 
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then WebBrowser1.Navigate Text1.Text
End Sub
 
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Form1.Caption = WebBrowser1.LocationURL & "  " & WebBrowser1.LocationName
Text1.Text = WebBrowser1.LocationURL
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate Trim(Text1.Text)
End Sub

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoBack
If Err.Number = -2147467259 Then MsgBox "You have not been anywhere to go back to.", vbInformation, "Wake up."
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoForward
If Err.Number = -2147467259 Then MsgBox "You have not been anywhere to go forward to.", vbInformation, "Wake up."

End Sub

Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub

Private Sub Command5_Click()
WebBrowser1.GoHome
End Sub

Private Sub Command6_Click()
WebBrowser1.GoSearch
End Sub

Private Sub Form_Load()
Text1.Text = "http:\\www.google.com"
Command1.Caption = "GO"
Command2.Caption = "BACK"
Command3.Caption = "FORWARD"
Command4.Caption = "REFRESH"
Command5.Caption = "HOME"
Command6.Caption = "SEARCH"
WebBrowser1.GoHome
End Sub

Private Sub Form_Resize()
Dim x As Integer
x = Me.Width / 6
Command1.Width = x
Command2.Width = x
Command3.Width = x
Command4.Width = x
Command5.Width = x
Command6.Width = x

Command2.Left = 0
Command3.Left = Command2.Width + Command2.Left
Command4.Left = Command3.Width + Command3.Left
Command5.Left = Command4.Width + Command4.Left
Command6.Left = Command5.Width + Command5.Left
Command1.Left = Command6.Width + Command6.Left

Text1.Width = Form1.Width
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then WebBrowser1.Navigate Text1.Text
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Form1.Caption = WebBrowser1.LocationURL & "  " & WebBrowser1.LocationName
Text1.Text = WebBrowser1.LocationURL
End Sub

jwshepherd

Reputation Points: 20

Solved Threads: 5

Junior Poster

Offline

123 posts
since Jun 2005

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: vb

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: SQL Server 2000 and VB 6

DaniWeb Message

Cancel Changes

User Name
Password