Form_help.frm
上传用户:ask_sh
上传日期:2008-08-18
资源大小:550k
文件大小:2k
源码类别:

电子政务应用

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form Form_help 
  3.    Caption         =   "help"
  4.    ClientHeight    =   7290
  5.    ClientLeft      =   4050
  6.    ClientTop       =   3225
  7.    ClientWidth     =   8430
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   7290
  10.    ScaleWidth      =   8430
  11.    Begin VB.CommandButton cClear 
  12.       Caption         =   "&Clear"
  13.       Height          =   495
  14.       Left            =   1320
  15.       TabIndex        =   2
  16.       Top             =   6720
  17.       Visible         =   0   'False
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "C&lose"
  22.       BeginProperty Font 
  23.          Name            =   "宋体"
  24.          Size            =   12
  25.          Charset         =   134
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   495
  32.       Left            =   6000
  33.       TabIndex        =   1
  34.       Top             =   6720
  35.       Width           =   1215
  36.    End
  37.    Begin VB.TextBox Text1 
  38.       Alignment       =   2  'Center
  39.       Height          =   6495
  40.       Left            =   240
  41.       Locked          =   -1  'True
  42.       MultiLine       =   -1  'True
  43.       ScrollBars      =   3  'Both
  44.       TabIndex        =   0
  45.       Top             =   120
  46.       Width           =   7935
  47.    End
  48. End
  49. Attribute VB_Name = "Form_help"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Private Sub cClear_Click()
  55.     Close #1
  56.     Open "Error record.txt" For Output As #1
  57.     Print #1, ""
  58.     
  59.     Form_help.Text1 = ""
  60. End Sub
  61. Private Sub Command1_Click()
  62.  Form_help.Hide
  63.  cClear.Visible = False
  64.  Close #1
  65.  
  66. End Sub
  67. Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  68.     If KeyCode = 27 Then
  69.         Form_help.Hide
  70.     End If
  71. End Sub
  72. Private Sub Form_Unload(Cancel As Integer)
  73. Close
  74. End Sub
  75. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  76.     If KeyCode = 27 Then
  77.        Form_help.Hide
  78.     End If
  79. End Sub