frmuserhelp.frm

完整的VB和单片机系统连接的源代码

VERSION 5.00
Begin VB.Form frmUserHelp 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "使用帮助"
   ClientHeight    =   5685
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   10020
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5685
   ScaleWidth      =   10020
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Height          =   375
      Left            =   4560
      TabIndex        =   1
      Top             =   5280
      Width           =   855
   End
   Begin VB.TextBox txtUserHelp 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5055
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "frmUserHelp.frx":0000
      Top             =   120
      Width           =   9735
   End
End
Attribute VB_Name = "frmUserHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
    Unload Me
End Sub




Sub LoadUserHelpText()
    Dim sShow As String   ' 从文件中读出的每条提示。
    Dim s As String
    ' 包含下一个自由文件描述符。
    
    ' 在打开前确保文件存在。
    If Dir(fnHelpFile) = "" Then
        MsgBox "帮助文件" & fnHelpFile & "不存在。"
        Exit Sub
        Unload Me
    End If
    
    Open fnHelpFile For Binary As 1
       sShow = Space(LOF(1))
    Get 1, , sShow
    Close 1


    txtUserHelp.Text = sShow
End Sub

Private Sub Form_Load()
    Call LoadUserHelpText
End Sub