vb点虐超链接语句 vb超链接代码

vb点虐 RichTextBox文字设成超链接

参考：网页链誉则接

创新互联公司公司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超链接代码
文章链接：http://scyanting.com/article/ddpesdo.html