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:     [ Jetzt bewerten ]	Views:  10.599
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 25 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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