cards.frm

来自「不错的一个VB菜单设计 界面和功能都不错」· FRM 代码 · 共 160 行

VERSION 5.00
Object = "{75D4F4A8-8785-11D3-93AD-0000832EF44D}#3.0#0"; "FAST2007.ocx"
Begin VB.Form frmCards 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Cards"
   ClientHeight    =   3870
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   9990
   Icon            =   "Cards.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3870
   ScaleWidth      =   9990
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   9390
      Top             =   3300
   End
   Begin VB.CommandButton cmdInverts 
      Caption         =   "Show Invert"
      Height          =   420
      Left            =   2265
      TabIndex        =   1
      Top             =   3285
      Width           =   1815
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   420
      Left            =   6585
      TabIndex        =   3
      Top             =   3285
      Width           =   1815
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "Show backs"
      Height          =   420
      Left            =   4425
      TabIndex        =   2
      Top             =   3285
      Width           =   1815
   End
   Begin VB.CommandButton cmdCards 
      Caption         =   "Show cards"
      Height          =   420
      Left            =   105
      TabIndex        =   0
      Top             =   3285
      Width           =   1815
   End
   Begin FLWMMedia.FWCards crdCards 
      Left            =   8790
      Top             =   3300
      _ExtentX        =   820
      _ExtentY        =   820
   End
End
Attribute VB_Name = "frmCards"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  If Not crdCards.Created Then
    Call MsgBox("Cards32.dll not found. Game support not installed")
  End If
  Me.ScaleMode = vbPixels
End Sub

Private Sub Timer1_Timer()
  Call Me.Refresh
  Call crdCards.DrawBack(580, 160, FLWMMedia.flwCardHand)
  Call crdCards.Animate(580, 160, FLWMMedia.flwCardHand)
End Sub

Private Sub cmdInverts_Click()
  Dim intPalo   As Integer
  Dim intNumber As Integer
  Dim lngDX     As Long
  Dim lngDY     As Long
  
  Call Me.Cls
  Call Me.Refresh
  
  lngDY = 20
  For intPalo = 0 To 3
    lngDX = 20 + 15 * intPalo
    For intNumber = 0 To 12
      ' draw card
      Call crdCards.DrawInvert(lngDX, lngDY, intPalo + intNumber * 4)
      ' increment x position
      lngDX = lngDX + 25
    Next
    ' increment y position
   lngDY = lngDY + 20
  Next
End Sub

Private Sub cmdCards_Click()
  Dim intPalo   As Integer
  Dim intNumber As Integer
  Dim lngDX     As Long
  Dim lngDY     As Long
  
  Call Me.Cls
  Call Me.Refresh
  
  lngDY = 20
  For intPalo = 0 To 3
    lngDX = 20 + 15 * intPalo
    For intNumber = 0 To 12
      ' draw card
      Call crdCards.DrawCard(lngDX, lngDY, intPalo + intNumber * 4)
      ' increment x position
      lngDX = lngDX + 25
    Next
    ' increment y position
   lngDY = lngDY + 20
  Next
End Sub

Private Sub cmdBack_Click()
  Call Me.Cls
  Call Me.Refresh
  
  With crdCards
    Call .DrawBack(20, 20, FLWMMedia.flwCardCrossHatch)
    Call .DrawBack(60, 20, FLWMMedia.flwCardPlaid)
    Call .DrawBack(100, 20, FLWMMedia.flwCardWeave)
    Call .DrawBack(140, 20, FLWMMedia.flwCardRobot)
    Call .DrawBack(180, 20, FLWMMedia.flwCardRoses)
    Call .DrawBack(220, 20, FLWMMedia.flwCardIvyBlack)
    Call .DrawBack(260, 20, FLWMMedia.flwCardIvyBlue)
    Call .DrawBack(300, 20, FLWMMedia.flwCardFishCyan)
    Call .DrawBack(340, 20, FLWMMedia.flwCardFishBlue)
    Call .DrawBack(380, 20, FLWMMedia.flwCardShell)
    Call .DrawBack(420, 20, FLWMMedia.flwCardCastle)
    Call .DrawBack(460, 20, FLWMMedia.flwCardBeach)
    Call .DrawBack(500, 20, FLWMMedia.flwCardHand)
'   this card is not used by windows
'   Call .DrawBack(540, 20, flwCardUnused)
    Call .DrawBack(540, 20, FLWMMedia.flwCardX)
    Call .DrawBack(580, 20, FLWMMedia.flwCardO)
  End With
End Sub