home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6451652000.psc / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-05  |  6.2 KB  |  215 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    ClientHeight    =   1740
  4.    ClientLeft      =   6285
  5.    ClientTop       =   525
  6.    ClientWidth     =   5820
  7.    Icon            =   "Form1.frx":0000
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1740
  10.    ScaleWidth      =   5820
  11.    Visible         =   0   'False
  12.    Begin VB.Timer Timer2 
  13.       Interval        =   100
  14.       Left            =   2700
  15.       Top             =   1020
  16.    End
  17.    Begin VB.PictureBox pic 
  18.       AutoRedraw      =   -1  'True
  19.       AutoSize        =   -1  'True
  20.       BackColor       =   &H80000009&
  21.       Height          =   600
  22.       Index           =   3
  23.       Left            =   5160
  24.       Picture         =   "Form1.frx":030A
  25.       ScaleHeight     =   540
  26.       ScaleWidth      =   480
  27.       TabIndex        =   9
  28.       Top             =   120
  29.       Width           =   540
  30.    End
  31.    Begin VB.PictureBox mask 
  32.       AutoRedraw      =   -1  'True
  33.       AutoSize        =   -1  'True
  34.       BackColor       =   &H80000008&
  35.       Height          =   600
  36.       Index           =   3
  37.       Left            =   4440
  38.       Picture         =   "Form1.frx":10CC
  39.       ScaleHeight     =   540
  40.       ScaleWidth      =   480
  41.       TabIndex        =   8
  42.       Top             =   120
  43.       Width           =   540
  44.    End
  45.    Begin VB.PictureBox pic 
  46.       AutoRedraw      =   -1  'True
  47.       AutoSize        =   -1  'True
  48.       BackColor       =   &H80000009&
  49.       Height          =   600
  50.       Index           =   2
  51.       Left            =   3720
  52.       Picture         =   "Form1.frx":1E8E
  53.       ScaleHeight     =   540
  54.       ScaleWidth      =   480
  55.       TabIndex        =   7
  56.       Top             =   120
  57.       Width           =   540
  58.    End
  59.    Begin VB.PictureBox mask 
  60.       AutoRedraw      =   -1  'True
  61.       AutoSize        =   -1  'True
  62.       BackColor       =   &H80000008&
  63.       Height          =   600
  64.       Index           =   2
  65.       Left            =   3000
  66.       Picture         =   "Form1.frx":2C50
  67.       ScaleHeight     =   540
  68.       ScaleWidth      =   480
  69.       TabIndex        =   6
  70.       Top             =   120
  71.       Width           =   540
  72.    End
  73.    Begin VB.PictureBox mask 
  74.       AutoRedraw      =   -1  'True
  75.       AutoSize        =   -1  'True
  76.       BackColor       =   &H80000008&
  77.       Height          =   600
  78.       Index           =   1
  79.       Left            =   1560
  80.       Picture         =   "Form1.frx":3A12
  81.       ScaleHeight     =   540
  82.       ScaleWidth      =   480
  83.       TabIndex        =   5
  84.       Top             =   120
  85.       Width           =   540
  86.    End
  87.    Begin VB.PictureBox pic 
  88.       AutoRedraw      =   -1  'True
  89.       AutoSize        =   -1  'True
  90.       BackColor       =   &H80000009&
  91.       Height          =   600
  92.       Index           =   1
  93.       Left            =   2280
  94.       Picture         =   "Form1.frx":47D4
  95.       ScaleHeight     =   540
  96.       ScaleWidth      =   480
  97.       TabIndex        =   4
  98.       Top             =   120
  99.       Width           =   540
  100.    End
  101.    Begin VB.PictureBox back 
  102.       AutoRedraw      =   -1  'True
  103.       Height          =   735
  104.       Left            =   1085
  105.       ScaleHeight     =   675
  106.       ScaleWidth      =   675
  107.       TabIndex        =   3
  108.       Top             =   840
  109.       Width           =   735
  110.    End
  111.    Begin VB.Timer Timer1 
  112.       Interval        =   1
  113.       Left            =   2050
  114.       Top             =   1020
  115.    End
  116.    Begin VB.PictureBox buffer 
  117.       AutoRedraw      =   -1  'True
  118.       AutoSize        =   -1  'True
  119.       Height          =   735
  120.       Left            =   120
  121.       ScaleHeight     =   675
  122.       ScaleWidth      =   675
  123.       TabIndex        =   2
  124.       Top             =   840
  125.       Width           =   735
  126.    End
  127.    Begin VB.PictureBox pic 
  128.       AutoRedraw      =   -1  'True
  129.       AutoSize        =   -1  'True
  130.       BackColor       =   &H80000009&
  131.       Height          =   600
  132.       Index           =   0
  133.       Left            =   840
  134.       Picture         =   "Form1.frx":5596
  135.       ScaleHeight     =   540
  136.       ScaleWidth      =   480
  137.       TabIndex        =   1
  138.       Top             =   120
  139.       Width           =   540
  140.    End
  141.    Begin VB.PictureBox mask 
  142.       AutoRedraw      =   -1  'True
  143.       AutoSize        =   -1  'True
  144.       BackColor       =   &H80000008&
  145.       Height          =   600
  146.       Index           =   0
  147.       Left            =   120
  148.       Picture         =   "Form1.frx":6358
  149.       ScaleHeight     =   540
  150.       ScaleWidth      =   480
  151.       TabIndex        =   0
  152.       Top             =   120
  153.       Width           =   540
  154.    End
  155.    Begin VB.Menu menMenu 
  156.       Caption         =   "Menu"
  157.       Begin VB.Menu memPopUp 
  158.          Caption         =   "Close"
  159.       End
  160.       Begin VB.Menu s 
  161.          Caption         =   "-"
  162.       End
  163.       Begin VB.Menu menAbout 
  164.          Caption         =   "About"
  165.       End
  166.    End
  167. Attribute VB_Name = "Form1"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Private Sub Form_Load()
  173. AddSysTrayIcon Form1, "Click here for Fly Options."
  174. firsttime = True
  175. buff = Form1.buffer.hdc 'picture buffer
  176. hwnddesk = GetDesktopWindow()
  177. bg = GetWindowDC(hwnddesk)
  178. pback = Form1.back.hdc
  179. posX = 50: posY = 50
  180. picWidth = pic(0).Width         ' globally set the picture widths.
  181. picHeight = pic(0).Height
  182. ind = 0
  183. End Sub
  184. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  185. Dim msg As Long
  186. Dim sFilter As String
  187. msg = X / Screen.TwipsPerPixelX
  188. Select Case msg
  189.     Case WM_LBUTTONDOWN
  190.     Case WM_LBUTTONUP
  191.     Case WM_LBUTTONDBLCLK
  192.     Case WM_RBUTTONDOWN
  193.         PopupMenu Form1.menMenu
  194.     Case WM_RBUTTONUP
  195.     Case WM_RBUTTONDBLCLK
  196. End Select
  197. End Sub
  198. Private Sub memPopUp_Click()
  199. End Sub
  200. Private Sub menAbout_Click()
  201. MsgBox "About Box Goes Here!"
  202. End Sub
  203. Private Sub Timer1_Timer()
  204. cycle
  205. End Sub
  206. Private Sub Timer2_Timer()
  207. randFly = Int(Rnd * 50)
  208. Select Case randFly                 ' just stop the fly randomly.  Like they do!
  209. Case 25, 4
  210.     Timer1.Enabled = False
  211. Case 5, 10, 15, 20, 30, 35
  212.     Timer1.Enabled = True
  213. End Select
  214. End Sub
  215.