Visual Basic Tips

ヘルプファイルの起動

ヘルプを起動します。サンプルではIndexを使って「目次」と「キーワードで検索」ダイアログの出力を分けています。

Private Sub Menu_Help_Click(Index As Integer)
　　Dim intRet As Integer
　　Dim strPath As String

　　If Right(App.Path, 1) <> "\" Then
　　　　strPath = App.Path & "\"
　　Else
　　　　strPath = App.Path
　　End If

　　App.HelpFile = strPath & ヘルプファイル名

　　On Error Resume Next

　　Select Case Index
　　　　Case 0
　　　　　'目次
　　　　　intRet = OSWinHelp(Me.hwnd, App.HelpFile, &H3, 0)
　　　　　If Err Then
　　　　　　　MsgBox "ｴﾗｰ:" & Err & " " & Error
　　　　　End If
　　　　Case 1
　　　　　'ｷｰﾜｰﾄﾞで検索
　　　　　intRet = OSWinHelp(Me.hwnd, App.HelpFile, &H105, 0)
　　　　　If Err Then
　　　　　　　MsgBox "ｴﾗｰ:" & Err & " " & Error
　　　　　End If
　　　Case Else
　　End Select
End Sub

'----------------------------------------------------------
' Module
'----------------------------------------------------------
Public Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)


DownLoad vbtips060.lzh 7KB (VB6.0)