home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / parsed / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-04  |  2.5 KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    Caption         =   "Parse Demo Main Menu"
  4.    ClientHeight    =   3240
  5.    ClientLeft      =   1470
  6.    ClientTop       =   1725
  7.    ClientWidth     =   6960
  8.    Height          =   3675
  9.    Icon            =   MAIN.FRX:0000
  10.    Left            =   1395
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3240
  13.    ScaleWidth      =   6960
  14.    Top             =   1365
  15.    Width           =   7110
  16.    Begin CommandButton cmdAbout 
  17.       Caption         =   "&About"
  18.       Height          =   375
  19.       Left            =   5520
  20.       TabIndex        =   3
  21.       Top             =   2640
  22.       Width           =   1215
  23.    End
  24.    Begin CommandButton cmdExit 
  25.       Caption         =   "E&xit"
  26.       FontBold        =   -1  'True
  27.       FontItalic      =   0   'False
  28.       FontName        =   "MS Sans Serif"
  29.       FontSize        =   9.75
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       Height          =   495
  33.       Left            =   1800
  34.       TabIndex        =   2
  35.       Top             =   1860
  36.       Width           =   3315
  37.    End
  38.    Begin CommandButton cmdDelim 
  39.       Caption         =   "&Multiple Character Delimiter Parsing"
  40.       FontBold        =   -1  'True
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   9.75
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       Height          =   495
  47.       Left            =   1140
  48.       TabIndex        =   1
  49.       Top             =   1200
  50.       Width           =   4755
  51.    End
  52.    Begin CommandButton cmdParse 
  53.       Caption         =   "&Parse / Process Text"
  54.       FontBold        =   -1  'True
  55.       FontItalic      =   0   'False
  56.       FontName        =   "MS Sans Serif"
  57.       FontSize        =   9.75
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   495
  61.       Left            =   1860
  62.       TabIndex        =   0
  63.       Top             =   540
  64.       Width           =   3315
  65.    End
  66. Option Explicit
  67. Sub cmdAbout_Click ()
  68.     Dim x%
  69.     x% = Shell("notepad " & App.Path & "\parseme2.txt", 3)
  70. End Sub
  71. Sub cmdDelim_Click ()
  72.     Me.WindowState = MINIMIZED
  73.     Screen.MousePointer = HOURGLASS
  74.     SetfrmSelect "", FLG_MULTIDELIM
  75. End Sub
  76. Sub cmdExit_Click ()
  77.     EndProg
  78. End Sub
  79. Sub cmdParse_Click ()
  80.     Me.WindowState = MINIMIZED
  81.     SetfrmSelect "", FLG_PROCPARSE
  82. End Sub
  83.