frmframework.frm

用VB实现的编译器的源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmFramework 
   BorderStyle     =   4  'Festes Werkzeugfenster
   Caption         =   "Framework Class Browser"
   ClientHeight    =   4815
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   6750
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmFramework.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4815
   ScaleWidth      =   6750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows-Standard
   Begin VB.Timer tmrFore 
      Enabled         =   0   'False
      Interval        =   2000
      Left            =   2520
      Top             =   2640
   End
   Begin MSComctlLib.ImageList imlIcons 
      Left            =   3360
      Top             =   1920
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmFramework.frx":000C
            Key             =   "Class"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmFramework.frx":05A6
            Key             =   "Property"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmFramework.frx":5D98
            Key             =   "Method"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView tvBrowser 
      Height          =   4785
      Left            =   4680
      TabIndex        =   0
      Top             =   0
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   8440
      _Version        =   393217
      Indentation     =   178
      LabelEdit       =   1
      Style           =   3
      ImageList       =   "imlIcons"
      Appearance      =   1
   End
   Begin VB.ListBox lstList 
      Height          =   4785
      ItemData        =   "frmFramework.frx":6332
      Left            =   0
      List            =   "frmFramework.frx":6345
      Style           =   1  'Kontrollk鋝tchen
      TabIndex        =   1
      Top             =   0
      Width           =   4695
   End
End
Attribute VB_Name = "frmFramework"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private EW As frmEditor
Private Prepared As Boolean

Property Get Owner() As frmEditor
    Set Owner = EW
End Property

Property Set Owner(Setting As frmEditor)
    Set EW = Setting
    If InStr(LCase(EW.rtfCode.Text), "include fxarrays.bis") Then lstList.Selected(0) = True
    If InStr(LCase(EW.rtfCode.Text), "include fxlocalio.bis") Then lstList.Selected(1) = True
    If InStr(LCase(EW.rtfCode.Text), "include fxremoteio.bis") Then lstList.Selected(2) = True
    If InStr(LCase(EW.rtfCode.Text), "include fxturtle.bis") Then lstList.Selected(3) = True
    If InStr(LCase(EW.rtfCode.Text), "include fxvariables.bis") Then lstList.Selected(4) = True
    lstList.ListIndex = 0
    Prepared = True
End Property

Private Sub lstList_ItemCheck(Item As Integer)
    Dim LNE As String, CurrentClass
    On Error Resume Next
    tvBrowser.Nodes.Clear
    Open App.Path & "\" & lstList.List(Item) For Input As #1
        Do Until EOF(1)
            Line Input #1, LNE
            LNE = Trim(LNE)
            If Left(LNE, 5) = "class" Then
                tvBrowser.Nodes.Add , , Mid(LNE, 7), Mid(LNE, 7), "Class"
                CurrentClass = Mid(LNE, 7)
                tvBrowser.Nodes(CurrentClass).Expanded = True
            ElseIf Left(LNE, 8) = "variable" Then
                 tvBrowser.Nodes.Add CurrentClass, tvwChild, , Mid(LNE, 10), "Property"
            ElseIf Left(LNE, 6) = "method" Then
                D = Split(LNE, " ")
                If D(1) = "void" Or D(1) = "function" Then
                    tvBrowser.Nodes.Add CurrentClass, tvwChild, , D(2), "Method"
                End If
            End If
        Loop
    Close #1
    If Prepared = False Then Exit Sub
    If lstList.Selected(Item) = False Then
        EW.rtfCode.Text = Replace(EW.rtfCode.Text, "include " & lstList.List(Item) & vbCrLf, "")
        EW.tmrRecolor.Enabled = True
    Else
        If InStr(EW.rtfCode.Text, vbCrLf) Then
            EW.rtfCode.SelStart = InStr(EW.rtfCode.Text, vbCrLf) + 1
        Else
            EW.rtfCode.SelStart = 1
        End If
        EW.rtfCode.SelText = "include " & lstList.List(Item) & vbCrLf
        EW.tmrRecolor.Enabled = True
    End If
    tmrFore.Enabled = True
End Sub

Private Sub tmrFore_Timer()
    Me.SetFocus
    tmrFore.Enabled = False
End Sub