窗口中添加了WebBrowser控件,并在窗口的全局事件---Click加入代码
以下内容为程序代码:
1 Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
2 Dim wc As WinForm.Control = e.Sender
3 If Typeof wc Is winform.button
4 Dim bt As WinForm.Button = wc
5 'MessageBox.show(bt.text)
6 Select Case bt.Text
7 Case "按钮名称1"
8 wb.Address = "http://地址1"
9 Case "按钮名称2"
10 wb.Address = "http://地址2"
11 Case "按钮名称3"
12 wb.Address = "http://地址3"
13 Case "按钮名称4"
14 wb.Address = "http://地址4"
15 End Select
16 End If
以上为背景,问题:某一个连接地址页面中有一个联系QQ的
此主题相关图片如下:33333.png
再次点击另一个页面按钮,提示
此主题相关图片如下:222222.png
弹出QQ聊天窗口功能一切正常,问题在于点击另外页面链接按钮便弹出如上图所示的错误,请教如何处理?