Visual Basic 4 Multimedia Adventure Set/Visual_Basic_4_Multimedia_Adventure_Set_Coriolis_Group_1995.iso/sharware/csrplus/curdemo.frm

Text File | 1994-06-07 | 16KB | 560 lines

VERSION 2.00
Begin Form CurDemo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "New Cursors Demonstration"
   ClientHeight    =   4515
   ClientLeft      =   1260
   ClientTop       =   2490
   ClientWidth     =   7260
   ControlBox      =   0   'False
   Height          =   5205
   Left            =   1200
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4515
   ScaleWidth      =   7260
   Top             =   1860
   Width           =   7380
   Begin CommandButton Command3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Start HourGlass"
      Height          =   375
      Left            =   2880
      TabIndex        =   14
      Top             =   3840
      Width           =   1695
   End
   Begin Timer Timer1
      Interval        =   250
      Left            =   6960
      Top             =   4320
   End
   Begin CommandButton Command2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Stop Timer Cursor"
      Height          =   375
      Left            =   5280
      TabIndex        =   12
      Top             =   3480
      Width           =   1695
   End
   Begin CheckBox Check2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Sample Check #2"
      Height          =   255
      Left            =   240
      TabIndex        =   11
      Top             =   3960
      Width           =   1815
   End
   Begin CommandButton Command1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Start Timer Cursor"
      Height          =   375
      Left            =   2880
      TabIndex        =   10
      Top             =   3480
      Width           =   1695
   End
   Begin TextBox Text2
      Height          =   1215
      Left            =   2880
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Text            =   "Type Some Text Here Too..."
      Top             =   2160
      Width           =   4095
   End
   Begin TextBox Text1
      BackColor       =   &H00FFFF00&
      Height          =   1335
      Left            =   2880
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "Type Some Text Here..."
      Top             =   720
      Width           =   4095
   End
   Begin CheckBox Check1
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Sample Check #1"
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   3480
      Width           =   2175
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Sample Frame #2"
      Height          =   1095
      Left            =   240
      TabIndex        =   6
      Top             =   2040
      Width           =   2175
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Option2"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   8
         Top             =   720
         Width           =   1815
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Option1"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   7
         Top             =   360
         Width           =   1815
      End
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Sample Frame #1"
      Height          =   1095
      Left            =   240
      TabIndex        =   3
      Top             =   720
      Width           =   2175
      Begin OptionButton Option1
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Option2"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   5
         Top             =   720
         Width           =   1815
      End
      Begin OptionButton Option1
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Option1"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   4
         Top             =   360
         Width           =   1815
      End
   End
   Begin CommandButton CmdOkay
      BackColor       =   &H00C0C0C0&
      Cancel          =   -1  'True
      Caption         =   "O &K A Y"
      Height          =   375
      Left            =   5280
      TabIndex        =   2
      Top             =   3840
      Width           =   1695
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Move the mouse to view a few of the included cursors."
      ForeColor       =   &H00000080&
      Height          =   225
      Left            =   240
      TabIndex        =   13
      Top             =   360
      Width           =   6735
   End
   Begin Menu mnuStandard
      Caption         =   "&Standard"
      Begin Menu mnuSFatArrowNE
         Caption         =   "FatArrowNE"
      End
      Begin Menu mnuSFatArrowNW
         Caption         =   "FatArrowNW"
      End
      Begin Menu mnuSFatArrowSE
         Caption         =   "FatArrowSE"
      End
      Begin Menu mnuSFatArrowSw
         Caption         =   "FatArrowSW"
      End
      Begin Menu mnuSHandPointE
         Caption         =   "HandPointE"
      End
      Begin Menu mnuSHandPointN
         Caption         =   "HandPointN"
      End
      Begin Menu mnuSHandPointS
         Caption         =   "HandPointS"
      End
      Begin Menu mnuSHandPointW
         Caption         =   "HandPointW"
      End
      Begin Menu mnuSTrekPointer
         Caption         =   "TrekPointer"
      End
   End
   Begin Menu mnuNovelty
      Caption         =   "&Novelty"
      Begin Menu mnuNCardClub
         Caption         =   "CardClub"
      End
      Begin Menu mnuNCardDiamond
         Caption         =   "CardDiamond"
      End
      Begin Menu mnuNCardHeart
         Caption         =   "CardHeart"
      End
      Begin Menu mnuNCardSpade
         Caption         =   "CardSpade"
      End
      Begin Menu mnuNDollarSign
         Caption         =   "DollarSign"
      End
      Begin Menu mnuNKey
         Caption         =   "Key"
      End
      Begin Menu mnuNMouse
         Caption         =   "Mouse"
      End
      Begin Menu mnuNSkull
         Caption         =   "Skull"
      End
      Begin Menu mnuNStar
         Caption         =   "Star"
      End
   End
   Begin Menu mnuFunctional
      Caption         =   "&Functional"
      Begin Menu mnuFContextHelp
         Caption         =   "ContextHelp"
      End
      Begin Menu mnuFCrossHair
         Caption         =   "CrossHair"
      End
      Begin Menu mnuFEyeDropper
         Caption         =   "EyeDropper"
      End
      Begin Menu mnuFMagnet
         Caption         =   "Magnet"
      End
      Begin Menu mnuFMagnifier
         Caption         =   "Magnifier"
      End
      Begin Menu mnuFPasteIt
         Caption         =   "PasteIt"
      End
      Begin Menu mnuFScissors
         Caption         =   "Scissors"
      End
      Begin Menu mnuFSprayCan
         Caption         =   "SprayCan"
      End
      Begin Menu mnuFSyringe
         Caption         =   "Syringe"
      End
   End
End
' MousePointer must be set to '0' (default)

' If you exit with the VB menu END function the
'   cursor will not unload properly; always exit
'   from within the program (even while you are
'   designing it).


Dim TimerCursor As Integer
Dim WaitType As Integer
Dim WdwCursor As String

Sub Check1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Check1.hWnd, "MagicWand")
End Sub

Sub Check2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Check2.hWnd, "StarWand")
End Sub

Sub CmdOkay_Click ()
    If Timer1.Enabled = True Then
        Timer1.Enabled = False
        ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
        End If
    Unload Me
End Sub

Sub CmdOkay_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(CmdOkay.hWnd, "CheckMark")
End Sub

Sub Command1_Click ()
    Command1.Enabled = False
    Command3.Enabled = False
    Command2.Enabled = True
    Command2.SetFocus
    WaitType = 1
    TimerCursor = 1
    Timer1.Enabled = True
End Sub

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Command1.hWnd, "Lightning")
End Sub

Sub Command2_Click ()
    Command1.Enabled = True
    Command3.Enabled = True
    Command2.Enabled = False
    Timer1.Enabled = False
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub Command2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Command2.hWnd, "Lightning")
End Sub

Sub Command3_Click ()
    Command1.Enabled = False
    Command3.Enabled = False
    Command2.Enabled = True
    Command2.SetFocus
    WaitType = 2
    TimerCursor = 1
    Timer1.Enabled = True
End Sub

Sub Command3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Command3.hWnd, "Lightning")
End Sub

Sub Form_Load ()
    Timer1.Enabled = False
    FormCenterScreen Me
    Command2.Enabled = False

    WdwCursor = "Mouse"
    OrgTextCursor = MakeCursor(Text1.hWnd, "Pencil")
    OrgCursor = MakeCursor(Me.hWnd, WdwCursor)

    Screen.MousePointer = 0
End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub Form_Paint ()
    DoForm3D Me, sunken, 1, 5
End Sub

Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    'reset cursor once for each type of object
    Timer1.Enabled = False
    RestoreCursor Me.hWnd, OrgCursor
    RestoreCursor Frame1.hWnd, OrgCursor
    RestoreCursor Option1(0).hWnd, OrgCursor
    RestoreCursor Command1.hWnd, OrgCursor
    RestoreCursor Text1.hWnd, OrgTextCursor
    RestoreCursor Check1.hWnd, OrgCursor
End Sub

Sub Frame1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Frame1.hWnd, WdwCursor)
End Sub

Sub Frame2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Frame2.hWnd, WdwCursor)
End Sub

Sub mnuFContextHelp_Click ()
    WdwCursor = "ContextHelp"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFCrossHair_Click ()
    WdwCursor = "CrossHair"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFEyeDropper_Click ()
    WdwCursor = "EyeDropper"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFMagnet_Click ()
    WdwCursor = "Magnet"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFMagnifier_Click ()
    WdwCursor = "Magnifier"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFPasteIt_Click ()
    WdwCursor = "PasteIt"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFScissors_Click ()
    WdwCursor = "Scissors"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFSprayCan_Click ()
    WdwCursor = "SprayCan"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuFSyringe_Click ()
    WdwCursor = "Syringe"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNCardClub_Click ()
    WdwCursor = "CardClub"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNCardDiamond_Click ()
    WdwCursor = "CardDiamond"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNCardHeart_Click ()
    WdwCursor = "CardHeart"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNCardSpade_Click ()
    WdwCursor = "CardSpade"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNDollarSign_Click ()
    WdwCursor = "DollarSign"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNKey_Click ()
    WdwCursor = "Key"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNMouse_Click ()
    WdwCursor = "Mouse"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNovelty_Click ()
    WdwCursor = "Novelty"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNSkull_Click ()
    WdwCursor = "Skull"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuNStar_Click ()
    WdwCursor = "Star"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSFatArrowNE_Click ()
    WdwCursor = "FatArrowNE"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSFatArrowNW_Click ()
    WdwCursor = "FatArrowNW"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSFatArrowSE_Click ()
    WdwCursor = "FatArrowSE"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSFatArrowSw_Click ()
    WdwCursor = "FatArrowSW"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSHandPointE_Click ()
    WdwCursor = "HandPointE"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSHandPointN_Click ()
    WdwCursor = "HandPointN"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSHandPointS_Click ()
    WdwCursor = "HandPointS"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSHandPointW_Click ()
    WdwCursor = "HandPointW"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub mnuSTrekPointer_Click ()
    WdwCursor = "TrekPointer"
    ThisCursor& = MakeCursor(Me.hWnd, WdwCursor)
End Sub

Sub Option1_MouseMove (index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Option1(index).hWnd, "DartNW")
End Sub

Sub Option2_MouseMove (index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Option2(index).hWnd, "DartSW")
End Sub

Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Text1.hWnd, "Pencil")
End Sub

Sub Text2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Timer1.Enabled = True Then Exit Sub
    ThisCursor& = MakeCursor(Text2.hWnd, "FountainPen")
End Sub

Sub Timer1_Timer ()
    If WaitType = 1 Then
        TheCursor$ = "Timer" + Format$(TimerCursor, "#")
        WaitMax% = 8
        Else
        TheCursor$ = "HourGlass" + Format$(TimerCursor, "#")
        WaitMax% = 7
        End If
    For i = 2 To 14 'Exclude MainForm and Menu Items
        ThisCursor& = MakeCursor(Me.Controls(i).hWnd, TheCursor$)
        Next i
    ThisCursor& = MakeSysCursor(Me.hWnd, TheCursor$)
    TimerCursor = TimerCursor + 1
    If TimerCursor > WaitMax% Then TimerCursor = 1
End Sub