Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = URL
End Sub
这句本身就是WebBrowser1加载完成时执行的,不跳转,WebBrowser1的url不显示,跳转就显示正常的url,不能既不跳转又显示吧 ,页面不会跳转,到哪找URL地址?
既然只是简单的进销存 你又非得设计好看的界面~那不如直接用网页编程的方式设计网页 用VB的webbrowser控件显示就好 内容也可以设计好看点 也能达到目的
不难 加我百度HI 我教你