Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wg_lib/a.frm

Visual Basic Form | 1995-09-06 | 9.3 KB | 365 lines

VERSION 2.00
Begin Form MenuFrm
   BackColor       =   &H00C0C0C0&
   Caption         =   "WGLib Demo"
   ClientHeight    =   330
   ClientLeft      =   945
   ClientTop       =   2295
   ClientWidth     =   7785
   Height          =   1020
   Icon            =   A.FRX:0000
   Left            =   885
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   330
   ScaleWidth      =   7785
   Top             =   1665
   Width           =   7905
   Begin CommandButton Command3
      Caption         =   "Quit"
      Height          =   255
      Left            =   6165
      TabIndex        =   14
      Top             =   3015
      Width           =   795
   End
   Begin TextBox Text2
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Text            =   "Another Std Edit Box"
      Top             =   3000
      Width           =   2055
   End
   Begin CheckBox Check5
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk E"
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   2880
      Width           =   1215
   End
   Begin CheckBox Check4
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk D"
      Height          =   240
      Left            =   480
      TabIndex        =   4
      Top             =   2655
      Width           =   1215
   End
   Begin CommandButton Command2
      Caption         =   "Off"
      Height          =   375
      Left            =   6645
      TabIndex        =   13
      Top             =   2535
      Width           =   495
   End
   Begin CommandButton Command1
      Caption         =   "On"
      Height          =   375
      Left            =   5910
      TabIndex        =   12
      Top             =   2550
      Width           =   495
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   3435
      TabIndex        =   0
      Text            =   "Standard VB Text Box"
      Top             =   2235
      Width           =   2055
   End
   Begin CheckBox Check3
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk C"
      Height          =   255
      Left            =   480
      TabIndex        =   3
      Top             =   2040
      Width           =   1215
   End
   Begin CheckBox Check2
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk B"
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1785
      Width           =   1215
   End
   Begin CheckBox Check1
      BackColor       =   &H00C0C0C0&
      Caption         =   "VB Chk A"
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   1560
      Width           =   1215
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      Height          =   510
      Left            =   6120
      Picture         =   A.FRX:0302
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   7
      Top             =   480
      Width           =   510
   End
   Begin PictureBox Picture2
      AutoSize        =   -1  'True
      Height          =   510
      Left            =   720
      Picture         =   A.FRX:0604
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   9
      Top             =   480
      Width           =   510
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   " Subtle Embossing is   easy with WGLib!"
      Height          =   450
      Left            =   5565
      TabIndex        =   11
      Top             =   1635
      Width           =   1860
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Pseudo Frames!"
      Height          =   180
      Left            =   360
      TabIndex        =   10
      Top             =   1215
      Width           =   1425
   End
   Begin Label Label1
      BorderStyle     =   1  'Fixed Single
      Caption         =   "  All the controls on this page are     standard VB controls.                                                                       The Special Effects and labels       are by WGLib"
      Height          =   1095
      Left            =   2250
      TabIndex        =   6
      Top             =   540
      Width           =   3015
   End
   Begin Menu FILE
      Caption         =   "File I/O"
      Begin Menu FCre
         Caption         =   "Creation..."
      End
      Begin Menu FIO
         Caption         =   "Fast I/O"
      End
   End
   Begin Menu Arry
      Caption         =   "Arrays"
      Begin Menu AFnc1
         Caption         =   "Arrays (Numeric)"
      End
      Begin Menu ArryCtl
         Caption         =   "Arrays w/Controls"
      End
   End
   Begin Menu Strng
      Caption         =   "String"
      Begin Menu Isstr
         Caption         =   "Str Test"
      End
      Begin Menu miscstr
         Caption         =   "Other String"
      End
   End
   Begin Menu Sys
      Caption         =   "System"
      Begin Menu DTFns
         Caption         =   "Date and Time"
      End
      Begin Menu Eq
         Caption         =   "Equipment"
      End
      Begin Menu kbcalls
         Caption         =   "KeyBoard State"
      End
   End
   Begin Menu WAPI
      Caption         =   "WIN"
      Begin Menu winfn
         Caption         =   "WIN Environment"
      End
   End
   Begin Menu qbmisc
      Caption         =   "VB/Other"
      Begin Menu vbswap
         Caption         =   "Swaps"
      End
      Begin Menu sfx
         Caption         =   "Special Effects"
      End
      Begin Menu misc
         Caption         =   "Missing QB Goodies"
      End
   End
   Begin Menu CCtl
      Caption         =   "Controls"
      Begin Menu ccclk
         Caption         =   "Clock"
      End
      Begin Menu cckb
         Caption         =   "KBStat Control"
      End
      Begin Menu ccscr
         Caption         =   "Meters and Enh. Scroll Bars"
      End
   End
   Begin Menu ISoft
      Caption         =   "About..."
   End
DefInt A-Z
Dim FXOn As Integer
Sub AFnc1_Click ()
    MenuFrm.Hide
    ArryFrm1.Show 1
    Unload ArryFrm1
    MenuFrm.Show
End Sub
Sub ArryCtl_Click ()
    MenuFrm.Hide
    ArryCtlFrm.Show 1
    Unload ArryCtlFrm
    MenuFrm.Show
End Sub
Sub ccclk_Click ()
    MenuFrm.Hide
    CLkFrm.Show 1
    Unload CLkFrm
    MenuFrm.Show
End Sub
Sub cckb_Click ()
    MenuFrm.Hide
    KBcFrm.Show 1
    Unload KBcFrm
    MenuFrm.Show
End Sub
Sub ccscr_Click ()
    MenuFrm.Hide
    ScrFrm.Show 1
    Unload ScrFrm
    MenuFrm.Show
End Sub
Sub Command1_Click ()
    DoEffects
    Command2.SetFocus
End Sub
Sub Command2_Click ()
    Cls
    Command1.SetFocus
End Sub
Sub Command3_Click ()
    FXOn = 0
    MenuFrm.Height = 1020
    MenuFrm.Width = 7905
    Cls
End Sub
Sub DoEffects ()
    ConvexFrm MenuFrm, 6
    ConcaveCtl Label1, 5
    CtlLabelOvrFX MenuFrm, Label1, "FX on Labels!"
    ConcaveCtl Picture1, 4
    CtlLabelOvr MenuFrm, Picture1, "Concave"
    ConvexCtl Picture2, 4
    CtlLabelOvr MenuFrm, Picture2, "Convex"
    ConcaveCtl Text1, 3
    CtlLabel MenuFrm, Text1, "Plain Labels  "
    ConvexCtl Text2, 3
    CtlLabelOvrFX MenuFrm, Text2, "Labels w/FX"
    EmpressFrm MenuFrm, 1500, 360, 2370, 1800, 1
    EmbossFrm MenuFrm, 2565, 360, 3210, 1815, 1
    EmbossFrm MenuFrm, 1260, 195, 3345, 1950, 1
    Call EmFXCalc(Label4, T%, L%, B%, R%)
    EmbossFrm MenuFrm, T, L, B, R, 1
    EmbossFrm MenuFrm, 2465, 5800, 3365, 7215, 1
    Command2.SetFocus
End Sub
Sub DTFns_Click ()
    MenuFrm.Hide
    DTFrm.Show 1
    Unload DTFrm
    MenuFrm.Show
End Sub
Sub Eq_Click ()
    MenuFrm.Hide
    EQFrm.Show 1
    Unload EQFrm
    MenuFrm.Show
End Sub
Sub FCre_Click ()
    MenuFrm.Hide
    FileFrm1.Show 1
    Unload FileFrm1
    MenuFrm.Show
End Sub
Sub FIO_Click ()
    MenuFrm.Hide
    FileFrm2.Show 1
    Unload FileFrm2
    MenuFrm.Show
End Sub
Sub Form_Paint ()
    If FXOn Then DoEffects
End Sub
Sub ISoft_Click ()
    MenuFrm.Hide
    AboutFrm.Show 1
    Unload AboutFrm
    MenuFrm.Show
End Sub
Sub Isstr_Click ()
    MenuFrm.Hide
    StrFrm.Show 1
    Unload StrFrm
    MenuFrm.Show
End Sub
Sub kbcalls_Click ()
    MenuFrm.Hide
    KBFrm.Show 1
    Unload KBFrm
    MenuFrm.Show
End Sub
Sub misc_Click ()
    MenuFrm.Hide
    VarFrm.Show 1
    Unload VarFrm
    MenuFrm.Show
End Sub
Sub miscstr_Click ()
    MenuFrm.Hide
    OStrFrm.Show 1
    Unload OStrFrm
    MenuFrm.Show
End Sub
Sub sfx_Click ()
    MenuFrm.Height = 4470
    MenuFrm.Width = 7905
    FXOn = 1
    DoEffects
End Sub
Sub vbswap_Click ()
    MenuFrm.Hide
    SWFrm.Show 1
    Unload SWFrm
    MenuFrm.Show
End Sub
Sub winfn_Click ()
    MenuFrm.Hide
    WINFrm.Show 1
    Unload WINFrm
    MenuFrm.Show
End Sub