HTMLヘルプファイルを開く及び閉じる
                                                         玄関へお回り下さい。
HTMLヘルプファイルを開く及び閉じる                    (253)
Form に CommandButton を2個貼り付けておいて下さい。
  Option Explicit   'SampleNo=253 WindowsXP VB6.0(SP5) 2003.02.20
'指定されたヘルプウィンドウでヘルプ トピックを開きます
Private Const HH_DISPLAY_TOPIC = &H0
'プログラムによって開かれたウィンドウをすべて閉じます
Private Const HH_CLOSE_ALL = &H12
'プログラム中から HTML Help の機能にアクセスできるようにする
Private Declare Function HTMLHelp Lib "hhctrl.ocx" _
  Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, _
  ByVal wCommand As Long, ByVal dwData As Long) As Long
Private HelpFilePath As String   'ヘルプファイルのパス

Private Sub Form_Load()
  'ヘルプファイルの取得
  HelpFilePath = "c:\windows\Help\access.chm"
End Sub

Private Sub Command1_Click()
  'ヘルプファイルを開く
  HTMLHelp Me.hwnd, HelpFilePath, HH_DISPLAY_TOPIC, 0&
End Sub

Private Sub Command2_Click()
  'ヘルプファイルを閉じる
  HTMLHelp Me.hwnd, HelpFilePath, HH_CLOSE_ALL, 0&
End Sub

 
Visual Basicの開発環境においてHTML Help APIを使用してHTML Helpファイルを表示したままプログラムを終了するとVisual Basic開発環境も終了(場合によってはアプリケーションエラーが発生)する不具合が報告されています。
プログラムを終了する場合はHTML Helpファイルは閉じておいて下さい。
   








2003/11/04