home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crispy / cardback.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.7 KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form CardBack 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "CardBack"
  6.    ClientHeight    =   5700
  7.    ClientLeft      =   1110
  8.    ClientTop       =   1785
  9.    ClientWidth     =   5025
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   24
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H00C0C0C0&
  17.    Height          =   6105
  18.    Left            =   1050
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   380
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   335
  24.    Top             =   1440
  25.    Width           =   5145
  26.    WindowState     =   1  'Minimized
  27.    Begin CommandButton CardBackOK 
  28.       Caption         =   "O.K."
  29.       Height          =   495
  30.       Left            =   1800
  31.       TabIndex        =   7
  32.       Top             =   4920
  33.       Width           =   1335
  34.    End
  35.    Begin PictureBox CardBackPic 
  36.       BackColor       =   &H00FFFFFF&
  37.       BorderStyle     =   0  'None
  38.       Height          =   1455
  39.       Index           =   6
  40.       Left            =   3840
  41.       ScaleHeight     =   1455
  42.       ScaleWidth      =   1095
  43.       TabIndex        =   6
  44.       Top             =   3000
  45.       Width           =   1095
  46.    End
  47.    Begin PictureBox CardBackPic 
  48.       BackColor       =   &H00FFFFFF&
  49.       BorderStyle     =   0  'None
  50.       Height          =   1455
  51.       Index           =   5
  52.       Left            =   2640
  53.       ScaleHeight     =   1455
  54.       ScaleWidth      =   1095
  55.       TabIndex        =   5
  56.       Top             =   3000
  57.       Width           =   1095
  58.    End
  59.    Begin PictureBox CardBackPic 
  60.       BackColor       =   &H00FFFFFF&
  61.       BorderStyle     =   0  'None
  62.       Height          =   1455
  63.       Index           =   4
  64.       Left            =   1440
  65.       ScaleHeight     =   1455
  66.       ScaleWidth      =   1095
  67.       TabIndex        =   4
  68.       Top             =   3000
  69.       Width           =   1095
  70.    End
  71.    Begin PictureBox CardBackPic 
  72.       BackColor       =   &H00FFFFFF&
  73.       BorderStyle     =   0  'None
  74.       Height          =   1455
  75.       Index           =   3
  76.       Left            =   240
  77.       ScaleHeight     =   1455
  78.       ScaleWidth      =   1095
  79.       TabIndex        =   3
  80.       Top             =   3000
  81.       Width           =   1095
  82.    End
  83.    Begin PictureBox CardBackPic 
  84.       BackColor       =   &H00FFFFFF&
  85.       BorderStyle     =   0  'None
  86.       Height          =   1455
  87.       Index           =   2
  88.       Left            =   3840
  89.       ScaleHeight     =   1455
  90.       ScaleWidth      =   1095
  91.       TabIndex        =   2
  92.       Top             =   1320
  93.       Width           =   1095
  94.    End
  95.    Begin PictureBox CardBackPic 
  96.       BackColor       =   &H00FFFFFF&
  97.       BorderStyle     =   0  'None
  98.       Height          =   1455
  99.       Index           =   1
  100.       Left            =   2040
  101.       ScaleHeight     =   1455
  102.       ScaleWidth      =   1095
  103.       TabIndex        =   1
  104.       Top             =   1320
  105.       Width           =   1095
  106.    End
  107.    Begin PictureBox CardBackPic 
  108.       BackColor       =   &H00FFFFFF&
  109.       BorderStyle     =   0  'None
  110.       Height          =   1455
  111.       Index           =   0
  112.       Left            =   240
  113.       ScaleHeight     =   1455
  114.       ScaleWidth      =   1095
  115.       TabIndex        =   0
  116.       Top             =   1320
  117.       Width           =   1095
  118.    End
  119. Sub CardBackOK_Click ()
  120.    Unload CardBack
  121. End Sub
  122. Sub CardBackPic_Click (Index As Integer)
  123.    ChangeCardBack Index
  124. End Sub
  125.