home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Point_&_Cl2101262102008.psc / Form1.frm < prev    next >
Text File  |  2008-02-10  |  8KB  |  264 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H000080FF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "BitBlt - Project Adventura"
  7.    ClientHeight    =   8280
  8.    ClientLeft      =   45
  9.    ClientTop       =   345
  10.    ClientWidth     =   12000
  11.    BeginProperty Font 
  12.       Name            =   "Arial"
  13.       Size            =   8.25
  14.       Charset         =   238
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    Picture         =   "Form1.frx":0000
  23.    ScaleHeight     =   552
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   800
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.Timer Timer4 
  28.       Left            =   3120
  29.       Top             =   7560
  30.    End
  31.    Begin VB.PictureBox Picture4 
  32.       AutoRedraw      =   -1  'True
  33.       AutoSize        =   -1  'True
  34.       BorderStyle     =   0  'None
  35.       Height          =   3840
  36.       Left            =   11880
  37.       Picture         =   "Form1.frx":585D7
  38.       ScaleHeight     =   256
  39.       ScaleMode       =   3  'Pixel
  40.       ScaleWidth      =   3840
  41.       TabIndex        =   9
  42.       Top             =   8400
  43.       Visible         =   0   'False
  44.       Width           =   57600
  45.    End
  46.    Begin VB.PictureBox Picture3 
  47.       AutoRedraw      =   -1  'True
  48.       AutoSize        =   -1  'True
  49.       BorderStyle     =   0  'None
  50.       Height          =   3840
  51.       Left            =   11880
  52.       Picture         =   "Form1.frx":8013A
  53.       ScaleHeight     =   256
  54.       ScaleMode       =   3  'Pixel
  55.       ScaleWidth      =   3840
  56.       TabIndex        =   8
  57.       Top             =   12480
  58.       Visible         =   0   'False
  59.       Width           =   57600
  60.    End
  61.    Begin VB.Timer Timer3 
  62.       Left            =   2040
  63.       Top             =   7560
  64.    End
  65.    Begin VB.Timer Timer2 
  66.       Left            =   960
  67.       Top             =   7440
  68.    End
  69.    Begin VB.CommandButton Command2 
  70.       Caption         =   "Doprava ->"
  71.       Height          =   375
  72.       Left            =   6113
  73.       TabIndex        =   7
  74.       Top             =   1920
  75.       Width           =   1815
  76.    End
  77.    Begin VB.CommandButton Command1 
  78.       Caption         =   "<- Doleva"
  79.       Height          =   375
  80.       Left            =   4073
  81.       TabIndex        =   6
  82.       Top             =   1920
  83.       Width           =   1815
  84.    End
  85.    Begin VB.PictureBox Picture2 
  86.       AutoRedraw      =   -1  'True
  87.       AutoSize        =   -1  'True
  88.       BorderStyle     =   0  'None
  89.       Height          =   3840
  90.       Left            =   11880
  91.       Picture         =   "Form1.frx":AEF7B
  92.       ScaleHeight     =   256
  93.       ScaleMode       =   3  'Pixel
  94.       ScaleWidth      =   3840
  95.       TabIndex        =   1
  96.       Top             =   4440
  97.       Visible         =   0   'False
  98.       Width           =   57600
  99.    End
  100.    Begin VB.Timer Timer1 
  101.       Interval        =   31
  102.       Left            =   120
  103.       Top             =   7440
  104.    End
  105.    Begin VB.PictureBox Picture1 
  106.       AutoRedraw      =   -1  'True
  107.       AutoSize        =   -1  'True
  108.       BorderStyle     =   0  'None
  109.       Height          =   3840
  110.       Left            =   11880
  111.       Picture         =   "Form1.frx":DDB6F
  112.       ScaleHeight     =   256
  113.       ScaleMode       =   3  'Pixel
  114.       ScaleWidth      =   3840
  115.       TabIndex        =   0
  116.       Top             =   360
  117.       Visible         =   0   'False
  118.       Width           =   57600
  119.    End
  120.    Begin VB.Label Label6 
  121.       AutoSize        =   -1  'True
  122.       BackStyle       =   0  'Transparent
  123.       Caption         =   "Pozice myÜi:"
  124.       BeginProperty Font 
  125.          Name            =   "Arial"
  126.          Size            =   9.75
  127.          Charset         =   238
  128.          Weight          =   400
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Height          =   240
  134.       Left            =   120
  135.       TabIndex        =   5
  136.       Top             =   360
  137.       Width           =   1140
  138.    End
  139.    Begin VB.Label Label5 
  140.       AutoSize        =   -1  'True
  141.       BackStyle       =   0  'Transparent
  142.       BeginProperty Font 
  143.          Name            =   "Arial"
  144.          Size            =   9.75
  145.          Charset         =   238
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       Height          =   240
  152.       Left            =   1320
  153.       TabIndex        =   4
  154.       Top             =   360
  155.       Width           =   60
  156.    End
  157.    Begin VB.Label Label2 
  158.       AutoSize        =   -1  'True
  159.       BackStyle       =   0  'Transparent
  160.       BeginProperty Font 
  161.          Name            =   "Arial"
  162.          Size            =   9.75
  163.          Charset         =   238
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   240
  170.       Left            =   1560
  171.       TabIndex        =   3
  172.       Top             =   120
  173.       Width           =   60
  174.    End
  175.    Begin VB.Label Label1 
  176.       AutoSize        =   -1  'True
  177.       BackStyle       =   0  'Transparent
  178.       Caption         =   "Pozice kliknutφ:"
  179.       BeginProperty Font 
  180.          Name            =   "Arial"
  181.          Size            =   9.75
  182.          Charset         =   238
  183.          Weight          =   400
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   240
  189.       Left            =   120
  190.       TabIndex        =   2
  191.       Top             =   120
  192.       Width           =   1335
  193.    End
  194. End
  195. Attribute VB_Name = "Form1"
  196. Attribute VB_GlobalNameSpace = False
  197. Attribute VB_Creatable = False
  198. Attribute VB_PredeclaredId = True
  199. Attribute VB_Exposed = False
  200. Dim pohyb
  201. Dim doleva
  202.  
  203. Private Sub Command1_Click()
  204. Timer2.Interval = 31
  205. Timer3.Interval = 0
  206. Timer4.Interval = 0
  207. Timer1.Interval = 31
  208. End Sub
  209.  
  210. Private Sub Command2_Click()
  211. Timer2.Interval = 0
  212. Timer3.Interval = 31
  213. Timer1.Interval = 0
  214. Timer4.Interval = 31
  215. End Sub
  216.  
  217. Private Sub Form_Load()
  218. doleva = 672
  219. End Sub
  220.  
  221. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  222. Label2.Caption = X & " x " & Y
  223. End Sub
  224.  
  225. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  226. Label5.Caption = X & " x " & Y
  227. End Sub
  228.  
  229. Private Sub Timer1_Timer()
  230. Form1.Cls
  231. BitBlt Form1.hDC, doleva, 360, 128, 256, Picture1.hDC, pohyb, 0, vbSrcAnd
  232. BitBlt Form1.hDC, doleva, 360, 128, 256, Picture2.hDC, pohyb, 0, vbSrcPaint
  233. Form1.Refresh
  234.  
  235. End Sub
  236.  
  237. Private Sub Timer2_Timer()
  238. pohyb = pohyb + 128
  239.  
  240. If pohyb >= 3840 Then pohyb = 1
  241.  
  242. doleva = doleva - 3.3
  243.  
  244. If doleva < -128 Then doleva = 750
  245. End Sub
  246.  
  247. Private Sub Timer3_Timer()
  248. pohyb = pohyb + 128
  249.  
  250. If pohyb >= 3840 Then pohyb = 1
  251.  
  252. doleva = doleva + 3.3
  253.  
  254. If doleva > 800 Then doleva = -128
  255. End Sub
  256.  
  257. Private Sub Timer4_Timer()
  258. Form1.Cls
  259. BitBlt Form1.hDC, doleva, 360, 128, 256, Picture4.hDC, pohyb, 0, vbSrcAnd
  260. BitBlt Form1.hDC, doleva, 360, 128, 256, Picture3.hDC, pohyb, 0, vbSrcPaint
  261.  
  262. Form1.Refresh
  263. End Sub
  264.