VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 ファイル関係のメニュー
1.FileSystemObject のファイルに関するメソッド・プロパティについて
2.ファイルに関する基本的なワンポイントサンプル集
3.フォルダー内のファイル名を読み込む(Dir 関数の使用例)
4.指定のファイルパスを検索する
5.エクスプローラーからファイル名をドラッグ・アンド・ドロップで取得する
6.プログラムから HTML ヘルプファイルを開く及び閉じる
7.Windows ヘルプ形式のヘルプファイルの目次トピックを表示する方法
8.ファイルに関するパス操作色々
9.ファイル・フォルダーをごみ箱へ
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.その他、当サイト内に掲載のファイルに関するサンプル


5.プログラムから HTML ヘルプファイルを開く及び閉じる
1.プログラムから HTML ヘルプファイルを開く及び閉じる
2. 
3. 
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:                  参照設定方法参照
使用 API:HTMLHelp
その他 :このサンプルは、Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
    :
このページのトップへ移動します。 1.プログラムから HTML ヘルプファイルを開く及び閉じる

Option Explicit   'SampleNo=253  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\ADO210.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 ファイルは閉じておいて下さい。

このページのトップへ移動します。 2. 



このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)




このページのトップへ移動します。