Form_help.frm
上传用户:ask_sh
上传日期:2008-08-18
资源大小:550k
文件大小:2k
- VERSION 5.00
- Begin VB.Form Form_help
- Caption = "help"
- ClientHeight = 7290
- ClientLeft = 4050
- ClientTop = 3225
- ClientWidth = 8430
- LinkTopic = "Form1"
- ScaleHeight = 7290
- ScaleWidth = 8430
- Begin VB.CommandButton cClear
- Caption = "&Clear"
- Height = 495
- Left = 1320
- TabIndex = 2
- Top = 6720
- Visible = 0 'False
- Width = 1215
- End
- Begin VB.CommandButton Command1
- Caption = "C&lose"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 6000
- TabIndex = 1
- Top = 6720
- Width = 1215
- End
- Begin VB.TextBox Text1
- Alignment = 2 'Center
- Height = 6495
- Left = 240
- Locked = -1 'True
- MultiLine = -1 'True
- ScrollBars = 3 'Both
- TabIndex = 0
- Top = 120
- Width = 7935
- End
- End
- Attribute VB_Name = "Form_help"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cClear_Click()
- Close #1
- Open "Error record.txt" For Output As #1
- Print #1, ""
-
- Form_help.Text1 = ""
- End Sub
- Private Sub Command1_Click()
- Form_help.Hide
- cClear.Visible = False
- Close #1
-
- End Sub
- Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = 27 Then
- Form_help.Hide
- End If
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Close
- End Sub
- Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = 27 Then
- Form_help.Hide
- End If
- End Sub