Programming Tool Box/SIMS_2.iso/bp_1_94/winhelp/hlpdemo2.frm

Text File | 1993-10-24 | 9KB | 294 lines

VERSION 2.00
Begin Form HelpDemo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Nicht Σnderbar, doppelt
   Caption         =   "Literaturverwaltung EINGABE"
   ClientHeight    =   4005
   ClientLeft      =   1050
   ClientTop       =   1755
   ClientWidth     =   4965
   Height          =   4695
   Left            =   990
   LinkMode        =   1  'Quelle
   LinkTopic       =   "Form1"
   ScaleHeight     =   4005
   ScaleWidth      =   4965
   Top             =   1125
   Width           =   5085
   Begin PictureBox Bild1
      BackColor       =   &H00808080&
      BorderStyle     =   0  'Keine
      Height          =   540
      Left            =   0
      ScaleHeight     =   540
      ScaleWidth      =   4965
      TabIndex        =   12
      Top             =   0
      Width           =   4965
      Begin CommandButton Befehl1
         BackColor       =   &H00C0C0C0&
         Caption         =   "?"
         DragIcon        =   HLPDEMO2.FRX:0000
         DragMode        =   1  'Automatisch
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   18
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   480
         Left            =   4380
         TabIndex        =   0
         Top             =   30
         Width           =   510
      End
   End
   Begin TextBox Text5
      Height          =   375
      Left            =   1425
      TabIndex        =   5
      Top             =   3075
      Width           =   2655
   End
   Begin TextBox Text4
      Height          =   375
      Left            =   1425
      TabIndex        =   4
      Top             =   2475
      Width           =   975
   End
   Begin TextBox Text3
      Height          =   375
      Left            =   1425
      TabIndex        =   3
      Top             =   1875
      Width           =   3495
   End
   Begin TextBox Text2
      Height          =   375
      Left            =   1425
      TabIndex        =   2
      Top             =   1275
      Width           =   2655
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   1425
      TabIndex        =   1
      Top             =   675
      Width           =   3495
   End
   Begin Line Linie1
      X1              =   -15
      X2              =   4980
      Y1              =   540
      Y2              =   540
   End
   Begin Label Bezeichnung6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Hilfe zu jedem Feld mit F1 oder ""?"" Drag && Drop"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   225
      TabIndex        =   11
      Top             =   3630
      Width           =   4605
   End
   Begin Label Bezeichnung5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Stichwort"
      Height          =   255
      Left            =   225
      TabIndex        =   10
      Top             =   3075
      Width           =   975
   End
   Begin Label Bezeichnung4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Datum"
      Height          =   255
      Left            =   225
      TabIndex        =   9
      Top             =   2475
      Width           =   975
   End
   Begin Label Bezeichnung3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Heft-Titel"
      Height          =   255
      Left            =   225
      TabIndex        =   8
      Top             =   1875
      Width           =   975
   End
   Begin Label Bezeichnung2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Autor"
      Height          =   255
      Left            =   225
      TabIndex        =   7
      Top             =   1275
      Width           =   1095
   End
   Begin Label Bezeichnung1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Artikel"
      Height          =   255
      Left            =   225
      TabIndex        =   6
      Top             =   675
      Width           =   975
   End
   Begin Menu Datei
      Caption         =   "Datei"
      Begin Menu Laden
         Caption         =   "Laden"
      End
      Begin Menu Speichern
         Caption         =   "Speichern"
      End
      Begin Menu Drucken
         Caption         =   "Drucken"
      End
      Begin Menu Nix
         Caption         =   "-"
      End
      Begin Menu Beenden
         Caption         =   "Beenden"
      End
   End
   Begin Menu Hilfe
      Caption         =   "Hilfe"
      Begin Menu Index
         Caption         =   "Index"
      End
      Begin Menu Verwenden
         Caption         =   "Hilfe verwenden"
      End
      Begin Menu Info
         Caption         =   "Info"
      End
   End
End
' Programmbeispiel zum Artikel
' "Windows-Online-Hilfe fⁿr Visual-Basic-Anwendungen, Teil 2"
' fⁿr BASIC PROFESSIONELL (Beschreibung siehe Ausgabe 8/93).
' BASIC PROFFESIONELL: Tel. [phone] Fax [phone]
' Autor: Harald Zoschke  Datum: 20.10.93

'Laufwerk/Pfad ggf. an eigenes System anpassen.
'Alternativ kann HlpFile$ natⁿrlich auch per Menⁿ erfragt oder anhand
'einer Konfigurationsdatei erfragt werden
Const HlpFile$ = "C:\winsubs\hlpmag2\test\hlpdemo1.hlp" 'ggf. Pfad angeben

'WinHelp-Deklarationen

Declare Function WinHelp Lib "User" (ByVal hWnd%, ByVal HelpFile$, ByVal HlpCommand%, Dat As Any) As Integer

'▄bergabe-Parameter WinHelp() in Windows 3.0 + 3.1
Const HELP_CONTEXT = &H1      'Hilfethema anhand der Kontextnr. anzeigen
Const HELP_QUIT = &H2         'Hilfe beenden
Const HELP_INDEX = &H3        'Hilfe-Index anzeigen (Inhaltsⁿbersicht)
Const HELP_HELPONHELP = &H4   'Hilfe zur Hilfebenutzung anzeigen
Const HELP_SETINDEX = &H5     'Alternativer Index fⁿr Hilfedateien mit mehr als 1 Index
Const HELP_KEY = &H101        'Hilfethema anhand des Schlⁿsselwortes anzeigen
Const HELP_MULTIKEY = &H201   'Schlⁿsselwort in anderer Tabelle suchen und Hilfethema anzeigen

'▄bergabe-Parameter WinHelp() neu in Windows 3.1
Const HELP_CONTEXTPOPUP = &H8 'Hilfeseite in einem Popup-Fenster anzeigen
Const HELP_FORCEFILE = &H9    'Sicherstellen, da▀ die korrekte Hilfedatei angezeigt wird
Const HELP_COMMAND = &H102    'Hilfe-Makro ausfⁿhren
Const HELP_PARTIALKEY = &H105 'In Schlⁿsselliste gefundenes Hilfethema anzeigen
Const HELP_SETWINPOS = &H203  'Hilfefenster positionieren und anzeigen

'Diese beiden stehen (mit neuen Namen) nochmals in der 3.1er ErgΣnzung...
'Const HELP_CONTENTS = &H3    'fⁿr 3.1 nochmals definiert, jedoch
'Const HELP_SETCONTENTS = &H5 'mit neuen Konstanten-Namen (?)

Sub Beenden_Click ()
  X% = WinHelp(HelpDemo.hWnd, HlpFile$, HELP_QUIT, 0&)
  End
End Sub

Sub Befehl1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   'Befehl1.Drag   'Wird nur bei DragMode = 0 ben÷tigt (siehe Text)
End Sub

Sub Drucken_Click ()
  MsgBox "Hier passiert noch nichts"
End Sub

Sub Form_Load ()
Befehl1.DragIcon = LoadPicture("C:\winsubs\hlpmag2\test\frgzeich.ico")
End Sub

Sub Index_Click ()
  X% = WinHelp(HelpDemo.hWnd, HlpFile$, HELP_INDEX, 0&)
End Sub

Sub Info_Click ()
MsgBox "Dieses Beispiel zeigt den Einsatz kontextbezogener Windows-Online-Hilfe.    Autor: Harald Zoschke", 64, "Info"
End Sub

Sub KontextHilfe (Context&)
  X% = WinHelp(HelpDemo.hWnd, HlpFile$, HELP_CONTEXTPOPUP, ByVal Context&)
End Sub

Sub Laden_Click ()
  MsgBox "Hier passiert noch nichts"
End Sub

Sub Speichern_Click ()
  MsgBox "Hier passiert noch nichts"
End Sub

Sub Text1_DragDrop (Source As Control, X As Single, Y As Single)
  KontextHilfe 1
End Sub

Sub Text1_KeyDown (Tastencode As Integer, Umschalten As Integer)
   If Tastencode = 112 Then KontextHilfe 1
End Sub

Sub Text2_DragDrop (Source As Control, X As Single, Y As Single)
  KontextHilfe 2
End Sub

Sub Text2_KeyDown (Tastencode As Integer, Umschalten As Integer)
   If Tastencode = 112 Then KontextHilfe 2
End Sub

Sub Text3_DragDrop (Source As Control, X As Single, Y As Single)
  KontextHilfe 3
End Sub

Sub Text3_KeyDown (Tastencode As Integer, Umschalten As Integer)
   If Tastencode = 112 Then KontextHilfe 3
End Sub

Sub Text4_DragDrop (Source As Control, X As Single, Y As Single)
  KontextHilfe 4
End Sub

Sub Text4_KeyDown (Tastencode As Integer, Umschalten As Integer)
   If Tastencode = 112 Then KontextHilfe 4
End Sub

Sub Text5_DragDrop (Source As Control, X As Single, Y As Single)
  KontextHilfe 5
End Sub

Sub Text5_KeyDown (Tastencode As Integer, Umschalten As Integer)
   If Tastencode = 112 Then KontextHilfe 5
End Sub

Sub Verwenden_Click ()
  X% = WinHelp(HelpDemo.hWnd, HlpFile$, HELP_HELPONHELP, 0&)
End Sub