Commit | Line | Data |
b31da37a |
1 | VERSION 4.00\r |
2 | Begin VB.Form ScriptOut \r |
3 | BorderStyle = 3 'Fixed Dialog\r |
4 | Caption = "Script Output"\r |
5 | ClientHeight = 4575\r |
6 | ClientLeft = 480\r |
7 | ClientTop = 1275\r |
8 | ClientWidth = 9615\r |
9 | Height = 4980\r |
10 | Icon = "ScriptOut.frx":0000\r |
11 | Left = 420\r |
12 | LinkTopic = "Form1"\r |
13 | MaxButton = 0 'False\r |
14 | MinButton = 0 'False\r |
15 | ScaleHeight = 4575\r |
16 | ScaleWidth = 9615\r |
17 | ShowInTaskbar = 0 'False\r |
18 | Top = 930\r |
19 | Width = 9735\r |
20 | Begin VB.TextBox oText \r |
21 | BackColor = &H8000000F&\r |
22 | BorderStyle = 0 'None\r |
23 | BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} \r |
24 | Name = "Terminal"\r |
25 | Size = 9\r |
26 | Charset = 255\r |
27 | Weight = 400\r |
28 | Underline = 0 'False\r |
29 | Italic = 0 'False\r |
30 | Strikethrough = 0 'False\r |
31 | EndProperty\r |
32 | Height = 4575\r |
33 | Left = 0\r |
34 | Locked = -1 'True\r |
35 | MultiLine = -1 'True\r |
36 | TabIndex = 0\r |
37 | Top = 0\r |
38 | Width = 9615\r |
39 | End\r |
40 | End\r |
41 | Attribute VB_Name = "ScriptOut"\r |
42 | Attribute VB_Creatable = False\r |
43 | Attribute VB_Exposed = False\r |
44 | Option Explicit\r |
45 | \r |
46 | Private Sub Form_Load()\r |
47 | Left = (Screen.Width - Width) / 2\r |
48 | Top = (Screen.Height - Height) / 2\r |
49 | End Sub\r |
50 | Private Sub oText_Change()\r |
51 | If Len(oText) > 8192 Then oText = Right(oText, 8192)\r |
52 | End Sub\r |