1.如何在VB程序中实现超链接功能(即点击就显示网站)?
2.各多媒体的控件中的播放路径可不可以是绝对路径(即网址)?
谢谢大家指教啦
[此贴子已经被作者于2005-10-21 19:41:24编辑过]
请问,如何做到把鼠标放到网址上时,才出现下划线
可以利用Form1及Label1的MouseMove事件,对Label1的FontUnderline属性进行设置,我试了一下,下面这段代码可以达到你所说的要求:
Private Sub Form_Load()
Label1.Caption = "http://www.bc-cn.net"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
End Sub
Private Sub Label1_Click()
Shell "explorer.exe ""http://www.bc-cn.net""", vbMaximizedFocus
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
End Sub
可以:
Shell "calc", vbNormalFocus
不仅计算器,一些 Windows 附带的程序也可以通过 Shell 语句打开:
资源管理器: "explorer"
记事本: "notepad"
MS-DOS 命令提示符: "cmd"
画图: "mspaint"
注意,写字板、IE 浏览器等程序无法通过 Shell 语句打开。