frmhelp.frm

Atmel Atmeag128 AVR弹片机 随书原码

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmHelp 
   Caption         =   "Mega Meter Help"
   ClientHeight    =   7530
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10965
   LinkTopic       =   "Form1"
   ScaleHeight     =   7530
   ScaleWidth      =   10965
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton btnStatus 
      Caption         =   "Status"
      Height          =   255
      Left            =   3000
      TabIndex        =   3
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton btnOps 
      Caption         =   "Operation"
      Height          =   255
      Left            =   1680
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton btnOverview 
      Caption         =   "Overview"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1335
   End
   Begin RichTextLib.RichTextBox rtbHelp1 
      Height          =   6855
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   10815
      _ExtentX        =   19076
      _ExtentY        =   12091
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   2
      TextRTF         =   $"frmHelp.frx":0000
   End
End
Attribute VB_Name = "frmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnAX_Click()
    LastHelp = "\mbHelpAX.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub btnOps_Click()
    LastHelp = "\mbHelpOperation.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub btnOverview_Click()
    LastHelp = "\mbHelpOverview.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub btnProtocol_Click()
    LastHelp = "\mbHelpProtocol.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub btnStatus_Click()
    LastHelp = "\mbHelpStatus.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub cmdTesting_Click()
    LastHelp = "\mbHelpTesting.rtf"
    frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub

Private Sub Form_Load()
    LastHelp = "\mbHelpOverview.rtf"
    'frmHelp.rtbHelp1.LoadFile (App.Path & LastHelp)
End Sub