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  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      Height          =   330
      Left            =   1650
      TabIndex        =   1
      Top             =   2760
      Width           =   1290
   End
   Begin VB.Label Label3 
      Caption         =   "收支系统"
      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         =   " 我是福建农林大学02计算机一班的林小明对我的系统有什么意见和建议请与我联系"
      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