about.frm

会飞的鸟,右击上发条,含全部源代码,在VB与WINXP上测试通过!

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "关于"
   ClientHeight    =   3015
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3675
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3015
   ScaleWidth      =   3675
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   1380
      Left            =   105
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Text            =   "About.frx":08CA
      Top             =   1050
      Width           =   3450
   End
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Caption         =   "&确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   1380
      TabIndex        =   0
      Top             =   2580
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "About.frx":0901
      Top             =   120
      Width           =   480
   End
   Begin VB.Label Homepage 
      Alignment       =   2  'Center
      Caption         =   "http://www.ssnyzx.com/"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   222
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   270
      Left            =   45
      MouseIcon       =   "About.frx":11CB
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   735
      Width           =   3570
   End
   Begin VB.Label Email 
      Alignment       =   2  'Center
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   222
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   270
      Left            =   1035
      MouseIcon       =   "About.frx":131D
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   495
      Width           =   1605
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "涂岸制作"
      Height          =   270
      Left            =   615
      TabIndex        =   2
      Top             =   270
      Width           =   2445
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "ZS"
      Height          =   270
      Left            =   795
      TabIndex        =   1
      Top             =   45
      Width           =   2040
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Const SW_SHOW = 5
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2

Private Sub Command1_Click()
    Unload Form2
End Sub

Private Sub Email_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Email.ForeColor = &H800080
End Sub

Private Sub Email_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Email.ForeColor = &H800000
    ShellExecute hwnd, "open", "mailto:" + Email.Caption, vbNullString, vbNullString, SW_SHOW
End Sub

Private Sub Form_Load()
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form1.Enabled = True
End Sub

Private Sub Homepage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Homepage.ForeColor = &H800080
End Sub

Private Sub Homepage_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Homepage.ForeColor = &H800000
    ShellExecute hwnd, "open", Homepage.Caption, vbNullString, vbNullString, SW_SHOW
End Sub