Programming Tool Box/SIMS_2.iso/demo/btdemo/main.frm

Visual Basic Form | 1995-02-27 | 7.0 KB | 225 lines

VERSION 2.00
Begin Form MainForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "ButtonTool Demo "
   ClientHeight    =   1200
   ClientLeft      =   390
   ClientTop       =   705
   ClientWidth     =   8445
   ForeColor       =   &H0000C0C0&
   Height          =   1890
   Left            =   330
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   ScaleHeight     =   1200
   ScaleWidth      =   8445
   Top             =   75
   Width           =   8565
   Begin BTDEMOButton BTButton3
      BackColor       =   &H00404000&
      BorderColor     =   &H00404000&
      BorderThickness =   0
      ButtonDown      =   0  'No effect
      FontColor       =   &H00C0C0C0&
      Height          =   1056
      Left            =   72
      TabIndex        =   0
      Top             =   60
      Width           =   8280
      Begin BTDEMOButton BTButton2
         Prop24          =   &H00808080&
         Prop25          =   &H00E0E0E0&
         BackColor       =   &H00C0C000&
         BorderColor     =   &H00C0C000&
         BorderThickness =   0
         ButtonDown      =   0  'No effect
         FontColor       =   &H00C0C000&
         Height          =   852
         Left            =   108
         ShadowBackColor =   &H00008080&
         ShadowForeColor =   &H00008000&
         SymBackColor    =   &H00C0C000&
         SymForeColor    =   &H00808000&
         TabIndex        =   1
         Top             =   96
         Width           =   8052
         Begin BTDEMOButton BTButton1
            Prop25          =   &H00808080&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "Properties"
            FontColor       =   &H00000080&
            Height          =   612
            Index           =   5
            Left            =   6720
            SymForeColor    =   &H00007F00&
            TabIndex        =   7
            Top             =   120
            Width           =   1212
         End
         Begin BTDEMOButton BTButton1
            Prop24          =   &H0080FFFF&
            Prop25          =   &H00008080&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "Toggle"
            FontColor       =   &H00004000&
            Height          =   612
            Index           =   4
            Left            =   5400
            SymBackColor    =   &H0000C0C0&
            SymForeColor    =   &H0080FFFF&
            TabIndex        =   6
            Top             =   120
            Width           =   1212
         End
         Begin BTDEMOButton BTButton1
            Prop24          =   &H00C00000&
            Prop25          =   &H00400000&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "Shadows"
            FontColor       =   &H0000C000&
            Height          =   612
            Index           =   3
            Left            =   4080
            SymBackColor    =   &H00800000&
            SymForeColor    =   &H00C00000&
            TabIndex        =   5
            Top             =   120
            Width           =   1212
         End
         Begin BTDEMOButton BTButton1
            Prop24          =   &H00C000C0&
            Prop25          =   &H00404080&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "Graphics"
            FontColor       =   &H0000FFFF&
            Height          =   612
            Index           =   2
            Left            =   2760
            SymBackColor    =   &H00800080&
            SymForeColor    =   &H00C000C0&
            TabIndex        =   4
            Top             =   120
            Width           =   1212
         End
         Begin BTDEMOButton BTButton1
            Prop24          =   &H000000FF&
            Prop25          =   &H00000080&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "3-D"
            FontColor       =   &H00FFFFFF&
            Height          =   612
            Index           =   1
            Left            =   1440
            SymBackColor    =   &H000000C0&
            SymForeColor    =   &H000000FF&
            TabIndex        =   3
            Top             =   120
            Width           =   1212
         End
         Begin BTDEMOButton BTButton1
            Prop24          =   &H0000FF00&
            Prop25          =   &H00008000&
            Prop23          =   8
            BackColor       =   &H00000000&
            ButtonDown      =   2  'Invert 3-D colors
            Caption         =   "Symbols"
            FontColor       =   &H00C00000&
            Height          =   612
            Index           =   0
            Left            =   120
            SymBackColor    =   &H0000C000&
            SymForeColor    =   &H0000FF00&
            TabIndex        =   2
            Top             =   120
            Width           =   1212
         End
      End
   End
   Begin Menu FileMenu
      Caption         =   "&File"
      Begin Menu FielMenuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu HelpMenu
      Caption         =   "&Help"
      Begin Menu HelpMenuAbout
         Caption         =   "&About"
      End
   End
Sub BTButton1_Click (index As Integer)
    Screen.MousePointer = 11
    If (index = 0) Then
        SymForm.Show
    End If
    If (index = 1) Then
        ThreeDForm.Show
    End If
    If (index = 2) Then
        GrafForm.Show
    End If
    If (index = 3) Then
        ShadForm.Show
    End If
    If (index = 4) Then
        ToggForm.Show
    End If
    If (index = 5) Then
        MiscForm.Show
    End If
    Screen.MousePointer = 0
End Sub
Sub BTButton2_Click ()
    ThreeDForm.Show
End Sub
Sub FielMenuExit_Click ()
    End
End Sub
Sub FileMenuAbout_Click ()
    AboutForm.Show
End Sub
Sub Form_Load ()
    Screen.MousePointer = 11
    MainForm.Show
    AboutForm.Show
    MainForm.Refresh
    AboutForm.Refresh
    Screen.MousePointer = 0
End Sub
Sub HelpMenuAbout_Click ()
    Screen.MousePointer = 11
    AboutForm.Show
    Screen.MousePointer = 0
End Sub
Sub MainButton_Click (index As Integer)
    If (index = 0) Then
        SymForm.Show
    End If
    If (index = 1) Then
        ThreeDForm.Show
    End If
    If (index = 2) Then
        GrafForm.Show
    End If
    If (index = 3) Then
        ShadForm.Show
    End If
    If (index = 4) Then
        ToggForm.Show
    End If
    If (index = 5) Then
        MiscForm.Show
    End If
End Sub