home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / gfadll / vbtest.frm < prev    next >
Text File  |  1993-01-05  |  5KB  |  142 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Nicht Σnderbar, doppelt
  4.    Caption         =   "Windows-Programmierung mit Visual/GFA Basic"
  5.    Height          =   5805
  6.    Left            =   1035
  7.    LinkTopic       =   "Form1"
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   5400
  11.    ScaleWidth      =   7275
  12.    Top             =   1140
  13.    Width           =   7395
  14.    Begin CommandButton Befehl5 
  15.       Caption         =   "&Popup-Menⁿ"
  16.       Height          =   555
  17.       Left            =   5520
  18.       TabIndex        =   4
  19.       Top             =   2100
  20.       Width           =   1635
  21.    End
  22.    Begin CommandButton Befehl4 
  23.       Caption         =   "&Windows-Pfad"
  24.       Height          =   555
  25.       Left            =   5520
  26.       TabIndex        =   3
  27.       Top             =   2760
  28.       Width           =   1635
  29.    End
  30.    Begin CommandButton Befehl3 
  31.       Caption         =   "&Farbdialog"
  32.       Height          =   555
  33.       Left            =   5520
  34.       TabIndex        =   2
  35.       Top             =   3420
  36.       Width           =   1635
  37.    End
  38.    Begin CommandButton Befehl2 
  39.       Caption         =   "&Test"
  40.       Height          =   555
  41.       Left            =   5520
  42.       TabIndex        =   1
  43.       Top             =   4080
  44.       Width           =   1635
  45.    End
  46.    Begin CommandButton Befehl1 
  47.       Caption         =   "&Beenden"
  48.       Height          =   555
  49.       Left            =   5520
  50.       TabIndex        =   0
  51.       Top             =   4740
  52.       Width           =   1635
  53.    End
  54. End
  55. '*****************************************************************
  56. '* DLL-Programmierung fⁿr Visual Basic fⁿr Windows mit           *
  57. '* dem GFA-Basic-Compiler fⁿr Windows                            *
  58. '* (c)1993 by Dipl.-Ing. Andreas Maslo                           *
  59. '*****************************************************************
  60.  
  61. 'Beispielprozeduren zur ErlΣuterung der Parameterⁿbergaben
  62. 'an DLL-Prozeduren, die mit GFA-Basic entwickelt wurden
  63.  
  64. 'um Rⁿckgabewert von RETVAL entgegenzunehmen, mu▀ die ent-
  65. 'sprechende GFA-Basic-Prozedur als Funktion deklariert werden
  66. Declare Function IntegerTest Lib "d:\gfawin\vbtest.dll" () As Integer
  67. 'Declare Function DoubleTest Lib "d:\gfawin\vbtest.dll" () As Double
  68. 'damit Parameter, die als Referenz ⁿbergeben werden unter Visual Basic
  69. 'fⁿr Windows Ergebnisse zurⁿckliefern k÷nnen, darf das Schlⁿsselwort
  70. 'ByVal NICHT verwendet werden
  71. Declare Sub ReferenceTest Lib "d:\gfawin\vbtest.dll" (Erg#)
  72. 'ByVal bei der Zeichenkettenⁿbergabe bedeutet, da▀ an die
  73. 'DLL ein Zeichenketten-Deskriptor ⁿbergeben wird
  74. Declare Sub StringTest Lib "d:\gfawin\vbtest.dll" (ByVal Text$)
  75.  
  76. 'allgemeine Bibliotheksroutinen fⁿr Visual Basic fⁿr Windows
  77.  
  78. 'die folgende Funktion liefert eine lange Ganzzahl zurⁿck, die
  79. 'einem RGB-Farbwert entspricht
  80. Declare Function ColorDialog Lib "d:\gfawin\vbtest.dll" () As Long
  81. 'Ermittlung des Windows-Verzeichnisses
  82. Declare Function WinDirectory Lib "d:\gfawin\vbtest.dll" (ByVal Pfad$) As Integer
  83. 'Anzeige eines Popup-Menⁿs
  84. Declare Function Choose Lib "d:\gfawin\vbtest.dll" (ByVal Menue$) As Integer
  85.  
  86. Sub Befehl1_Click ()
  87.   End
  88. End Sub
  89.  
  90. Sub Befehl2_Click ()
  91.   'Testaufrufe
  92.   'Ganzzahlen
  93.   Me.Print IntegerTest()
  94.   'Flie▀kommazahlen
  95.   ReferenceTest Erg#
  96.   Me.Print Erg#
  97.   'Zeichenketten
  98.   Text$ = "Hallo GFA-Basic fⁿr Windows..."
  99.   StringTest Text$
  100.   'die geΣnderte Variable Text$ ausgeben
  101.   Me.Print Text$
  102. End Sub
  103.  
  104. Sub Befehl3_Click ()
  105.   'Farbdialog aufrufen
  106.   'diese Funktion kann alternativ zur VB-RGB-
  107.   'Funktion eingesetzt werden, wenn ein RGB-
  108.   'Farbwert zur Laufzeit vom Anwender bestimmt
  109.   'werden soll; hier wird lediglich der Form-
  110.   'hintergrund neu eingefΣrbt
  111.   FarbWert& = ColorDialog&()
  112.   Me.BackColor = FarbWert&
  113. End Sub
  114.  
  115. Sub Befehl4_Click ()
  116.   'Windows-Verzeichnis ermitteln und in einem
  117.   'Meldungsfenster ausgeben
  118.   Pfad$ = Space$(255)
  119.   P% = WinDirectory(Pfad$)
  120.   MsgBox Left$(Pfad$, P%), 64, "Windows-Verzeichnis"
  121.   'Hinweis: der API-Aufruf ⁿber GFA-Basic-DLLs
  122.   '  ist nur dann sinnvoll, wenn diese auch im
  123.   '  Zusammenhang mit DLL-Routinen verwendet werden,
  124.   '  da der Aufruf in der Regel entsprechend einfach
  125.   '  direkt unter VB realisierbar ist
  126. End Sub
  127.  
  128. Sub Befehl5_Click ()
  129.   'Popupmenⁿ-Anzeige mit Auswahlm÷glichkeit fⁿr Visual Basic,
  130.   'ohne wie bei der PopupMenu-Methode die Menⁿdefinition
  131.   'innerhalb des menⁿentwurfsfensters vornehmen zu mⁿssen
  132.   'Hinweis: der Titel ╗Bearbeiten½ ist nicht anwΣhlbar
  133.   M$ = "Bearbeiten:|  &Ausschneiden|  &Kopieren|  &Einfⁿgen|  &L÷schen|  &Ende"
  134.   a% = Choose(M$)
  135.   'Meldung zum angewΣhlten Menⁿpunkt ausgeben
  136.   MsgBox "Sie haben Menⁿpunkt " + Str$(a%) + " angewΣhlt", 64, "Menⁿanwahl"
  137.   'Hinweis: die Position des Popupmenⁿs ist im vorliegenden
  138.   '  Beispiel statisch; durch ─nderung der DLL-Routine kann
  139.   '  die Positionierung des Popup-Fensters auch frei erfolgen
  140. End Sub
  141.  
  142.