参考:网页链接
成都创新互联专业为企业提供叙永网站建设、叙永做网站、叙永网站设计、叙永网站制作等企业网站建设、网页设计与制作、叙永企业网站模板建站服务,十年叙永做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
或者变相实现
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
目测应该是系统的问题,我用win7系统都无法读取运行VS2008 的VB.NET ,换成XP系统后就没一点问题了。
你这个要求实在是不对路子。是思路不对。
应该是将窗体一和窗体二中的控件分别用一个panel装起来,设为隐含状态。都放在主窗体的panel1中。
点击 窗体一时,第一个panel的Visible=True,第二个panel的Visible=False
点击 窗体二时,第一个panel的Visible=False,第二个panel的Visible=True
就达到你要的效果了。
窗体不能装来装去的。
再有一个方法就是创建自定义控件。那个说起来太麻烦,看看书吧。
点击菜单:项目=》添加引用 弹出窗口后选择“COM”项,然后找到你要加载的控件。
记得先调用CMD使用 regsvr32 注册你准备加载的控件哈。