home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / PictureFra1785528242004.psc / frmDemo.frm < prev    next >
Text File  |  2004-08-25  |  2KB  |  74 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDemo 
  3.    ClientHeight    =   6600
  4.    ClientLeft      =   60
  5.    ClientTop       =   60
  6.    ClientWidth     =   8580
  7.    ControlBox      =   0   'False
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6600
  10.    ScaleWidth      =   8580
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin prjPicFrame.uctPictureFrame uctPictureFrame1 
  13.       Align           =   1  'Align Top
  14.       Height          =   6600
  15.       Left            =   0
  16.       TabIndex        =   1
  17.       Top             =   0
  18.       Width           =   8580
  19.       _ExtentX        =   15134
  20.       _ExtentY        =   11642
  21.       BackStyle       =   0
  22.       Frame0          =   "frmDemo.frx":0000
  23.       Frame1          =   "frmDemo.frx":098B
  24.       Frame2          =   "frmDemo.frx":19EE
  25.       Frame3          =   "frmDemo.frx":239B
  26.       Frame4          =   "frmDemo.frx":30DD
  27.       Frame5          =   "frmDemo.frx":3A45
  28.       Frame6          =   "frmDemo.frx":47C7
  29.       Frame7          =   "frmDemo.frx":5146
  30.       Picture         =   "frmDemo.frx":609F
  31.       BorderWidth     =   40
  32.       LockDown        =   -1
  33.    End
  34.    Begin VB.CommandButton cmdHidden 
  35.       Height          =   2055
  36.       Left            =   2520
  37.       Picture         =   "frmDemo.frx":2634B
  38.       TabIndex        =   0
  39.       Top             =   1680
  40.       Width           =   3495
  41.    End
  42. End
  43. Attribute VB_Name = "frmDemo"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Option Explicit
  49.  
  50. Private Sub cmdHidden_Click()
  51.  
  52.   End
  53.  
  54. End Sub
  55.  
  56. Private Sub Form_Load()
  57. 'cmdHidden button is just here to demonstrate that you can manipulate controls
  58. 'behind the PictureFrame Control.
  59.   cmdHidden.Caption = "In this demo there is only this button" & vbNewLine & _
  60.                       "(Click to close the program)" & vbNewLine & _
  61.                       "but you could hide anything you like back here." & vbNewLine & _
  62.                       "Right-click the frame to get the picture back."
  63.  
  64. End Sub
  65.  
  66. Private Sub Form_Resize()
  67. 'just keeps the cmdHidden button in the middle of the form
  68.   cmdHidden.Move (frmDemo.Width - cmdHidden.Width) / 2, (frmDemo.Height - cmdHidden.Height) / 2
  69.  
  70. End Sub
  71.  
  72. ':)Code Fixer V2.5.1 (24/08/2004 11:34:51 PM) 1 + 21 = 22 Lines Thanks Ulli for inspiration and lots of code.
  73.  
  74.