第一次在這里發帖，想各位前輩請教，我最近碰到這個問題：實時錯誤“28”，溢位堆疊空間
我一直沒發現到底是怎么回事，請大家幫幫忙，謝謝！
以下是代碼（標記紅色的部分是報錯后除錯游標停在的位置）：
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, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
WebBrowser1.Navigate2 URL
Cancel = True
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If Command = 2 Then Command5.Enabled = Enable
If Command = 1 Then Command3.Enabled = Enable
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
ppDisp = WebBrowser2.Object
End Sub
uj5u.com熱心網友回復：
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)WebBrowser1.Navigate2 URL
Cancel = True
End Sub
這段是不是搞死了？
在navigate前又navigate一下？于是再次出發beforevavigat事件。然后就沒完沒了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33385.html
標籤：VB基礎類
上一篇：求助大神，自動改圖片大小