about.frm

VB版的小游戏

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "About Game & Watch Simulator"
   ClientHeight    =   2700
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3705
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2700
   ScaleWidth      =   3705
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   1275
      Left            =   90
      TabIndex        =   5
      Top             =   945
      Width           =   3540
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Special thanks to"
         Height          =   210
         Left            =   1095
         TabIndex        =   9
         Top             =   195
         Width           =   1245
      End
      Begin VB.Label Handbill 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "CodeFans.net"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   210
         Left            =   360
         MouseIcon       =   "About.frx":08CA
         MousePointer    =   99  'Custom
         TabIndex        =   8
         Top             =   645
         Width           =   2700
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Also Khun Somchat Saleephattana and family."
         Height          =   210
         Left            =   120
         TabIndex        =   7
         Top             =   975
         Width           =   3285
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "Khun Kob for all images, idea and suggestions."
         Height          =   210
         Left            =   105
         TabIndex        =   6
         Top             =   420
         Width           =   3315
      End
   End
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   2640
      TabIndex        =   0
      Top             =   2295
      Width           =   975
   End
   Begin VB.Label Homepage 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      Caption         =   "CodeFans.net"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Left            =   105
      MouseIcon       =   "About.frx":0A1C
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   720
      Width           =   3450
   End
   Begin VB.Label Email 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Left            =   1125
      MouseIcon       =   "About.frx":0B6E
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   495
      Width           =   1395
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      Caption         =   "By Pheeraphat Sawangphian"
      Height          =   210
      Left            =   780
      TabIndex        =   2
      Top             =   255
      Width           =   2085
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      Caption         =   "Octopus 2.0 (August 10, 1998)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   510
      TabIndex        =   1
      Top             =   30
      Width           =   2580
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Module:   About.frm
'Author:    Pheeraphat Sawangphian
'E-Mail:     [e-mail]

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 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

'Constants for SetWindowPos
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Const SW_SHOW = 5
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()
    If Form1.mAlwaysOnTop.Checked Then
        SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
    Else
        SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
    End If
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

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

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