
vb6如何点击一个按钮打开一个指定网站
如何点击一个COMMAND打开网址比如我要别人点击打开http://bbs.51mxd.com/?a=jkl705输入什么?...
如何点击一个COMMAND打开网址
比如我要别人点击打开http://bbs.51mxd.com/?a=jkl705
输入什么? 展开
比如我要别人点击打开http://bbs.51mxd.com/?a=jkl705
输入什么? 展开
展开全部
既然你诚心诚意的问了 ....省略
Private Declare Function ShellExecute Lib "shell32.dll" 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
Private Sub Command1_Click()
ShellExecute hwnd, "open", "http://bbs.51mxd.com/?u=176028", "", "", "1" '将我的地址改为你的
End Sub
Private Declare Function ShellExecute Lib "shell32.dll" 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
Private Sub Command1_Click()
ShellExecute hwnd, "open", "http://bbs.51mxd.com/?u=176028", "", "", "1" '将我的地址改为你的
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建一个Command1。
代码如下。
=========
Private Sub Command1_Click()
Shell "explorer ""http://bbs.51mxd.com/?a=jkl705"""
End Sub
代码如下。
=========
Private Sub Command1_Click()
Shell "explorer ""http://bbs.51mxd.com/?a=jkl705"""
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询