参考:网页链誉则接
创新互联公司公司2013年成立,先为上犹等服务建站,上犹等地企业,进行企业商务咨询服务。为上犹企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
或者变相实现
Private Sub RichTextBox1_DblClick()
Dim n As Long, s As String, t As String, tt As String
n = RichTextBox1.SelStart
t = RichTextBox1.Text
If n 1 Then
If Len(t) = 3 Then
tt = Mid(t, n - 1, 1) 伍羡 Mid(t, n, 1) Mid(t, n + 1, 1)
Else
tt = Mid(t, n - 1, 1) Mid(t, n, 1)
End If
Else
If Len(t) = 2 Then
tt = Left(t, 2)
End 腔虚拍If
End If
If InStr(tt, "百度") 0 Then
MsgBox tt '打开链接
End If
End Sub
如果你那是TXT文档的话,在WORD2007中在工具栏中选择插入——点击超链接按钮——找到你文档游行谨的路径点击带森需关联的文档——神基点击确定就完成了
这个是超链接的target 属性,具体写法为: XXX 使启侍用 Target 属性,你可以定义被链接的文档在何洞旁哪处显示,如纳码果把链接的 target 属性设置为 "_blank"
本文名称:vb点虐
超链接语句 vb超链接代码
文章转载:https://www.cdcxhl.com/article10/ddpesdo.html
成都网站建设公司_创新互联,为您提供定制开发、外贸建站、建站公司、面包屑导航、关键词优化、移动网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联