VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form5 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "幫助主題"
   ClientHeight    =   6645
   ClientLeft      =   4065
   ClientTop       =   2070
   ClientWidth     =   7110
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6645
   ScaleWidth      =   7110
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "退  出"
      Height          =   375
      Left            =   6120
      TabIndex        =   1
      Top             =   6240
      Width           =   855
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   6255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   11033
      _Version        =   393217
      BackColor       =   12640511
      Enabled         =   -1  'True
      ScrollBars      =   2
      MousePointer    =   1
      TextRTF         =   $"Form5.frx":0742
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Form5
End Sub

Private Sub Form_Load()
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4, ss5, ss6 As String

ss1 = "  1、使用時，用戶需要先啟動與組態王的連接，可以控制與哪臺計算機的組態王進行連接。" + Chr(13) + Chr(10) + "  2、用戶可以對項目名直接輸入，變量名稱+“.”+域名稱。也可以通過選擇列表中的項來選擇。如變量名為“汽包壓力”，如果用戶需要讀取它的值，用戶合成項目名稱是“汽包壓力.Value”，Value是變量的數值域。" + Chr(13) + Chr(10)
ss2 = "  3、當用戶選擇或輸入了項目名后，將其加入到數據采集表中。然后程序自動采集數據，用戶也可對讀寫型的變量進行寫操作。" + Chr(13) + Chr(10)
ss3 = "  4、用戶可以修改數據采集的頻率。" + Chr(13) + Chr(10) + "  5、程序退出之前，請務必先斷開與服務器的連接。" + Chr(13) + Chr(10)
ss4 = "  6、***************錯誤碼表***************" + Chr(13) + Chr(10) + "     0    成功" + Chr(13) + Chr(10) + "    -1    OPC SERVER已經被非法關閉" + Chr(13) + Chr(10) + "    -2    找不到OPC SERVER的ID" + Chr(13) + Chr(10) + "    -3    連接OPC SERVER不成功" + Chr(13) + Chr(10)
ss5 = "    -4    枚舉ITEMS錯誤" + Chr(13) + Chr(10) + "    -5    OPC SERVER沒有定義ITEMS" + Chr(13) + Chr(10) + "    -6    內存分配錯誤" + Chr(13) + Chr(10) + "    -7    在向列中加入ITEMS時出現錯誤" + Chr(13) + Chr(10) + "    -9    讀ITEMS時出現錯誤" + Chr(13) + Chr(10) + "    -10   不能識別的數據類型" + Chr(13) + Chr(10)
ss6 = "    -11   讀ITEMS的質量戳時出現錯誤" + Chr(13) + Chr(10) + "    -12   向ITEMS中寫入數據時出現錯誤" + Chr(13) + Chr(10) + "    -13   用戶添加變量的變量名錯誤" + Chr(13) + Chr(10) + "    -14   用戶讀取的變量序號越界" + Chr(13) + Chr(10) + " " + Chr(13) + Chr(10) + "        蔡利平"
RichTextBox1.Text = ss1 + ss2 + ss3 + ss4 + ss5 + ss6

End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
Command1.SetFocus
End Sub

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Command1.SetFocus
End Sub