| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 405 人关注过本帖
标题:[求助]关于链接的问题
只看楼主 加入收藏
abc5566
Rank: 1
等 级:新手上路
帖 子:201
专家分:0
注 册:2007-9-15
结帖率:100%
收藏
 问题点数:0 回复次数:1 
[求助]关于链接的问题
想请教一下大家:
如何在文字上设立链接?
还有如何输入一个网址,然后会跳转到该网址(即用ie打开)
急急急~~~~~~~
搜索更多相关主题的帖子: 链接 
2007-11-11 01:21
fireking
Rank: 2
等 级:论坛游民
帖 子:34
专家分:33
注 册:2007-10-24
收藏
得分:0 
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 Form_Load()
With Label1
.Caption = "你要显示的网站地址"
.Font.Underline = True
.ForeColor = vbBlue
End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Me.MousePointer = 0
End Sub

Private Sub Label1_Click()
ShellExecute Me.hwnd, "open", "http://网站地址", "", "", 5
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Me.MousePointer = 2
End Sub


帮你找了一段代码。
2007-11-11 09:28
快速回复:[求助]关于链接的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020771 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved