frmabout.frm

个人记事本

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H0000FFFF&
   BorderStyle     =   0  'None
   Caption         =   "about note"
   ClientHeight    =   4575
   ClientLeft      =   3795
   ClientTop       =   1950
   ClientWidth     =   6255
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   6255
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "为 ####### 公司     特别制作"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004080&
      Height          =   735
      Index           =   6
      Left            =   480
      TabIndex        =   8
      Top             =   2040
      Width           =   2655
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "作者主页："
      Height          =   255
      Index           =   5
      Left            =   1560
      TabIndex        =   7
      Top             =   3720
      Width           =   975
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "作者信箱："
      Height          =   255
      Index           =   4
      Left            =   1560
      TabIndex        =   6
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label LabelWeb 
      BackColor       =   &H0000FFFF&
      Caption         =   "xujiayong.yeah.net"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2640
      MouseIcon       =   "frmAbout.frx":08CA
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   3600
      Width           =   2175
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "作者："
      Height          =   255
      Index           =   3
      Left            =   3000
      TabIndex        =   4
      Top             =   1200
      Width           =   615
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "徐嘉勇"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   2
      Left            =   3720
      TabIndex        =   3
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label LabelMail 
      BackColor       =   &H0000FFFF&
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2640
      MouseIcon       =   "frmAbout.frx":0BD4
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   3240
      Width           =   2175
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "Version "
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Index           =   1
      Left            =   1680
      TabIndex        =   0
      Top             =   720
      Width           =   3255
   End
   Begin VB.Image Image1 
      Height          =   1080
      Left            =   3480
      Picture         =   "frmAbout.frx":0EDE
      ToolTipText     =   "退出"
      Top             =   1920
      Width           =   2175
   End
   Begin VB.Label Label 
      BackColor       =   &H0000FFFF&
      Caption         =   "Note "
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Index           =   0
      Left            =   2640
      TabIndex        =   1
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''声明 API 函数 for 窗体形状
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

'利用了API函数 ReleaseCapture 和 SendMessage，通过 ReleaseCapture 来获得鼠标移动 _
信息(WM_NCLBUTTONDOWN)并传到窗口中,再由 SendMessage 来发送信息实现窗口的移动

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1


Private Sub Form_Load() '初始化窗体过程
    '初始化窗体形状
    SetWindowRgn Me.hwnd, CreateEllipticRgn(0, 0, 400, 300), True
    '初始化窗体个控件
    Label(1).Caption = Label(1) & Version
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

Private Sub Label_Click(Index As Integer)
    Unload Me
End Sub

Private Sub LabelMail_Click()
    sendmail
End Sub

Private Sub LabelWeb_Click()
    gotoweb
End Sub