VERSION 5.00 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "richtx32.ocx" Begin VB.Form frmEditor Caption = "Editor" ClientHeight = 3090 ClientLeft = 60 ClientTop = 345 ClientWidth = 6990 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True ScaleHeight = 3090 ScaleWidth = 6990 WindowState = 1 'Minimized Begin VB.CommandButton cmdPrint Caption = "Print" Height = 315 Left = 60 TabIndex = 1 Top = 60 Width = 915 End Begin RichTextLib.RichTextBox rtbLog Height = 2535 Left = 0 TabIndex = 0 Top = 480 Width = 4815 _ExtentX = 8493 _ExtentY = 4471 _Version = 327681 Enabled = -1 'True ScrollBars = 3 RightMargin = 1e6 TextRTF = $"frmEditor.frx":0000 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Courier New" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End End Attribute VB_Name = "frmEditor" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() Me.rtbLog.text = CStr(Now) + vbCrLf End Sub
Private Sub cmdPrint_Click() rtbLog.SelPrint (Printer.hDC) End Sub
Private Sub Form_Resize() If Me.Width > 2000 Then rtbLog.Width = Me.Width - 100 If Me.Height > 1000 Then rtbLog.Height = Me.Height - 1000 End Sub
Private Sub Form_Unload(Cancel As Integer) ' Cancel = 1 ' WindowState = vbMinimized End Sub