form1.frm

收集的100多个适合不同层次VB爱好者编程的实例源码

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "超级连接的制作"
   ClientHeight    =   2655
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4725
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   4725
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label4 
      Caption         =   "我的主页："
      Height          =   255
      Left            =   480
      TabIndex        =   3
      Top             =   600
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "E-mail："
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label label1 
      AutoSize        =   -1  'True
      Caption         =   "http://www.hota.com"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1680
      MouseIcon       =   "Form1.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   600
      Width           =   1710
   End
   Begin VB.Label label2 
      AutoSize        =   -1  'True
      Caption         =   "[e-mail]"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1680
      MouseIcon       =   "Form1.frx":030A
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   1200
      Width           =   1260
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

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_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.ForeColor = &HFF0000
label1.FontSize = 9
label2.ForeColor = &HFF0000
label2.FontSize = 9

End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.FontSize = 10
label1.ForeColor = &HC0&
End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label2.FontSize = 10
label2.ForeColor = &HC0&
End Sub


Private Sub label2_Click()
    ShellExecute hwnd, "open", "mailto:[e-mail]", vbNullString, vbNullString, 0
End Sub

Private Sub label1_Click()
ShellExecute 0, "open", "http://www.hota.com", vbNullString, vbNullString, 3

End Sub