home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rotate2a / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-18  |  5.1 KB  |  178 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Rotate WMF
  4. s     eaguirre"
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8250
  9.    ForeColor       =   &H00C0C0C0&
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   5205
  12.    ScaleWidth      =   8250
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.PictureBox Picture1 
  15.       Height          =   1575
  16.       Index           =   9
  17.       Left            =   6600
  18.       Picture         =   "Form1.frx":0000
  19.       ScaleHeight     =   1515
  20.       ScaleWidth      =   1395
  21.       TabIndex        =   11
  22.       Top             =   3480
  23.       Width           =   1455
  24.    End
  25.    Begin VB.PictureBox Picture1 
  26.       Height          =   1695
  27.       Index           =   8
  28.       Left            =   1800
  29.       Picture         =   "Form1.frx":03E2
  30.       ScaleHeight     =   1635
  31.       ScaleWidth      =   1395
  32.       TabIndex        =   10
  33.       Top             =   3360
  34.       Width           =   1455
  35.    End
  36.    Begin VB.PictureBox Picture1 
  37.       Height          =   1695
  38.       Index           =   7
  39.       Left            =   240
  40.       Picture         =   "Form1.frx":18C4
  41.       ScaleHeight     =   1635
  42.       ScaleWidth      =   1395
  43.       TabIndex        =   9
  44.       Top             =   3360
  45.       Width           =   1455
  46.    End
  47.    Begin VB.PictureBox Picture1 
  48.       Height          =   3255
  49.       Index           =   6
  50.       Left            =   3360
  51.       Picture         =   "Form1.frx":2586
  52.       ScaleHeight     =   3195
  53.       ScaleWidth      =   2955
  54.       TabIndex        =   8
  55.       Top             =   1800
  56.       Width           =   3015
  57.    End
  58.    Begin VB.PictureBox Picture1 
  59.       Height          =   1455
  60.       Index           =   5
  61.       Left            =   1800
  62.       Picture         =   "Form1.frx":2AC8
  63.       ScaleHeight     =   1395
  64.       ScaleWidth      =   1395
  65.       TabIndex        =   7
  66.       Top             =   1800
  67.       Width           =   1455
  68.    End
  69.    Begin VB.PictureBox Picture1 
  70.       Height          =   1455
  71.       Index           =   4
  72.       Left            =   240
  73.       Picture         =   "Form1.frx":540A
  74.       ScaleHeight     =   1395
  75.       ScaleWidth      =   1395
  76.       TabIndex        =   6
  77.       Top             =   1800
  78.       Width           =   1455
  79.    End
  80.    Begin VB.PictureBox Picture1 
  81.       Height          =   1455
  82.       Index           =   3
  83.       Left            =   4920
  84.       Picture         =   "Form1.frx":5C4C
  85.       ScaleHeight     =   1395
  86.       ScaleWidth      =   1395
  87.       TabIndex        =   5
  88.       Top             =   240
  89.       Width           =   1455
  90.    End
  91.    Begin VB.PictureBox Picture1 
  92.       Height          =   1455
  93.       Index           =   2
  94.       Left            =   3360
  95.       Picture         =   "Form1.frx":65EE
  96.       ScaleHeight     =   1395
  97.       ScaleWidth      =   1395
  98.       TabIndex        =   4
  99.       Top             =   240
  100.       Width           =   1455
  101.    End
  102.    Begin VB.PictureBox Picture1 
  103.       Height          =   1455
  104.       Index           =   1
  105.       Left            =   1800
  106.       Picture         =   "Form1.frx":7110
  107.       ScaleHeight     =   1395
  108.       ScaleWidth      =   1395
  109.       TabIndex        =   3
  110.       Top             =   240
  111.       Width           =   1455
  112.    End
  113.    Begin VB.CommandButton Command1 
  114.       Caption         =   "Start"
  115.       Height          =   375
  116.       Left            =   6600
  117.       TabIndex        =   2
  118.       Top             =   1920
  119.       Width           =   1095
  120.    End
  121.    Begin RotateWMF.angButton angButton1 
  122.       Height          =   1200
  123.       Left            =   6600
  124.       TabIndex        =   1
  125.       Top             =   600
  126.       Width           =   1200
  127.       _ExtentX        =   2117
  128.       _ExtentY        =   2117
  129.       Trace           =   0
  130.    End
  131.    Begin VB.PictureBox Picture1 
  132.       Height          =   1455
  133.       Index           =   0
  134.       Left            =   240
  135.       Picture         =   "Form1.frx":8332
  136.       ScaleHeight     =   1395
  137.       ScaleWidth      =   1395
  138.       TabIndex        =   0
  139.       Top             =   240
  140.       Width           =   1455
  141.    End
  142. Attribute VB_Name = "Form1"
  143. Attribute VB_GlobalNameSpace = False
  144. Attribute VB_Creatable = False
  145. Attribute VB_PredeclaredId = True
  146. Attribute VB_Exposed = False
  147. '--------------------------------------------------------------
  148. ' Author: EAguirre
  149. ' Date  : 5/01/98
  150. ' Prog  : Form1.frm
  151. ' Desc  : Rotate a Windows Metafile
  152. '--------------------------------------------------------------
  153. Option Explicit
  154. Dim fDraw As Boolean
  155. Private Sub Command1_Click()
  156.   fDraw = Not (fDraw)
  157.   If fDraw Then
  158.     Command1.Caption = "Stop"
  159.    Else
  160.     Command1.Caption = "Start"
  161.   End If
  162.   If fDraw Then Draw
  163. End Sub
  164. Private Sub Form_Load()
  165. fDraw = False
  166. End Sub
  167. Public Sub Draw()
  168. Dim i As Integer
  169. Do While fDraw
  170.     Angle = angButton1.Angle
  171.     'Rotate the metafile
  172.     For i = 0 To 9
  173.       EnumMetaFile Picture1(i).hdc, Picture1(i).Picture, AddressOf EnumMetaRecord, 1
  174.       Picture1(i).Refresh
  175.     Next i
  176.     DoEvents
  177. End Sub
  178.