vb制作网址链接器研究论文

首先在代码窗口左上角的下拉框中选择“通用”，右上角的下拉框中选择“声明”，然后在输入以下代码:Private Declare Function ShellExecute Lib "" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long, 这样就可以链接网址了,比如在Label1标签上调用搜狐网页,就可以在Label1控件的Click事件中加入以下代吗:Call ShellExecute(, "open", "", vbNullString, vbNullString, &H0)

那要把该浏览器设置成默认浏览器才行啊！具休方法我就不知道了！建议你到编程中国论坛去看看吧！

嗯。。。。。Private Sub Label1_Click()Shell "explorer http:\\"End Sub将改成你想要的网址

Private Sub Form_Load() ""End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim frm As Form1 Set frm = New Form1 = True Set ppDisp = = True Unload MeEnd Sub这个代码你试试吧