hh.frm

来自「实现图像控制,云台解码器控制,站点选择(配有Access数据库).」· FRM 代码 · 共 58 行

VERSION 5.00
Begin VB.Form FrmHelp 
   Caption         =   "帮助--主控台"
   ClientHeight    =   4575
   ClientLeft      =   2055
   ClientTop       =   2415
   ClientWidth     =   7470
   Icon            =   "HH.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4575
   ScaleWidth      =   7470
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3975
      HideSelection   =   0   'False
      Left            =   0
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   5655
   End
End
Attribute VB_Name = "FrmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim filename As String
Private Sub Form_Load()
    filename = App.Path + "\HHVC.txt"
    On Error Resume Next
    Open filename For Input As #1
    If Err Then
        MsgBox "不能打开文件: " & filename
        Err.Clear
        Exit Sub
    End If
Do While Not EOF(1) ' 检查文件尾。
    Text1.Text = Text1.Text + Input(20, 1)
Loop
    Close #1
End Sub

Private Sub Form_Resize()
    Text1.Height = ScaleHeight
    Text1.Width = ScaleWidth
End Sub