Posting here for the first time, to each elder consult, I encounter this problem recently: real-time error "28", overflow the stack space
I didn't find what is going on, ask everybody to help, thank you!
Below is the code (marked red part is the error after debugging parked in the location of the cursor) :

Private Sub Command1_Click ()
Me. WebBrowser1. Navigate2 Text1. Text
End Sub

Private Sub Command2_Click ()
Me. WebBrowser1. Navigate2 "www.baidu.com"
End Sub

Private Sub Command3_Click ()
Me. WebBrowser1. GoForward
End Sub

Private Sub Command4_Click ()
Me. WebBrowser1. Stop
End Sub

Private Sub Command5_Click ()
Me. WebBrowser1. GoBack
End Sub

Private Sub Command6_Click ()
Me. WebBrowser1. Refresh
End Sub

Private Sub WebBrowser1_BeforeNavigate2 (ByVal pDisp As Object, the URL As the Variant, Flags As the Variant, TargetFrameName As the Variant, PostData As the Variant, Headers As the Variant, Cancel the As Boolean)
WebBrowser1. Navigate2 URL
Cancel=True
End Sub

Private Sub WebBrowser1_CommandStateChange (ByVal Command As Long, ByVal Enable As Boolean)
If the Command=2 Then Command5, Enabled=Enable
If the Command=1 Then Command3. Enabled=Enable
End Sub

Private Sub WebBrowser1_NewWindow2 (ppDisp As Object, Cancel the As Boolean)
PpDisp=WebBrowser2. Object
End Sub

CodePudding user response:

Private Sub WebBrowser1_BeforeNavigate2 (ByVal pDisp As Object, the URL As the Variant, Flags As the Variant, TargetFrameName As the Variant, PostData As the Variant, Headers As the Variant, Cancel the As Boolean)
WebBrowser1. Navigate2 URL
Cancel=True
End Sub

This section is dead?
Navigate and navigate before you? Then set out again beforevavigat event and then endless