frmabout.frm

A.T.M自动取款机原理,一个利用VBA模拟ATM的取款原理

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "关于……"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "确  定"
      Height          =   495
      Left            =   240
      TabIndex        =   7
      Top             =   2400
      Width           =   1215
   End
   Begin VB.Label Label7 
      Caption         =   "这是关于此程序的代码解释，谢谢下载。有关事项及正式版请访问我的主页。"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   4335
   End
   Begin VB.Label Label6 
      Caption         =   "我的E-mail："
      Height          =   375
      Left            =   1320
      TabIndex        =   5
      Top             =   1560
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "我的主页："
      Height          =   255
      Left            =   960
      TabIndex        =   4
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label4 
      Caption         =   "[e-mail]"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2400
      TabIndex        =   3
      Top             =   1920
      Width           =   1455
   End
   Begin VB.Label Label3 
      Caption         =   "http://yjie.zb169.net"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1920
      TabIndex        =   2
      Top             =   1080
      Width           =   2055
   End
   Begin VB.Label Label2 
      Caption         =   "[e-mail]"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2400
      TabIndex        =   1
      Top             =   1560
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "http://yingjie.yeah.net  "
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1920
      TabIndex        =   0
      Top             =   720
      Width           =   2535
   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 Command1_Click()
    Unload Form1
    
End Sub

Private Sub Label1_Click()
    Const WEB = "http://yingjies.yeah.yeah"
    Dim hyperjump
    perjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
    
End Sub

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

Private Sub Label3_Click()
    Const WEB = "http://yingjies.yeah.yeah"
    Dim hyperjump
    perjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub

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