frmhelpw.frm

本系统是给大庆油田做的一个示例程序

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmHelpw 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "帮 助"
   ClientHeight    =   11040
   ClientLeft      =   2940
   ClientTop       =   3495
   ClientWidth     =   15270
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   11040
   ScaleWidth      =   15270
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   5.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   90
      Left            =   5220
      TabIndex        =   1
      Top             =   4950
      Width           =   225
   End
   Begin VB.Timer Timer1 
      Interval        =   60
      Left            =   3384
      Top             =   120
   End
   Begin RichTextLib.RichTextBox RT 
      Height          =   10455
      Left            =   450
      TabIndex        =   0
      Top             =   270
      Width           =   14535
      _ExtentX        =   25638
      _ExtentY        =   18441
      _Version        =   393217
      BackColor       =   12632256
      BorderStyle     =   0
      Enabled         =   -1  'True
      ScrollBars      =   2
      DisableNoScroll =   -1  'True
      Appearance      =   0
      TextRTF         =   $"FrmHelpw.frx":0000
   End
End
Attribute VB_Name = "FrmHelpw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
  Timer1.Enabled = True
  Text1.SetFocus
End Sub
Private Sub Form_Deactivate()
  Timer1.Enabled = False
End Sub

Private Sub Form_Load()
  Dim ss As String
  ss = CurPath
  DoEvents
  ss = ss & "HelpWords.rtf"
  DoEvents
  RT.LoadFile ss
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyEscape Then Unload Me 'Me.Hide
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = 0
End Sub

Private Sub Text1_LostFocus()
  On Error Resume Next
  Text1.SetFocus
End Sub

Private Sub Timer1_Timer()
  Static Y As Integer
  Y = Y + 1                             '图片计数器累加
  If Y = 18 Then Y = 0                  '如果图片计数器为18，则图片计数器清零
  Me.Icon = MainStart.Image1(Y).Picture  '在图片框（Picture1)中调入（显示）第Y个图片
End Sub