home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbdos / control / custom.bas < prev    next >
BASIC Source File  |  1993-01-05  |  12KB  |  220 lines
  1. ' ----------------------------------------------------------------------------
  2. ' CUSTOM.BAS: Ereignisprozeduren für benutzerdefinierte Steuerelemente
  3. '
  4. ' Diese Ereignisprozedurschablonen für benutzerdefinierte 
  5. ' Steuerelemente wurden von CUSTGEN.EXE (Schablonengenerator 
  6. ' für benutzerdefinierte Steuerelemente) erzeugt. 
  7. ' 
  8. ' Steuerelement-Übersetzung:
  9. '    ML -c <RegisterFile>           Geht von einem Masm 6.0-Übersetzer aus.
  10. '    BC /o <TemplateFile>;
  11. '    DEL <TemplateFile.LIB>         Löscht evtl. vorhandene Bibliothek
  12. '    LIB <TemplateFile.LIB>+<RegisterFile.OBJ>+<TemplateFile.OBJ>
  13. '    LINK /Q <TemplateFile.LIB>,<TemplateFile.QLB>,,VBDOSQLB.LIB;
  14. ' ----------------------------------------------------------------------------
  15.  
  16.  
  17. ' Include-Datei mit Konstantendefinitionen für Property-, Event-, 
  18. ' Method- und ControlType-Bezeichner.
  19. '$INCLUDE: 'CUSTINCL.BI'
  20.  
  21. ' Schaltet die Explicit-Option ein, um die Deklaration aller Variablen 
  22. ' vor dem Einsatz zu erzwingen. Anmerkung: Dies ist eine wahlfreie 
  23. ' Fehlerbeseitigungstechnik.
  24. OPTION EXPLICIT
  25.  
  26.  
  27. ' Deklariert Callback-Routinen zum Aufrufen von Methoden und Ereignissen 
  28. ' und zum Festlegen und Holen von Eigenschaften. Die von diesen 
  29. ' Callback-Routinen übernommenen Variablennummern und Argumenttypen 
  30. ' hängen von der aufgerufenen Methode bzw. dem aufgerufenen Ereignis ab. 
  31. DECLARE SUB InvokeEvent
  32. DECLARE SUB InvokeMethod
  33. DECLARE SUB GetProperty
  34. DECLARE SUB SetProperty
  35.  
  36. ' Deklariert Callback-Routinen zur Ermittlung des umgebenden Objekts 
  37. ' eines Steuerelements. Diese Callback-Routine liefert einen 
  38. ' Steuerelementbezeichner für das umgebende Objekt.
  39. DECLARE FUNCTION GetContainer (BYVAL CID AS INTEGER) AS INTEGER
  40.  
  41. ' Deklariert Callback-Routine zum Festlegen der Steuerelementattribute
  42. ' (Zugriffstaste, Verfügbarkeit für Fokus, Fähigkeit zum Auffangen von 
  43. ' Richtungstasten und Textcursorposition.) Vollständige Informationen 
  44. ' zur Verwendung dieser Callback-Routine finden Sie im Abschnitt über 
  45. ' benutzerdefinierte Steuerelemente in der LIESMICH.TXT-Datei. 
  46. DECLARE SUB SetAttribute (BYVAL CID AS INTEGER, BYVAL AID AS INTEGER, BYVAL Value AS INTEGER)
  47.  
  48. ' Deklariert eindeutige Callback-Routinen für jeden Eigenschaftsdatentyp zum 
  49. ' Festlegen und zur Ermittlung von Eigenschaftswerten, indem die die Callback-
  50. ' Routinen GetProperty und SetProperty, die jeden Datentyp übernehmen 
  51. ' können, als Parallelbezeichnungen verwendet werden. Dies sorgt für die 
  52. ' Typprüfung während der Prozeduraufrufe.
  53. DECLARE SUB GetIntProperty    ALIAS "GETPROPERTY" (Value AS INTEGER, BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  54. DECLARE SUB GetStringProperty ALIAS "GETPROPERTY" (Value AS STRING,  BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  55. DECLARE SUB GetLongProperty   ALIAS "GETPROPERTY" (Value AS LONG,    BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  56. DECLARE SUB SetIntProperty    ALIAS "SETPROPERTY" (BYVAL value AS INTEGER, BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  57. DECLARE SUB SetStringProperty ALIAS "SETPROPERTY" (Value AS STRING,        BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  58. DECLARE SUB SetLongProperty   ALIAS "SETPROPERTY" (BYVAL value AS LONG,    BYVAL CID AS INTEGER, BYVAL PID AS INTEGER)
  59.  
  60. ' Deklariert eindeutige Callback-Routinen zum Aufrufen jedes 
  61. ' Benutzerereignisses, indem die Callback-Routine InvokeEvent, deren 
  62. ' Variablenargumentanzahl und Datentyp vom aufgerufenen Ereignis abhängt, 
  63. ' als Parallelbezeichnung verwendet wird. Dies sorgt für Typprüfung 
  64. ' während der Prozeduraufrufe.
  65. DECLARE SUB InvokeChangeEvent        ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  66. DECLARE SUB InvokeClickEvent         ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  67. DECLARE SUB InvokeCustomEvent        ALIAS "INVOKEEVENT" (EventType AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  68. DECLARE SUB InvokeDblClickEvent      ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  69. DECLARE SUB InvokeDragDropEvent      ALIAS "INVOKEEVENT" (BYVAL SourceCID AS INTEGER, X AS SINGLE, Y AS SINGLE, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  70. DECLARE SUB InvokeDragOverEvent      ALIAS "INVOKEEVENT" (BYVAL SourceCID AS INTEGER, X AS SINGLE, Y AS SINGLE, State AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  71. DECLARE SUB InvokeDropDownEvent      ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  72. DECLARE SUB InvokeGotFocusEvent      ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  73. DECLARE SUB InvokeKeyDownEvent       ALIAS "INVOKEEVENT" (KeyCode AS INTEGER, Shift AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  74. DECLARE SUB InvokeKeyPressEvent      ALIAS "INVOKEEVENT" (KeyAscii AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  75. DECLARE SUB InvokeKeyUpEvent         ALIAS "INVOKEEVENT" (KeyCode AS INTEGER, Shift AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  76. DECLARE SUB InvokeLoadEvent          ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  77. DECLARE SUB InvokeLostFocusEvent     ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  78. DECLARE SUB InvokeMouseDownEvent     ALIAS "INVOKEEVENT" (Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  79. DECLARE SUB InvokeMouseMoveEvent     ALIAS "INVOKEEVENT" (Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  80. DECLARE SUB InvokeMouseUpEvent       ALIAS "INVOKEEVENT" (Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  81. DECLARE SUB InvokePaintEvent         ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  82. DECLARE SUB InvokePathChangeEvent    ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  83. DECLARE SUB InvokePatternChangeEvent ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  84. DECLARE SUB InvokeResizeEvent        ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  85. DECLARE SUB InvokeTimerEvent         ALIAS "INVOKEEVENT" (BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  86. DECLARE SUB InvokeUnloadEvent        ALIAS "INVOKEEVENT" (Cancel AS INTEGER, BYVAL CID AS INTEGER, BYVAL EID AS INTEGER)
  87.  
  88. ' Deklariert eindeutige Callback-Routinen zum Aufrufen jeder Methode für
  89. ' benutzerdefinierte Steuerelemente, indem die Callback-Routine 
  90. ' InvokeMethod, deren Variablenargumentanzahl und Datentyp von der 
  91. ' aufgerufenen Methode abhängen, als Parallelbezeichnung verwendet 
  92. ' wird. Dies sorgt für Typprüfung während der Prozeduraufrufe. 
  93. DECLARE SUB InvokePrintMethod      ALIAS "INVOKEMETHOD" (BYVAL CurrX AS INTEGER, BYVAL CurrY AS INTEGER, BYVAL FColor AS INTEGER, BYVAL BColor AS INTEGER, Text AS STRING, BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  94. DECLARE SUB InvokePrintFormMethod  ALIAS "INVOKEMETHOD" (BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  95. DECLARE SUB InvokeCLSMethod        ALIAS "INVOKEMETHOD" (BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  96. DECLARE SUB InvokeHideMethod       ALIAS "INVOKEMETHOD" (BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  97. DECLARE SUB InvokeShowMethod       ALIAS "INVOKEMETHOD" (BYVAL Modal AS INTEGER, BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  98. DECLARE SUB InvokeRefreshMethod    ALIAS "INVOKEMETHOD" (BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  99. DECLARE SUB InvokeMoveMethod       ALIAS "INVOKEMETHOD" (BYVAL mLeft AS INTEGER, BYVAL mTop AS INTEGER, BYVAL mWidth AS INTEGER, BYVAL mHeight AS INTEGER, BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  100. DECLARE SUB InvokeSetFocusMethod   ALIAS "INVOKEMETHOD" (BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  101. DECLARE SUB InvokeDragMethod       ALIAS "INVOKEMETHOD" (BYVAL Action AS INTEGER, BYVAL NumArgs AS INTEGER, BYVAL CID AS INTEGER, BYVAL MthID AS INTEGER)
  102.  
  103. 'Weckzeit wird modulübergreifend 
  104. 'global als dynamische Zeichenkette verwaltet, daher ist für
  105. 'alle Instanzen der Uhr nur eine einheitliche Weckzeit 
  106. 'verwaltbar
  107. Dim Shared AlarmZeit As String 
  108.  
  109. FUNCTION Uhr_CClick(Ctrl as Control, ByVal ControlId as Integer) AS INTEGER
  110.   Dim Zeit As String
  111.   Dim Titel As String
  112.   Dim Meldung As String
  113.   Titel = "Alarmzeit"
  114.   Meldung = "Geben Sie die Zeit im Format [HH:MM] an, zu der "
  115.   Meldung =  Meldung + "Sie an einen bestimmten Termin "
  116.   Meldung =  Meldung + "erinnert werden wollen!"
  117.   If AlarmZeit ="" Then
  118.       'Alarmzeit setzen
  119.       AlarmZeit = InputBox$(Meldung, Titel, "00:00")
  120.     Else
  121.       'Sofern bereits eingegeben, Alarmzeit als
  122.       'Vorgabezeichenkette übernehmen
  123.       AlarmZeit = InputBox$(Meldung, Titel, AlarmZeit)
  124.   End If    
  125.   '(vgl. Auswertung in Timer-Ereignisprozedur)
  126.   Uhr_CClick = 0
  127. END FUNCTION 
  128.  
  129. FUNCTION Uhr_CDblClick(Ctrl as Control, ByVal ControlId as Integer) AS INTEGER
  130.   'Weckzeit löschen
  131.   Dim Antwort As Integer
  132.   Dim Meldung As String
  133.   Dim Titel As String
  134.   Dim CrLf As String * 2
  135.   If AlarmZeit<>"" Then
  136.     'nur ausführen, wenn Alarmzeit bereits definiert wurde
  137.     CrLf = Chr$(13)+Chr$(10)
  138.     Titel = "Alarmzeit"
  139.     Meldung = "Wollen Sie die aktuell festgelegte Alarmzeit "+ CrLf
  140.     Meldung = Meldung +"["+AlarmZeit+"] löschen?"
  141.     'Sicherheitsabfrage
  142.     Antwort = MsgBox(Meldung, 4, Titel)
  143.     'Löschen wurde quittiert!
  144.     If Antwort = 6 Then
  145.       'Alarmzeit löschen
  146.       AlarmZeit = ""
  147.     End If
  148.   End If
  149.   Uhr_CDblClick = 0
  150. END FUNCTION 
  151.  
  152. FUNCTION Uhr_CTimer(Ctrl as Control, ByVal ControlId as Integer) AS INTEGER
  153.   Dim I As Integer
  154.   DIM J As Integer
  155.   Dim CrLf As String * 2
  156.   CrLf =Chr$(13)+Chr$(10)
  157.   'Ausgabebereich löschen
  158.   Ctrl.Cls
  159.   'Zeit ausgeben
  160.   If AlarmZeit = "" Then
  161.       Ctrl.Print Time$
  162.     Else   
  163.       'falls Weckzeit definiert, Zeitausgabe mit Stern
  164.       'in zweite Zeile die Weckzeit ausgeben
  165.       '(diese wird nur sichtbar, falls das Steuerelement
  166.       'auf entsprechende Größe gezoomt wurde)
  167.       Ctrl.Print Time$ +" *" + CrLf + AlarmZeit +CrLf +Str$(TimeValue(Time$))+CrLf+Str$(TimeValue(AlarmZeit))
  168.       'Kontrolle ob Alarm erforderlich
  169.       If TIMEVALUE(Time$) >= TIMEVALUE(AlarmZeit) Then
  170.         'Zeitwert der aktuellen Zeit hat den Zeitwert
  171.         'der Alarmzeit überschritten, d.h. Alarmausgabe
  172.         'Alarmzeit zurücksetzen
  173.         AlarmZeit=""
  174.         For I =1 To 5 
  175.           For J=100 To 1000 Step 20
  176.             'Sirene
  177.             Sound J,J/1000
  178.           Next J
  179.         Next I
  180.         'Ausgabe der Zeit wird automatisch beim
  181.         'nächsten Timer-Ereignis aktualisiert
  182.         'Change-Ereignis wird ausgelöst, wenn die
  183.         'Alarmzeit durch einen ausgelösten Alarm
  184.         'zurückgesetzt wird; auf das Ereignis Change
  185.         'kann der Programmierer im Hauptptogramm
  186.         'reagieren
  187.         InvokeEvent BYVAL ControlID, BYVAL EVENT_Change
  188.       End If
  189.   End If
  190.   Uhr_CTimer = 0
  191. END FUNCTION 
  192.  
  193. FUNCTION Uhr_CLoad(Ctrl as Control, ByVal ControlId as Integer) AS INTEGER
  194.   'Beim Laden des Steuerelementes wird automatisch die
  195.   'aktuelle Systemzeit ermittelt und angezeigt
  196.   'es ist keine Weckzeit beim Laden des Steuerelementes aktiv
  197.   AlarmZeit=""
  198.   'nur Zeitausgabe
  199.   Ctrl.Print Time$
  200.   Uhr_CLoad = 0
  201. END FUNCTION 
  202.  
  203. FUNCTION Uhr_CUnload(Ctrl as Control, ByVal ControlId as Integer) AS INTEGER
  204.   'Beim Entladen des Steuerelementes wird darauf hingewiesen,
  205.   'das mit der Uhranzeige auch eine eventuell eingestellte
  206.   'Alarmzeit verloren geht
  207.   Dim Meldung As String
  208.   Dim Titel As String
  209.   Dim CrLf As String * 2
  210.   CrLf = Chr$(13)+Chr$(10)
  211.   If AlarmZeit<>"" Then
  212.     Titel = "Hinweis"
  213.     Meldung = "Durch das Schließen des Dialogfeldes geht "+ CrLf
  214.     Meldung = Meldung +"die eingestellte Alarmzeit ["
  215.     Meldung = Meldung + AlarmZeit + "] verloren!"
  216.     MsgBox Meldung, 0, Titel
  217.   End If
  218.   Uhr_CUnload = 0
  219. END FUNCTION 
  220.