home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch06 / picimg / picimg.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  4.4 KB  |  141 lines

  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Picture and Image Properties"
  5.    ClientHeight    =   6930
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8565
  9.    ForeColor       =   &H00FFFF00&
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   6930
  13.    ScaleWidth      =   8565
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Copy Picture"
  17.       BeginProperty Font 
  18.          Name            =   "Tahoma"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   420
  27.       Left            =   6270
  28.       TabIndex        =   4
  29.       Top             =   810
  30.       Width           =   2130
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Load Picture && Draw"
  34.       BeginProperty Font 
  35.          Name            =   "Tahoma"
  36.          Size            =   9.75
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   420
  44.       Left            =   6255
  45.       TabIndex        =   3
  46.       Top             =   195
  47.       Width           =   2160
  48.    End
  49.    Begin VB.PictureBox Picture3 
  50.       Height          =   2895
  51.       Left            =   4485
  52.       ScaleHeight     =   2835
  53.       ScaleWidth      =   3945
  54.       TabIndex        =   2
  55.       Top             =   3900
  56.       Width           =   4005
  57.    End
  58.    Begin VB.PictureBox Picture2 
  59.       Height          =   2895
  60.       Left            =   240
  61.       ScaleHeight     =   2835
  62.       ScaleWidth      =   3945
  63.       TabIndex        =   1
  64.       Top             =   3900
  65.       Width           =   4005
  66.    End
  67.    Begin VB.PictureBox Picture1 
  68.       AutoRedraw      =   -1  'True
  69.       BeginProperty Font 
  70.          Name            =   "Tahoma"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   700
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H00FFFFFF&
  79.       Height          =   3315
  80.       Left            =   210
  81.       ScaleHeight     =   3255
  82.       ScaleWidth      =   3960
  83.       TabIndex        =   0
  84.       Top             =   105
  85.       Width           =   4020
  86.    End
  87.    Begin VB.Label Label2 
  88.       Caption         =   "Picture3.Picture = Picture1.Image"
  89.       BeginProperty Font 
  90.          Name            =   "Tahoma"
  91.          Size            =   9.75
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   255
  99.       Left            =   4485
  100.       TabIndex        =   6
  101.       Top             =   3630
  102.       Width           =   3240
  103.    End
  104.    Begin VB.Label Label1 
  105.       Caption         =   "Picture2.Picture = Picture1.Picture"
  106.       BeginProperty Font 
  107.          Name            =   "Tahoma"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   255
  116.       Left            =   270
  117.       TabIndex        =   5
  118.       Top             =   3615
  119.       Width           =   3195
  120.    End
  121. Attribute VB_Name = "Form1"
  122. Attribute VB_GlobalNameSpace = False
  123. Attribute VB_Creatable = False
  124. Attribute VB_PredeclaredId = True
  125. Attribute VB_Exposed = False
  126. Private Sub Command1_Click()
  127. Picture1.Picture = LoadPicture(App.Path + "\planets.bmp")
  128. Picture1.DrawWidth = 2
  129. Picture1.Line (100, 100)-(3200, 500), , B
  130. Picture1.DrawWidth = 1
  131. Picture1.Circle (1000, 1500), 750
  132. Picture1.Circle (1000, 1500), 800
  133. Picture1.CurrentX = 200
  134. Picture1.CurrentY = 200
  135. Picture1.Print "Picture and Image Properties"
  136. End Sub
  137. Private Sub Command2_Click()
  138.     Picture2.Picture = Picture1.Picture
  139.     Picture3.Picture = Picture1.Image
  140. End Sub
  141.