home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / artbut1a / cbuttons.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-07  |  4.6 KB  |  137 lines
  1. VERSION 5.00
  2. Begin VB.Form cButtons 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Buttons by Ricardo Gonzalez"
  5.    ClientHeight    =   3435
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6585
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3435
  11.    ScaleWidth      =   6585
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.PictureBox Picture6 
  14.       BorderStyle     =   0  'None
  15.       Height          =   540
  16.       Left            =   4800
  17.       Picture         =   "cButtons.frx":0000
  18.       ScaleHeight     =   540
  19.       ScaleWidth      =   540
  20.       TabIndex        =   8
  21.       Top             =   5460
  22.       Width           =   540
  23.    End
  24.    Begin VB.PictureBox Picture5 
  25.       BackColor       =   &H00C0C0C0&
  26.       BorderStyle     =   0  'None
  27.       Height          =   540
  28.       Left            =   5160
  29.       Picture         =   "cButtons.frx":030A
  30.       ScaleHeight     =   540
  31.       ScaleWidth      =   540
  32.       TabIndex        =   7
  33.       Top             =   420
  34.       Width           =   540
  35.    End
  36.    Begin VB.PictureBox Picture4 
  37.       BorderStyle     =   0  'None
  38.       Height          =   480
  39.       Left            =   3480
  40.       Picture         =   "cButtons.frx":0614
  41.       ScaleHeight     =   480
  42.       ScaleWidth      =   480
  43.       TabIndex        =   6
  44.       Top             =   5520
  45.       Width           =   480
  46.    End
  47.    Begin VB.PictureBox Picture3 
  48.       BorderStyle     =   0  'None
  49.       Height          =   540
  50.       Left            =   4080
  51.       Picture         =   "cButtons.frx":091E
  52.       ScaleHeight     =   540
  53.       ScaleWidth      =   540
  54.       TabIndex        =   5
  55.       Top             =   1800
  56.       Width           =   540
  57.    End
  58.    Begin VB.PictureBox PictureSave 
  59.       BorderStyle     =   0  'None
  60.       Height          =   555
  61.       Left            =   1500
  62.       ScaleHeight     =   555
  63.       ScaleWidth      =   615
  64.       TabIndex        =   4
  65.       Top             =   5460
  66.       Width           =   615
  67.    End
  68.    Begin VB.PictureBox Picture2 
  69.       BorderStyle     =   0  'None
  70.       Height          =   540
  71.       Left            =   660
  72.       Picture         =   "cButtons.frx":0C28
  73.       ScaleHeight     =   540
  74.       ScaleWidth      =   540
  75.       TabIndex        =   3
  76.       Top             =   5520
  77.       Width           =   540
  78.    End
  79.    Begin VB.PictureBox Picture1 
  80.       BorderStyle     =   0  'None
  81.       Height          =   540
  82.       Left            =   2820
  83.       Picture         =   "cButtons.frx":0F32
  84.       ScaleHeight     =   540
  85.       ScaleWidth      =   540
  86.       TabIndex        =   2
  87.       Top             =   660
  88.       Width           =   540
  89.    End
  90.    Begin VB.CommandButton Command2 
  91.       BackColor       =   &H00FFFFFF&
  92.       Caption         =   "VB Graphical Button"
  93.       Height          =   1095
  94.       Left            =   480
  95.       MaskColor       =   &H00FFFFFF&
  96.       Picture         =   "cButtons.frx":123C
  97.       Style           =   1  'Graphical
  98.       TabIndex        =   1
  99.       Top             =   1620
  100.       Width           =   1815
  101.    End
  102.    Begin VB.CommandButton Command1 
  103.       Caption         =   "VB Classic Button"
  104.       Height          =   1215
  105.       Left            =   480
  106.       TabIndex        =   0
  107.       Top             =   120
  108.       Width           =   1815
  109.    End
  110. Attribute VB_Name = "cButtons"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. ' This is a demostration of button style using Pictures Property
  116. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  117.   PictureSave.Picture = Picture1.Picture
  118.   Picture1.Picture = Picture2.Picture
  119. End Sub
  120. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  121.   Picture1.Picture = PictureSave.Picture
  122. End Sub
  123. Private Sub Picture3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  124.   PictureSave.Picture = Picture3.Picture
  125.   Picture3.Picture = Picture4.Picture
  126. End Sub
  127. Private Sub Picture3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  128.   Picture3.Picture = PictureSave.Picture
  129. End Sub
  130. Private Sub Picture5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  131.   PictureSave.Picture = Picture5.Picture
  132.   Picture5.Picture = Picture6.Picture
  133. End Sub
  134. Private Sub Picture5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  135.   Picture5.Picture = PictureSave.Picture
  136. End Sub
  137.