home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / appx_b / dataedit / frmbtmp.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-04-22  |  2.4 KB  |  69 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGRAPHBitmap 
  3.    Caption         =   "Chart's Bitmap "
  4.    ClientHeight    =   5865
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8700
  8.    LinkTopic       =   "Form4"
  9.    ScaleHeight     =   5865
  10.    ScaleWidth      =   8700
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "C L O S E"
  14.       BeginProperty Font 
  15.          Name            =   "Verdana"
  16.          Size            =   11.25
  17.          Charset         =   0
  18.          Weight          =   700
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   495
  24.       Left            =   6735
  25.       TabIndex        =   1
  26.       Top             =   5280
  27.       Width           =   1875
  28.    End
  29.    Begin VB.PictureBox Picture1 
  30.       AutoSize        =   -1  'True
  31.       Height          =   4965
  32.       Left            =   105
  33.       OLEDragMode     =   1  'Automatic
  34.       ScaleHeight     =   4905
  35.       ScaleWidth      =   8415
  36.       TabIndex        =   0
  37.       Top             =   135
  38.       Width           =   8475
  39.    End
  40. Attribute VB_Name = "frmGRAPHBitmap"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. '  ******************************
  46. '  ******************************
  47. '  ** MASTERING VB6            **
  48. '  ** by Evangelos Petroutos   **
  49. '  ** SYBEX, 1998              **
  50. '  ******************************
  51. '  ******************************
  52. Private Sub Command1_Click()
  53.     Me.Hide
  54. End Sub
  55. Private Sub Form_Activate()
  56. ' When this Form is activates (which is after the Form has been loaded),
  57. ' it's resized according to the size of the PictureBox it contains
  58. ' The PictureBox control is set to the size of the pasted bitmap becuase
  59. ' its AutoSize property is set to True
  60.     Picture1.Enabled = False
  61.     Command1.Enabled = False
  62.     Me.Width = 3 * Picture1.Left + Picture1.Width
  63.     Me.Height = Picture1.Top + Picture1.Height + Command1.Height + 40 * Screen.TwipsPerPixelY
  64.     Command1.Top = Picture1.Top + Picture1.Height + 10 * Screen.TwipsPerPixelY
  65.     Command1.Left = Picture1.Left + Picture1.Width - Command1.Width
  66.     Picture1.Enabled = True
  67.     Command1.Enabled = True
  68. End Sub
  69.