home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / CONTROLS / IMAGES.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  3.3 KB  |  113 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImages 
  3.    Caption         =   "Images"
  4.    ClientHeight    =   3465
  5.    ClientLeft      =   1635
  6.    ClientTop       =   1740
  7.    ClientWidth     =   4725
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3465
  10.    ScaleWidth      =   4725
  11.    Begin VB.CommandButton cmdClose 
  12.       Cancel          =   -1  'True
  13.       Caption         =   "&Close"
  14.       Height          =   495
  15.       Left            =   3000
  16.       MaskColor       =   &H00000000&
  17.       TabIndex        =   1
  18.       Top             =   2280
  19.       Width           =   1095
  20.    End
  21.    Begin VB.PictureBox picStatus 
  22.       Align           =   2  'Align Bottom
  23.       AutoSize        =   -1  'True
  24.       FillColor       =   &H000080FF&
  25.       Height          =   315
  26.       Left            =   0
  27.       ScaleHeight     =   255
  28.       ScaleWidth      =   4665
  29.       TabIndex        =   0
  30.       TabStop         =   0   'False
  31.       Top             =   3150
  32.       Width           =   4725
  33.    End
  34.    Begin VB.Label lblEnter 
  35.       Caption         =   "Click on an image and see what happens"
  36.       Height          =   615
  37.       Left            =   720
  38.       TabIndex        =   2
  39.       Top             =   2280
  40.       Width           =   1575
  41.    End
  42.    Begin VB.Shape shpCard 
  43.       BorderColor     =   &H00000000&
  44.       BorderWidth     =   2
  45.       Height          =   735
  46.       Left            =   120
  47.       Shape           =   4  'Rounded Rectangle
  48.       Top             =   600
  49.       Width           =   495
  50.    End
  51.    Begin VB.Image imgSpade 
  52.       Height          =   480
  53.       Left            =   3480
  54.       Picture         =   "images.frx":0000
  55.       Top             =   720
  56.       Width           =   480
  57.    End
  58.    Begin VB.Image imgHeart 
  59.       Height          =   480
  60.       Left            =   2520
  61.       Picture         =   "images.frx":0442
  62.       Top             =   720
  63.       Width           =   480
  64.    End
  65.    Begin VB.Image imgDiamond 
  66.       Height          =   480
  67.       Left            =   1560
  68.       Picture         =   "images.frx":0884
  69.       Top             =   720
  70.       Width           =   480
  71.    End
  72.    Begin VB.Image imgClub 
  73.       Height          =   480
  74.       Left            =   720
  75.       Picture         =   "images.frx":0CC6
  76.       Top             =   720
  77.       Width           =   480
  78.    End
  79. Attribute VB_Name = "frmImages"
  80. Attribute VB_Base = "0{B94D9DCA-DBE8-11CF-84BA-00AA00C007F0}"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_TemplateDerived = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Option Explicit
  87. Private Sub cmdClose_Click()
  88.     Unload Me
  89. End Sub
  90. Private Sub Form_Load()
  91.     shpCard.Left = -500
  92. End Sub
  93. Private Sub imgClub_Click()
  94.     shpCard.Left = imgClub.Left
  95.     picStatus.Cls
  96.     picStatus.Print "Selected: Club"
  97. End Sub
  98. Private Sub imgDiamond_Click()
  99.     shpCard.Left = imgDiamond.Left
  100.     picStatus.Cls
  101.     picStatus.Print "Selected: Diamond"
  102. End Sub
  103. Private Sub imgHeart_Click()
  104.     shpCard.Left = imgHeart.Left
  105.     picStatus.Cls
  106.     picStatus.Print "Selected: Heart"
  107. End Sub
  108. Private Sub imgSpade_Click()
  109.     shpCard.Left = imgSpade.Left
  110.     picStatus.Cls
  111.     picStatus.Print "Selected: Spade"
  112. End Sub
  113.