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