全部答案

2006-08-06 18:58:22

•   使用系统API函数ShellExecute！
  将下列代码放在VB窗口中,添加一个Label控件即可：
  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()
  With Label1
  。
    Caption = "我最喜欢上的网站---新浪爱问!"
  。Font。Underline = True
  。ForeColor = vbBlue
  End With
  End Sub
  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1。
    ForeColor = vbBlue
  Me。MousePointer = 0
  End Sub
  Private Sub Label1_Click()
  ShellExecute Me。hwnd, "open", " ", "", "", 5
  End Sub
  Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1。
    ForeColor = vbRed
  Me。MousePointer = 1
  End Sub
  。

  全部
  

  心***

  2006-08-06 18:58:22

  65 9 评论

  分享
  提交评论