vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Hilfe (HLP und CHM)   |   VB-Versionen: VB4, VB5, VB613.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 PrelleBewertung:  Views:  16.235 
www.visual-basic5.deSystem:  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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.