help.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "*\A..\SOURCE\FAST2003.vbp"
Object = "*\A..\SOURCE\FAST2003.vbp"
Begin VB.Form frmHelp 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Help"
   ClientHeight    =   2715
   ClientLeft      =   3210
   ClientTop       =   2925
   ClientWidth     =   3570
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Icon            =   "Help.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2715
   ScaleWidth      =   3570
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton optMode 
      Caption         =   "&Quit"
      Height          =   285
      Index           =   7
      Left            =   225
      TabIndex        =   8
      Top             =   2340
      Width           =   1455
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Help on help"
      Height          =   285
      Index           =   5
      Left            =   225
      TabIndex        =   7
      Top             =   1710
      Width           =   1455
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Key find"
      Height          =   285
      Index           =   4
      Left            =   225
      TabIndex        =   6
      Top             =   1395
      Width           =   1455
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Set position"
      Height          =   285
      Index           =   6
      Left            =   225
      TabIndex        =   5
      Top             =   2025
      Width           =   1455
   End
   Begin VB.CommandButton cmdShow 
      Caption         =   "&Show"
      Height          =   375
      Left            =   2205
      TabIndex        =   4
      Top             =   2205
      Width           =   1275
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Partial Key find"
      Height          =   285
      Index           =   3
      Left            =   225
      TabIndex        =   3
      Top             =   1080
      Width           =   1950
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Search"
      Height          =   285
      Index           =   2
      Left            =   225
      TabIndex        =   2
      Top             =   765
      Value           =   -1  'True
      Width           =   1455
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Index (win 3.x help file)"
      Height          =   285
      Index           =   1
      Left            =   225
      TabIndex        =   1
      Top             =   450
      Width           =   2580
   End
   Begin VB.OptionButton optMode 
      Caption         =   "&Contents (win 3.x help file)"
      Height          =   285
      Index           =   0
      Left            =   225
      TabIndex        =   0
      Top             =   135
      Width           =   2670
   End
   Begin FLWSystem.FWWinHelp objWinHelp 
      Left            =   2925
      Top             =   1395
      _ExtentX        =   820
      _ExtentY        =   820
   End
End
Attribute VB_Name = "frmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdShow_Click()
  Dim strSearch As String
    
  If optMode(0).Value Then
    Call objWinHelp.ContentsWin3
  ElseIf optMode(1).Value Then
    Call objWinHelp.IndexWin3
  ElseIf optMode(2).Value Then
    Call objWinHelp.Finder
  ElseIf optMode(3).Value Then
    strSearch = InputBox("Enter search string:", _
                         "Help")
    Call objWinHelp.PartialKey(strSearch)
  ElseIf optMode(4).Value Then
    strSearch = InputBox("Enter search string:", _
                         "Help")
    Call objWinHelp.Key(strSearch)
  ElseIf optMode(5).Value Then
    Call objWinHelp.HelpOnHelp
  ElseIf optMode(6).Value Then
    Call objWinHelp.SetPos(100, 100, 300, 300, FLWSystem.flwNormalFocus)
  ElseIf optMode(7).Value Then
    Call objWinHelp.Hide
  End If
End Sub

Public Sub Form_Load()
  Call objWinHelp.Create("c:\vb6.hlp")
End Sub