frmfixed.frm

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

VERSION 5.00
Begin VB.Form frmFixed 
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "B++"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmFixed.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   213
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   StartUpPosition =   3  'Windows-Standard
   Begin VB.PictureBox PictureBox 
      Height          =   615
      Index           =   0
      Left            =   0
      ScaleHeight     =   37
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   45
      TabIndex        =   8
      Top             =   0
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.TextBox TextBox 
      Height          =   615
      Index           =   0
      Left            =   3360
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   720
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Frame Frame 
      Caption         =   "Frame1"
      Height          =   615
      Index           =   0
      Left            =   2520
      TabIndex        =   6
      Top             =   720
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.CommandButton CommandButton 
      Caption         =   "Command1"
      Height          =   615
      Index           =   0
      Left            =   2520
      TabIndex        =   5
      Top             =   0
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.CheckBox CheckBox 
      Caption         =   "Check1"
      Height          =   615
      Index           =   0
      Left            =   3360
      TabIndex        =   4
      Top             =   0
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.OptionButton OptionButton 
      Caption         =   "Option1"
      Height          =   615
      Index           =   0
      Left            =   0
      TabIndex        =   3
      Top             =   720
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.ComboBox ComboBox 
      Height          =   315
      Index           =   0
      Left            =   840
      TabIndex        =   2
      Text            =   "Combo1"
      Top             =   720
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.ListBox ListBox 
      Height          =   450
      Index           =   0
      Left            =   1680
      TabIndex        =   1
      Top             =   720
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Timer Timer 
      Index           =   0
      Left            =   0
      Top             =   1440
   End
   Begin VB.TextBox TextArea 
      Height          =   615
      Index           =   0
      Left            =   840
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "frmFixed.frx":0A02
      Top             =   0
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Label Label 
      Caption         =   "Label1"
      Height          =   615
      Index           =   0
      Left            =   1680
      TabIndex        =   9
      Top             =   0
      Visible         =   0   'False
      Width           =   735
   End
End
Attribute VB_Name = "frmFixed"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ClassicalOwner As Class
Public Owner As Class

Private Sub ExecuteEvent(ControlIndex As Integer, EventName As String, Optional P1 = "", Optional P2 = "", Optional P3 = "", Optional P4 = "", Optional P5 = "", Optional P6 = "", Optional P7 = "", Optional P8 = "")
    ToDebug "Event: CID: " & CID & " receiver: " & Owner.Name
    CID = getCID(ControlIndex, ClassicalOwner) 'Retrieve ControlID (CID)
    Owner.ExecuteVoid "event_" & CID & "_" & EventName, P1, P2, P3, P4, P5, P6, P7, P8
End Sub

Private Sub CheckBox_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub ComboBox_Change(Index As Integer)
    ExecuteEvent Index, "Change"
End Sub

Private Sub ComboBox_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub CommandButton_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub CommandButton_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    ExecuteEvent Index, "MouseMove"
End Sub

Private Sub Form_Load()
    Owner.ExecuteVoid "event_Form_Load", "", "", "", "", "", "", "", ""
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Owner.ExecuteVoid "event_Form_MouseMove", Button, Shift, X, Y, "", "", "", ""
End Sub

Private Sub Form_Resize()
    Owner.ExecuteVoid "event_Form_Resize", "", "", "", "", "", "", "", ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Owner.ExecuteVoid "event_Form_Unload", "", "", "", "", "", "", "", ""
End Sub

Private Sub Frame_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub Label_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub Label_DblClick(Index As Integer)
    ExecuteEvent Index, "DblClick"
End Sub

Private Sub Label_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    ExecuteEvent Index, "MouseMove", Button, Shift, X, Y
End Sub

Private Sub ListBox_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub ListBox_DblClick(Index As Integer)
    ExecuteEvent Index, "DblClick"
End Sub

Private Sub OptionButton_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub PictureBox_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub TextBox_Change(Index As Integer)
    ExecuteEvent Index, "Change"
End Sub

Private Sub TextBox_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub TextBox_KeyPress(Index As Integer, KeyAscii As Integer)
    ExecuteEvent Index, "KeyPress", KeyAscii
End Sub

Private Sub TextArea_Change(Index As Integer)
    ExecuteEvent Index, "Change"
End Sub

Private Sub TextArea_Click(Index As Integer)
    ExecuteEvent Index, "Click"
End Sub

Private Sub TextArea_KeyPress(Index As Integer, KeyAscii As Integer)
    ExecuteEvent Index, "KeyPress", KeyAscii
End Sub

Private Sub Timer_Timer(Index As Integer)
    ExecuteEvent Index, "Tick"
End Sub