home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / anmati / print.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  6.2 KB  |  198 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   2130
  5.    ClientLeft      =   1920
  6.    ClientTop       =   4620
  7.    ClientWidth     =   8205
  8.    ControlBox      =   0   'False
  9.    Height          =   2655
  10.    Left            =   1860
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2130
  15.    ScaleWidth      =   8205
  16.    Top             =   4155
  17.    Width           =   8325
  18.    Begin PictureBox Picture1 
  19.       AutoRedraw      =   -1  'True
  20.       AutoSize        =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       Height          =   480
  23.       Index           =   9
  24.       Left            =   4920
  25.       Picture         =   PRINT.FRX:0000
  26.       ScaleHeight     =   480
  27.       ScaleWidth      =   480
  28.       TabIndex        =   11
  29.       Top             =   1320
  30.       Width           =   480
  31.    End
  32.    Begin PictureBox Picture1 
  33.       AutoRedraw      =   -1  'True
  34.       AutoSize        =   -1  'True
  35.       BorderStyle     =   0  'None
  36.       Height          =   480
  37.       Index           =   8
  38.       Left            =   4440
  39.       Picture         =   PRINT.FRX:0302
  40.       ScaleHeight     =   480
  41.       ScaleWidth      =   480
  42.       TabIndex        =   10
  43.       Top             =   1320
  44.       Width           =   480
  45.    End
  46.    Begin PictureBox Picture1 
  47.       AutoRedraw      =   -1  'True
  48.       AutoSize        =   -1  'True
  49.       BorderStyle     =   0  'None
  50.       Height          =   480
  51.       Index           =   7
  52.       Left            =   3960
  53.       Picture         =   PRINT.FRX:0604
  54.       ScaleHeight     =   480
  55.       ScaleWidth      =   480
  56.       TabIndex        =   9
  57.       Top             =   1320
  58.       Width           =   480
  59.    End
  60.    Begin PictureBox Picture1 
  61.       AutoRedraw      =   -1  'True
  62.       AutoSize        =   -1  'True
  63.       BorderStyle     =   0  'None
  64.       Height          =   480
  65.       Index           =   6
  66.       Left            =   3480
  67.       Picture         =   PRINT.FRX:0906
  68.       ScaleHeight     =   480
  69.       ScaleWidth      =   480
  70.       TabIndex        =   8
  71.       Top             =   1320
  72.       Width           =   480
  73.    End
  74.    Begin PictureBox Picture1 
  75.       AutoRedraw      =   -1  'True
  76.       AutoSize        =   -1  'True
  77.       BorderStyle     =   0  'None
  78.       Height          =   480
  79.       Index           =   5
  80.       Left            =   3000
  81.       Picture         =   PRINT.FRX:0C08
  82.       ScaleHeight     =   480
  83.       ScaleWidth      =   480
  84.       TabIndex        =   7
  85.       Top             =   1320
  86.       Width           =   480
  87.    End
  88.    Begin PictureBox Picture1 
  89.       AutoRedraw      =   -1  'True
  90.       AutoSize        =   -1  'True
  91.       BorderStyle     =   0  'None
  92.       Height          =   480
  93.       Index           =   0
  94.       Left            =   600
  95.       Picture         =   PRINT.FRX:0F0A
  96.       ScaleHeight     =   480
  97.       ScaleWidth      =   480
  98.       TabIndex        =   6
  99.       Top             =   1320
  100.       Width           =   480
  101.    End
  102.    Begin PictureBox Picture1 
  103.       AutoRedraw      =   -1  'True
  104.       AutoSize        =   -1  'True
  105.       BorderStyle     =   0  'None
  106.       Height          =   480
  107.       Index           =   4
  108.       Left            =   2520
  109.       Picture         =   PRINT.FRX:120C
  110.       ScaleHeight     =   480
  111.       ScaleWidth      =   480
  112.       TabIndex        =   5
  113.       Top             =   1320
  114.       Width           =   480
  115.    End
  116.    Begin PictureBox Picture1 
  117.       AutoRedraw      =   -1  'True
  118.       AutoSize        =   -1  'True
  119.       BorderStyle     =   0  'None
  120.       Height          =   480
  121.       Index           =   3
  122.       Left            =   2040
  123.       Picture         =   PRINT.FRX:150E
  124.       ScaleHeight     =   480
  125.       ScaleWidth      =   480
  126.       TabIndex        =   3
  127.       Top             =   1320
  128.       Width           =   480
  129.    End
  130.    Begin PictureBox Picture1 
  131.       AutoRedraw      =   -1  'True
  132.       AutoSize        =   -1  'True
  133.       BorderStyle     =   0  'None
  134.       Height          =   480
  135.       Index           =   1
  136.       Left            =   1080
  137.       Picture         =   PRINT.FRX:1810
  138.       ScaleHeight     =   480
  139.       ScaleWidth      =   480
  140.       TabIndex        =   0
  141.       Top             =   1320
  142.       Width           =   480
  143.    End
  144.    Begin PictureBox Picture5 
  145.       AutoSize        =   -1  'True
  146.       BorderStyle     =   0  'None
  147.       Height          =   495
  148.       Left            =   480
  149.       ScaleHeight     =   495
  150.       ScaleWidth      =   495
  151.       TabIndex        =   4
  152.       Top             =   720
  153.       Width           =   495
  154.    End
  155.    Begin Timer Timer2 
  156.       Enabled         =   0   'False
  157.       Interval        =   100
  158.       Left            =   1920
  159.       Top             =   480
  160.    End
  161.    Begin CommandButton Command1 
  162.       Caption         =   "Print Me"
  163.       Height          =   495
  164.       Left            =   120
  165.       TabIndex        =   2
  166.       Top             =   120
  167.       Width           =   1335
  168.    End
  169.    Begin PictureBox Picture1 
  170.       AutoRedraw      =   -1  'True
  171.       AutoSize        =   -1  'True
  172.       BorderStyle     =   0  'None
  173.       Height          =   480
  174.       Index           =   2
  175.       Left            =   1560
  176.       Picture         =   PRINT.FRX:1B12
  177.       ScaleHeight     =   480
  178.       ScaleWidth      =   480
  179.       TabIndex        =   1
  180.       Top             =   1320
  181.       Width           =   480
  182.    End
  183. Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal lpszSoundName As String, ByVal wFlags As Integer) As Integer
  184. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  185. Const SRCCOPY = &HCC0020
  186. Const SND_ASYNC = &H1
  187. Const SND_NODEFAULT = &H2
  188. Sub Command1_Click ()
  189. Timer2.Enabled = True
  190. End Sub
  191. Sub Timer2_Timer ()
  192. Static flag As Integer
  193. Dim Result As Integer
  194. Result = BitBlt(Picture5.hDC, 0, 0, 32, 32, Picture1(flag).hDC, 0, 0, SRCCOPY)
  195. flag = flag + 1
  196. If flag = 10 Then flag = 0
  197. End Sub
  198.