急！！！！vb中如何实现超级链接按钮？？？

zengjin8310 2004-09-27 01:13:26

...全文

382 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

vzxq 2004-09-27

打赏
举报

nod

superxiumu 2004-09-27

打赏
举报

当然你也可以改变鼠标的样式

superxiumu 2004-09-27

打赏
举报

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
Label1.Caption = "超链接"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
Label1.Font.Underline = False
End Sub

Private Sub Label1_Click()
ShellExecute hwnd, "open", "http://community.csdn.net/Expert/topic/3412/3412368.xml?temp=.8084986", 0, 0, 5
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF8080
Label1.Font.Underline = True
End Sub

zengjin8310 2004-09-27

打赏
举报

我vb太菜了，这个不会做。请高人给个例子

sugar8049 2004-09-27

打赏
举报

同意楼上的!

superxiumu 2004-09-27

打赏
举报

可以把楼上的按钮换成标签控件,然后做一些处理,比如鼠标移动到上面就出现手型,还有下划线

zengjin8310 2004-09-27

打赏
举报

迫切需要一个象.net中LinkButton的控件！！

zengjin8310 2004-09-27

打赏
举报

是象网页上那种链接一样的效果的，象.net里的linkButton一样的。急！！！请高人出马!!!!!!

leolan 2004-09-27

打赏
举报

Option Explicit

Private Sub Form_Load()
Label1.Caption = "www.csdn.net"
End Sub

Private Sub Label1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe " & Label1.Caption, vbNormalFocus
End Sub

ryuginka 2004-09-27

打赏
举报

当然,你可以把楼上的按钮换成标签控件,然后做一些处理,比如鼠标移动到上面就出现手型,还有下划线

tztz520 2004-09-27

打赏
举报

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hWnd, vbNullString, "www.163.com", vbNullString, vbNullString,1
end sub