home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Polygon_Sc171729372004.psc / frm_Polygon.frm < prev    next >
Text File  |  2004-03-08  |  3KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form frm_Polygon 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "PolygonIII"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4680
  11.    ForeColor       =   &H0000FF00&
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer tmr_Polygon 
  19.       Interval        =   20000
  20.       Left            =   0
  21.       Top             =   0
  22.    End
  23. End
  24. Attribute VB_Name = "frm_Polygon"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Option Explicit
  30. Private bMouseMoved      As Boolean
  31. Private MouseMoveInd     As Long    ' Stops small mouse moves from triggering shutdown; only a large Click&Drag will shutdown
  32.  
  33. Private Sub Form_Activate()
  34.  
  35.   ShowCursor False
  36.  
  37. End Sub
  38.  
  39. Private Sub Form_KeyPress(KeyAscii As Integer)
  40.  
  41.   bMouseMoved = True
  42.  
  43. End Sub
  44.  
  45. Private Sub Form_Load()
  46.  
  47.   If App.PrevInstance Then
  48.     End
  49.   End If
  50.   Randomize Timer
  51.   PreferenceFillList
  52.   loadInitialSettings
  53.   With frmSettings
  54.     .Move -frmSettings.Width, 0
  55.     .Show , Me
  56.   End With
  57.   Show
  58.   DoEvents
  59.   ShowCursor False
  60.   frm_Polygon.SetFocus
  61.   PolygonCreateAll
  62.   Do While Not bMouseMoved
  63.     Select Case Motion
  64.      Case 1
  65.       MoveLinear
  66.      Case 5
  67.       MoveBrownian
  68.      Case Else
  69.       If Rnd * 5 > Motion Then
  70.         MoveLinear
  71.        Else
  72.         MoveBrownian
  73.       End If
  74.     End Select
  75.     ShowShapes
  76.     DoEvents
  77.   Loop
  78.   Unload Me
  79.  
  80. End Sub
  81.  
  82. Private Sub Form_MouseMove(Button As Integer, _
  83.                            Shift As Integer, _
  84.                            X As Single, _
  85.                            Y As Single)
  86.  
  87.   If Button <> 0 Then
  88.     MouseMoveInd = MouseMoveInd + 1
  89.     If MouseMoveInd >= 5 Then
  90.       bMouseMoved = True
  91.     End If
  92.   End If
  93.  
  94. End Sub
  95.  
  96. Private Sub Form_MouseUp(Button As Integer, _
  97.                          Shift As Integer, _
  98.                          X As Single, _
  99.                          Y As Single)
  100.  
  101.   Select Case Button
  102.    Case 2
  103.     DoPreferences 3
  104.     MouseMoveInd = 0
  105.    Case 1
  106.     ShowCursor 1
  107.     If frmSettings.Left < 0 Then
  108.       frmSettings.Move 0, 0, frmSettings.Width, SettingHighSmall
  109.      Else
  110.       If SetMode = 0 Then
  111.         frmSettings.Move -frmSettings.Width, 0
  112.         frm_Polygon.SetFocus
  113.         ShowCursor False
  114.       End If
  115.     End If
  116.     MouseMoveInd = 0
  117.    Case 4
  118.     DoPreferences 4
  119.     MouseMoveInd = 0
  120.   End Select
  121.  
  122. End Sub
  123.  
  124. Private Sub Form_Unload(Cancel As Integer)
  125.  
  126.   On Error Resume Next
  127.   ShowCursor 1
  128.   Unload frmSettings
  129.   On Error GoTo 0
  130.  
  131. End Sub
  132.  
  133. Private Sub ShowShapes()
  134.  
  135.   Dim n As Long
  136.  
  137.   On Error Resume Next
  138. 'you might comment out the next line for a very different effect
  139. 'but not particularly pretty so not offered as an option
  140.   Me.Cls
  141.   For n = 1 To SCount
  142.     PolygonCycle Me, n
  143.   Next n
  144.   On Error GoTo 0
  145.  
  146. End Sub
  147.  
  148. Private Sub tmr_Polygon_Timer()
  149.  
  150.   RandomTimeShift
  151.  
  152. End Sub
  153.  
  154. ':)Roja's VB Code Fixer V1.1.93 (8/03/2004 10:16:05 AM) 3 + 119 = 122 Lines Thanks Ulli for inspiration and lots of code.
  155.  
  156.