frmresult.frm

编译原理课程设计用vb编写

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmResult 
   Caption         =   "控制台"
   ClientHeight    =   3210
   ClientLeft      =   4350
   ClientTop       =   855
   ClientWidth     =   7185
   Icon            =   "frmResult.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3210
   ScaleWidth      =   7185
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   5160
      Top             =   1440
   End
   Begin RichTextLib.RichTextBox txtResult 
      Height          =   1095
      Left            =   1800
      TabIndex        =   0
      Top             =   1080
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   1931
      _Version        =   393217
      BackColor       =   -2147483642
      ReadOnly        =   -1  'True
      ScrollBars      =   3
      Appearance      =   0
      TextRTF         =   $"frmResult.frx":06EA
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu 控制 
      Caption         =   "程序控制(&C)"
      Begin VB.Menu 暂停 
         Caption         =   "暂停(&P)"
      End
      Begin VB.Menu 结束 
         Caption         =   "结束(&X)"
      End
   End
End
Attribute VB_Name = "frmResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub Append(ByVal s As String)
    Static a As Integer
    txtResult.Text = txtResult.Text & s
    If a = 0 Then
        txtResult.SelStart = 0
        txtResult.SelLength = Len(txtResult.Text)
        txtResult.SelColor = vbWhite
        a = 1
    End If
    txtResult.SelStart = Len(txtResult)
End Sub

Public Function InputWindow(ByVal info As String)
    n = ""
    While n = ""
        n = InputBox(info, "数据输入")
    Wend
    InputWindow = n
End Function

Public Function StopWindow()
    frmVars.Show 1
End Function

Public Sub Clear()
    txtResult.Text = ""
End Sub

Private Sub Form_Resize()
    With txtResult
        .Top = 0
        .Left = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.Hide
    Cancel = 1
    Unload frmVars
End Sub

Private Sub Timer1_Timer()
    If InStr(Me.Caption, "中止") > 0 Then
        暂停.Enabled = False
    Else
        暂停.Enabled = True
    End If
End Sub

Private Sub 结束_Click()
    Me.Hide
End Sub

Private Sub 暂停_Click()
    runFlag = False
End Sub