frmabout.frm

个人财务计算的好工具

VERSION 5.00
Begin VB.Form Frmabout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于"
   ClientHeight    =   3300
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "Frmabout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   4680
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      Height          =   330
      Left            =   1650
      TabIndex        =   1
      Top             =   2760
      Width           =   1290
   End
   Begin VB.Label Label3 
      Caption         =   "小小收支薄V0.2测试版"
      Height          =   315
      Left            =   1350
      TabIndex        =   3
      Top             =   1890
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "Email：[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   240
      Left            =   930
      MouseIcon       =   "Frmabout.frx":0442
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   2250
      Width           =   2940
   End
   Begin VB.Label Label1 
      Caption         =   "您若对我的程序有任何意见，请与我联系， 也可写信到江西省贵溪市社会保险事业管理局，邮编是335400。对了我叫程志刚，别忘了！"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1500
      Left            =   825
      TabIndex        =   0
      Top             =   240
      Width           =   3000
   End
End
Attribute VB_Name = "Frmabout"
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 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.MouseIcon = Label2.MouseIcon Then
Me.MousePointer = 0
End If

DrawWidth = 5
Static CX(3) As Single, cy(3) As Single
Dim xx(3) As Single, yy(3) As Single
Dim i As Integer
For i = 0 To 3
PSet (CX(i), cy(i)), Me.BackColor
xx(i) = (Rnd * 500 - 250) + X
yy(i) = (Rnd * 500 - 250) + Y
Next i

For i = 0 To 3
'判断点是否在3个标签中，是则不画并清xx,yy的值'网友王晓明提议改进
    If (xx(i) <= Label1.Left - 30 Or yy(i) <= Label1.Top - 30 Or yy(i) >= Label1.Top + Label1.Height + 30 Or xx(i) >= Label1.Left + Label1.Width + 30) _
    And (xx(i) <= Label2.Left - 30 Or yy(i) <= Label2.Top - 30 Or yy(i) >= Label2.Top + Label2.Height + 30 Or xx(i) >= Label2.Left + Label2.Width + 30) _
    And (xx(i) <= Label3.Left - 30 Or yy(i) <= Label3.Top - 30 Or yy(i) >= Label3.Top + Label3.Height + 30 Or xx(i) >= Label3.Left + Label3.Width + 30) Then
       PSet (xx(i), yy(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Else
       xx(i) = 0
       yy(i) = 0
    End If
    
CX(i) = xx(i)
cy(i) = yy(i)
Next i
DrawWidth = 1
End Sub

Private Sub Label2_Click()
    Const WEB = "mailto:[e-mail]"
   Dim perjump As Integer ' hyperjumphy
    perjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
    
End Sub


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MouseIcon = Label2.MouseIcon
End Sub