Power-Programmierung/CD1.mdf/basic/library/vb/action/animate1.frm

Visual Basic Form | 1994-06-12 | 6.1 KB | 192 lines

VERSION 2.00
Begin Form Animate1
   Caption         =   "Animate1"
   Height          =   3375
   Icon            =   ANIMATE1.FRX:0000
   Left            =   1920
   LinkTopic       =   "Form1"
   ScaleHeight     =   2685
   ScaleWidth      =   5430
   Top             =   1515
   Width           =   5550
   Begin AniPushButton AniButton2
      Caption         =   "Copier"
      ClearFirst      =   -1  'True
      ClickFilter     =   1  'Text or Picture
      Height          =   915
      Left            =   4200
      PictDrawMode    =   1  'Autosize control
      Picture         =   ANIMATE1.FRX:0302
      TabIndex        =   10
      TextPosition    =   4  'Below
      Top             =   240
      Width           =   720
   End
   Begin CommandButton cmdMouseClick
      Caption         =   "&MouseClick"
      Height          =   495
      Left            =   2040
      TabIndex        =   6
      Top             =   1920
      Width           =   1215
   End
   Begin CommandButton cmdExit
      Caption         =   "&Exit"
      Height          =   375
      Left            =   4200
      TabIndex        =   2
      Top             =   2160
      Width           =   975
   End
   Begin Frame fraCycle
      Caption         =   "Cycle"
      Height          =   1455
      Left            =   1560
      TabIndex        =   1
      Top             =   240
      Width           =   2055
      Begin OptionButton optAniCycle
         Caption         =   "2-State Animated"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   5
         Top             =   1080
         Width           =   1815
      End
      Begin OptionButton optAniCycle
         Caption         =   "Multi-State"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   4
         Top             =   720
         Width           =   1575
      End
      Begin OptionButton optAniCycle
         Caption         =   "Animated"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   1575
      End
   End
   Begin AniPushButton AniButton1
      Caption         =   "Moon"
      Cycle           =   1  'By frame
      Height          =   675
      Left            =   600
      PictDrawMode    =   1  'Autosize control
      Picture         =   ANIMATE1.FRX:3942
      TabIndex        =   0
      TextPosition    =   4  'Below
      Top             =   480
      Width           =   510
   End
   Begin Label lblCopierFrameNumber
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   4680
      TabIndex        =   12
      Top             =   1680
      Width           =   270
   End
   Begin Label lblCopierText
      AutoSize        =   -1  'True
      Caption         =   "Copier Frame Number"
      Height          =   495
      Left            =   3720
      TabIndex        =   11
      Top             =   1440
      Width           =   1455
      WordWrap        =   -1  'True
   End
   Begin Label lblMoonPictureNumber
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   1080
      TabIndex        =   9
      Top             =   1560
      Width           =   255
   End
   Begin Label Label2
      AutoSize        =   -1  'True
      Caption         =   "Moon Frame Number"
      Height          =   510
      Left            =   240
      TabIndex        =   8
      Top             =   1320
      Width           =   1110
      WordWrap        =   -1  'True
   End
   Begin Label Label1
      Caption         =   "Click on Moon or Copier or &MouseClick to RUN both...."
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   0
      Width           =   4815
   End
   Begin Menu menuHelp
      Caption         =   "&Help"
   End
Option Explicit
Sub AniButton1_Click ()
    'Animate1.AniButton1.Frame = Animate1.AniButton1.Picture
    lblMoonPictureNumber = Animate1.AniButton1.Value
    lblCopierFrameNumber = Animate1.AniButton2.Value
End Sub
Sub AniButton1_GotFocus ()
    lblMoonPictureNumber = Animate1.AniButton1.Value
    lblCopierFrameNumber = Animate1.AniButton2.Value
End Sub
Sub AniButton2_Click ()
        lblCopierFrameNumber = Animate1.AniButton2.Value
End Sub
Sub AniButton2_GotFocus ()
    lblCopierFrameNumber = Animate1.AniButton2.Value
End Sub
Sub cmdExit_Click ()
    'exit program
    End
End Sub
Sub cmdMouseClick_Click ()
    'Stop
    'need the command that activates the animation as
    'AniButton1_Click doesn't do it
    Animate1.AniButton1.SpecialOp = 1
    Animate1.AniButton2.SpecialOp = 1
    'need the frame that is being displayed
    lblMoonPictureNumber = Animate1.AniButton1.Value
    lblCopierFrameNumber = Animate1.AniButton2.Value
End Sub
Sub Form_Load ()
    Left = (screen.Width - Width) \ 2
    Top = (screen.Height - Height) \ 3
    ' make option buttons reflect
    ' animated button cycle
    optAniCycle(AniButton1.Cycle) = 1
    'optAniCycle(AniButton2.Cycle) = 1
End Sub
Sub fraCycle_DragDrop (Source As Control, X As Single, Y As Single)
'Stop
End Sub
Sub menuHelp_Click ()
    Dim LF$, Msg$
    LF$ = Chr$(13) + Chr$(10)
    Msg$ = Msg$ + "Click on -Either- Graphic or ""MouseChange"" to RUN the Program." + LF$ + LF$
    Msg$ = Msg$ + "Change the Option Box settings to test each state. The ""Animated"" Check Box may give incorrect Frame numbers... but NOT all the time...." + LF$ + LF$
    Msg$ = Msg$ + "John De Palma on CompuServe 76076,571"
    MsgBox Msg$, 64, "Brief Animation Help"
End Sub
Sub optAniCycle_Click (Index As Integer)
    ' change animated button's cycle
    '   to reflect selected push button
    AniButton1.Cycle = Index
    AniButton2.Cycle = Index
End Sub