新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
参考:网页链接
宽城网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作,到程序开发,运营维护。成都创新互联成立与2013年到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
或者变相实现
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
超链接在本质上是文字式按钮,事件类型仍旧属于鼠标单击事件。
在鼠标单击事件中,使用shell命令。
例如:
dim file as string=“C:\1.doc”
a=Shell("C:\Program Files\Microsoft Office\OFFICE11\WORD.EXE " file, vbNormalFocus)
注意要有空格。
这个是超链接的target 属性,具体写法为: XXX 使用 Target 属性,你可以定义被链接的文档在何处显示,如果把链接的 target 属性设置为 "_blank"