about.frm

超级纸牌游戏源代码

VERSION 5.00
Begin VB.Form About 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "- About -"
   ClientHeight    =   1560
   ClientLeft      =   1665
   ClientTop       =   2325
   ClientWidth     =   6225
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   104
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   415
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "&OK"
      Height          =   396
      Left            =   4992
      TabIndex        =   3
      Top             =   576
      Width           =   972
   End
   Begin VB.Label Label3 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "1996, Pigeon Lake Software, Inc"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   1830
      TabIndex        =   2
      Top             =   960
      Width           =   3135
   End
   Begin VB.Label Label2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "by Stephen Murphy"
      ForeColor       =   &H80000008&
      Height          =   204
      Left            =   1824
      TabIndex        =   1
      Top             =   576
      Width           =   1932
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "QCard32.DLL Visual Basic 4.0 Demo"
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   1830
      TabIndex        =   0
      Top             =   195
      Width           =   4065
   End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
About.Hide
End Sub

Private Sub Form_Load()
Dim nXLoc As Integer
Dim nYLoc As Integer
About.ScaleMode = 3
About.ScaleTop = 0
About.ScaleLeft = 0
nXLoc = (Screen.Width - About.Width) / 2
nYLoc = (Screen.Height - About.Height) / 2
About.Left = nXLoc
About.Top = nYLoc

End Sub

Private Sub Form_Paint()

Dim yLoc As Integer

yLoc = (About.ScaleHeight - CARDHEIGHT) / 2
DrawCard About.hwnd, 51, 10, yLoc
DrawCard About.hwnd, 52, 10 + OFFSET, yLoc
DrawCard About.hwnd, 40, 10 + (2 * OFFSET), yLoc

End Sub