vb6 error compile

web browser code

Page 1 of 1

4 Replies - 4570 Views - Last Post: 27 March 2010 - 07:29 AM Rate Topic: -----

#1 CreepBvb6  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 1
  • Joined: 27-April 08

vb6 error compile

Post icon  Posted 27 April 2008 - 09:09 PM

I am writing my program in vb6, I only recevied this problem when I upgraded my internet web browser ie7, my program was build with the older version web browser. The error stop at the Navigate code below with "Method or data member not found", I can't get pass the compile when I try compile....need your help on this one....Thanks




 If Len(StartingAddress) > 0 Then
      ' try to navigate to the starting address
         timTimer.Enabled = True
        brwWebBrowser.Navigate StartingAddress
           End If



EDIT: Code blocks added => :code:

This post has been edited by PsychoCoder: 27 April 2008 - 10:20 PM


Is This A Good Question/Topic? 0
  • +

Replies To: vb6 error compile

#2 PsychoCoder  Icon User is offline

  • Google.Sucks.Init(true);
  • member icon

Reputation: 1638
  • View blog
  • Posts: 19,853
  • Joined: 26-July 07

Re: vb6 error compile

Posted 27 April 2008 - 10:27 PM

Try putting () around the value you put into Navigate

If Len(StartingAddress) > 0 Then
      ' try to navigate to the starting address
         timTimer.Enabled = True
        brwWebBrowser.Navigate(StartingAddress)
End If




Other than that the syntax looks correct. Are you using the built in WebBrowser control in VB6? Show us how you're creating the browser control.

This post has been edited by PsychoCoder: 27 April 2008 - 10:27 PM

Was This Post Helpful? 0
  • +
  • -

#3 ummul  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 27-March 10

Re: vb6 error compile

Posted 27 March 2010 - 07:08 AM

Dim con As New ADODB.Connection

Private Sub cmdsave_Click()
con.Execute "Insert into owner_details (own_name) values ('" & txt2.Text & "')"
End Sub

Private Sub Form_Load()
con.Open "DSN=vipin"
End Sub

Private Sub cmd6_Click(Index As Integer)
ownerhousingdetails.Show
Unload Me
End Sub




'Private Sub faxno_LostFocus()
'length = Len(faxno)
'If (length <> 8 And length <> 10 And length <> 12) Then
'fax.SetFocus
'MsgBox "faxno. should consist of 8 or 10 or 12 digits"
'End If


'End Sub




Private Sub OffNo_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
MsgBox "Only numbers allowed.", vbCritical, "Invalid Input"
End If
End Sub






Private Sub txt_10_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
MsgBox "Only numbers allowed.", vbCritical, "Invalid Input"
End If
End Sub





'Private Sub OffNo_LostFocus()
'length = Len(OffNo)
'If (length <> 8 And length <> 10 And length <> 12) Then
'txt_10.SetFocus
'MsgBox "Office No. should consist of 8 or 10 or 12 digits"
'End If

'End Sub

Private Sub txt_2_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> 32 And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
MsgBox " Please donot use any special characters or numbers", vbCritical, " Invalid input"
End If

End Sub













Private Sub txt12_LostFocus()
length = Len(OffNo)
If (length <> 8 And length <> 10 And length <> 12) Then
txt12.SetFocus
MsgBox " txt12. should consist of 8 or 10 or 12 digits"
End If


End Sub

Private Sub txt2_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> 32 And (KeyAscii < 97 Or KeyAscii > 122) Then
KeyAscii = 0
MsgBox " Please donot use any special characters or numbers", vbCritical, " Invalid input"
End If
End Sub


Private Sub cmd_1_Click(Index As Integer)
mainform.Show
Unload Me
End Sub

Private Sub cmd_3_Click(Index As Integer)
txt_1.SetFocus
End Sub


Private Sub cmd_5_Click()
buyerrequirements.Show
Unload Me
End Sub

Private Sub cmd1_Click(Index As Integer)
mainform.Show
Unload Me
End Sub

Private Sub cmd3_Click(Index As Integer)
txt1.SetFocus
End Sub

This post has been edited by JackOfAllTrades: 27 March 2010 - 07:28 AM
Reason for edit:: Added code tags.

Was This Post Helpful? 0
  • +
  • -

#4 ummul  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 27-March 10

Re: vb6 error compile

Posted 27 March 2010 - 07:23 AM

plz reply asap as
Was This Post Helpful? 0
  • +
  • -

#5 JackOfAllTrades  Icon User is offline

  • Saucy!
  • member icon

Reputation: 6036
  • View blog
  • Posts: 23,432
  • Joined: 23-August 08

Re: vb6 error compile

Posted 27 March 2010 - 07:29 AM

How about telling us what is the problem?
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1