Rubrik: Hilfe (HLP und CHM) | VB-Versionen: VB4, VB5, VB6 | 13.02.01 |
Hilfe aufrufen, positionieren und Größe bestimmen Dieser Tipp zeigt, wie Sie eine bestimmte Hilfe-Datei aufrufen und das Hilfe-Fenster dann positionieren und in der Größe anpassen können. | ||
Autor: Heinz Prelle | Bewertung: | Views: 16.235 |
www.visual-basic5.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Dieser Tipp zeigt, wie Sie eine bestimmte Hilfe-Datei aufrufen und das Hilfe-Fenster dann positionieren und in der Größe anpassen können.
' zunächst die benötigten API-Deklarationen Private Declare Function WinHelp Lib "user32" _ Alias "WinHelpA" ( _ ByVal hwnd As Long, _ ByVal lpHelpFile As String, _ ByVal wCommand As Long, _ dwData As Any) As Long Private Type INFOWINHELP lStructurSize As Long lPosX As Long lPosY As Long lWidthX As Long lHeightY As Long lMaximum As Long sWinName As String * 2 End Type Private Const HELP_SETWINPOS = &H203& Public Sub ShowHelp(ByVal hWnd As Long, HelpFile As String, _ x As Long, y As Long, xWidth As Long, yHeight As Long) Dim lRet As Long DIM tpWinHelp As INFOWINHELP If HelpFile = "" Then HelpFile = App.HelpFile With tpWinHelp .lStructurSize = Len(tpWinHelp) .lPosX = x ' x-Position des Fensters .lPosY = y ' y-Position des Fensters .lWidthX = xWidth ' Fensterbreite .lHeightY = yHeight ' Fensterhöhe .lMaximum = 1 End With lRet = WinHelp(hwnd, HelpFile, HELP_SETWINPOS, tpWinHelp) End Sub
Anwendungsbeispiel:
Private Sub CmdHelp_Click() ShowHelp Me.hWnd, "", 400, 400, 620, 620 End Sub