home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / vb / 3ctrls / awk.frm (.txt) next >
Encoding:
Visual Basic Form  |  1993-07-12  |  4.2 KB  |  140 lines
  1. VERSION 2.00
  2. Begin Form Awk 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "AWKsome Demo"
  5.    Height          =   4245
  6.    Left            =   1155
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   3780
  9.    ScaleWidth      =   7485
  10.    Top             =   1230
  11.    Width           =   7665
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   4  'Uneven Vertically
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   2  'Raised Outlined
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   6
  21.       Caption         =   ""
  22.       CaptionPos      =   1  'Left Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       Height          =   3270
  28.       Left            =   0
  29.       Splitter        =   0  'No
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   7485
  33.       Begin ListBox List1 
  34.          Height          =   2370
  35.          Left            =   90
  36.          TabIndex        =   1
  37.          Top             =   810
  38.          Width           =   7305
  39.       End
  40.       Begin VideoSoftElastic VSElastic2 
  41.          Align           =   0  'None
  42.          AutoSizeChildren=   1  'Even Horizontally
  43.          BackColor       =   &H00C0C0C0&
  44.          BevelInner      =   3  'Inset
  45.          BevelInnerWidth =   1
  46.          BevelOuter      =   0  'None
  47.          BevelOuterWidth =   2
  48.          BorderWidth     =   6
  49.          Caption         =   ""
  50.          CaptionPos      =   1  'Left Center
  51.          ChildSpacing    =   6
  52.          FloodColor      =   &H000000C0&
  53.          FloodDirection  =   0  'None
  54.          FloodPercent    =   0
  55.          Height          =   630
  56.          Left            =   90
  57.          Splitter        =   0  'No
  58.          TabIndex        =   3
  59.          Top             =   90
  60.          Width           =   7305
  61.          Begin CommandButton Command1 
  62.             Caption         =   "Get AUTOEXEC.BAT"
  63.             Height          =   450
  64.             Index           =   1
  65.             Left            =   3690
  66.             TabIndex        =   5
  67.             Top             =   90
  68.             Width           =   3525
  69.          End
  70.          Begin CommandButton Command1 
  71.             Caption         =   "Get CONFIG.SYS"
  72.             Height          =   450
  73.             Index           =   0
  74.             Left            =   90
  75.             TabIndex        =   4
  76.             Top             =   90
  77.             Width           =   3510
  78.          End
  79.       End
  80.    End
  81.    Begin VideoSoftElastic StatusBar 
  82.       Align           =   2  'Align Bottom
  83.       AutoSizeChildren=   0  'None
  84.       BackColor       =   &H00C0C0C0&
  85.       BevelInner      =   3  'Inset
  86.       BevelInnerWidth =   1
  87.       BevelOuter      =   1  'Raised
  88.       BevelOuterWidth =   1
  89.       BorderWidth     =   6
  90.       Caption         =   ""
  91.       CaptionPos      =   4  'Center Center
  92.       ChildSpacing    =   6
  93.       FloodColor      =   &H0080FFFF&
  94.       FloodDirection  =   1  'Right
  95.       FloodPercent    =   0
  96.       Height          =   510
  97.       Left            =   0
  98.       Splitter        =   0  'No
  99.       TabIndex        =   2
  100.       Top             =   3270
  101.       Width           =   7485
  102.    End
  103.    Begin VideoSoftAwk VSAwk 
  104.       Case            =   2  'to lower
  105.       FS              =   " ="
  106.       Left            =   45
  107.       Top             =   2790
  108.    End
  109. Option Explicit
  110. Const Blank = 0
  111. Sub Command1_Click (Index%)
  112.   List1.Clear
  113.   Select Case Index
  114.     Case 0
  115.           vsawk.FileName = "c:\config.sys"
  116.     Case 1
  117.           vsawk.FileName = "c:\autoexec.bat"
  118.   End Select
  119.   ' start parsing
  120.   vsawk.Action = 0
  121. End Sub
  122. Sub Form_Resize ()
  123.   VSElastic1.Top = 0
  124. End Sub
  125. Sub VSAwk_Begin ()
  126.   mousepointer = 11
  127. End Sub
  128. Sub VSAwk_End ()
  129.   StatusBar = "FILE: " & vsawk.FileName & "    LINES: " & vsawk.RN
  130.   mousepointer = 0
  131.   StatusBar.FloodPercent = 0
  132. End Sub
  133. Sub VSAwk_Scan ()
  134.   StatusBar.FloodPercent = vsawk.PercentDone
  135.   StatusBar = Format(vsawk.PercentDone) & " %"
  136.   StatusBar.Refresh
  137.   'add scanned line to the list
  138.   List1.AddItem vsawk.F(0)
  139. End Sub
  140.