home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / gfadll / vbtest.gfw (.txt) < prev    next >
GFA-BASIC Windows  |  1993-01-05  |  6KB  |  309 lines

  1. GFA-BASIC WIN300
  2. IntegerTest    Eregebnis
  3. Ergebnis
  4. DoubleTest
  5. bleTest
  6. cbLen
  7. Hlstr
  8. WinDir
  9. stringTest2
  10. BuildString
  11. Text    DLLString
  12. Buffer
  13. Menues
  14. Menue
  15. Aufbau
  16. arweitert
  17. werdeNI
  18. ScreenFontDialog
  19. LibMain
  20. Test1
  21. IntegerTest
  22. DoubleTest
  23. StringTest
  24. DoubleTest2
  25. ReferenceTest
  26. BuildString
  27. BS    Procedure    SetString
  28. SetHlstr
  29. VBGetHlstr
  30. GetVBString
  31. Meldung
  32. ColorChooseDialog
  33. ColorDialog
  34. WinDirectory
  35. Choose
  36. ExitDialog
  37. DoubleTest
  38. IntegerTest
  39. VBGetHlstr
  40. VBGetHlstrLen
  41. StringTest
  42. StringTest2
  43. String
  44. BuildString
  45. GetVBString
  46. Datei:
  47. VBTEST.DLL
  48. dynamische
  49. Link-Bibliothek
  50. Visual
  51. Basic
  52. WindowsREM
  53. Sprache:
  54. Basic
  55. Windows
  56. (Compiler)REM
  57. Aufgabe:
  58. hrung
  59. Grundlagen
  60. DLL-Programmierung
  61. Visual
  62. Basic
  63. Windows
  64. Basic
  65. Windows
  66. Autor:
  67. Dipl.-Ing.
  68. Andreas
  69. Maslo
  70. (c)1993:
  71. IngES$library
  72. VBTEST
  73. VBTEST.DLL
  74. Die DLL VBTEST.DLL ist nur von Visual Basic f
  75. r Windows nutzbar!Z
  76. PROCEDURE
  77. //diese
  78. Prozedur
  79. automatisch
  80. Laden
  81. aufgerufen
  82. VB:VERSION
  83. ALERT
  84. 3,"Die
  85. VBTEST.DLL
  86. Visual
  87. Basic
  88. Windows
  89. nutzbar!",1,"OK",
  90. RETVAL
  91. 0ELSERETVAL
  92. 1ENDIF
  93. RETURN
  94. PROCEDURE
  95. //Prozedur
  96. exportieren//Routinen
  97. innerhalb
  98. werden
  99. exportierten
  100. //Namen
  101. nicht
  102. Namen
  103. innerhalb
  104. Prozedur-
  105. //kopfes
  106. aufgerufen;
  107. beide
  108. Namen
  109. voneinander
  110. //unterscheiden
  111. $EXPORT
  112. IntegerTest
  113. //Ganzzahlwert
  114. aufrufendes
  115. Programm
  116. ckgeben
  117. RETVAL
  118. 5//Hinweis:
  119. diese
  120. Prozedur
  121. Funktion
  122. deklariert
  123. werden
  124. RETURN
  125. PROCEDURE
  126. )//VAR
  127. Reference,
  128. Werte
  129. Parameterlisten
  130. aufrufende
  131. Hauptprogramm
  132. ckzugeben$EXPORT
  133. ReferenceTest
  134. =1.23456
  135. RETVAL
  136. 0RETURN//Beachten
  137. String
  138. bergabe
  139. Visual
  140. Basic
  141. in//der
  142. nachfolgenden
  143. NICHT
  144. glich
  145. Strings
  146. //anders
  147. unter
  148. GFA-Basic
  149. verwaltet
  150. werden
  151. //PROCEDURE
  152. StringTest(VAR
  153. Test$)
  154. $EXPORT
  155. StringTest
  156. Test$="Test"
  157. RETVAL
  158. //RETURN
  159. VBTEST.DLLY
  160. PROCEDURE
  161. )//Text
  162. Zeiger
  163. bernehmen,
  164. einen
  165. String
  166. //umwandeln
  167. ausgeben$EXPORT
  168. StringTest'Zeichenkette
  169. Pointer
  170. einlesen
  171. anzeigen;'CHAR
  172. wandelt
  173. Pointer
  174. Zeichenkette
  175. umMESSAGE
  176. CHAR{
  177. "VBTEST.DLL",MB_OK,
  178. //Zeichenkette
  179. buchstaben
  180. konvertieren
  181. und//an
  182. aufrufendes
  183. Programm
  184. bergeben
  185. CHAR{
  186. UCASE$(
  187. )//Hinweis:
  188. Beachten
  189. durch//
  190. Pointer
  191. bergebenen
  192. Zeichenkette
  193. nicht//
  194. POKE$
  195. erweitert
  196. werden
  197. kann!
  198. Unter
  199. Zeichenkette
  200. Space$()
  201. String$()
  202. bereits
  203. die//
  204. maximal
  205. tigte
  206. Zeichenkettenl
  207. //bracht
  208. werden
  209. POKE$
  210. RETURN
  211. PROCEDURE
  212. //Beispielprozedur:
  213. //Auswahldialog
  214. Farben
  215. Farbdefinition
  216. $Export
  217. ColorDialog
  218. =RGB(0,0,0)IF
  219. DIM?(
  220. ())=0
  221. //beim
  222. ersten
  223. Aufruf
  224. nicht
  225. dimensioniert
  226. //wird
  227. Aufruf
  228. Dimensionierung
  229. //vorgenommen,
  230. kommt
  231. Programmabbruch
  232. //durch
  233. einen
  234. LaufzeitfehlerENDIF
  235. COLOR
  236. //Farbwert
  237. ckgeben
  238. RETVAL
  239. RETURN
  240. PROCEDURE
  241. )//Beispiel
  242. Aufruf
  243. einer
  244. Windows-API-Routine
  245. //(entspricht
  246. Aufbau
  247. innerhalb
  248. VB)//Windows-Pfad
  249. ermitteln$Export
  250. WinDirectory//Puffer
  251. Ergebnis
  252. bereitstellen
  253. =SPACE$(255)
  254. //API-Routine
  255. aufrufen
  256. =GetWindowsDirectory(V:
  257. ))POKE$
  258. CHAR{V:
  259. }'Pfadl
  260. Funktionswert
  261. ckgebenRETVAL
  262. RETURN
  263. PROCEDURE
  264. )//Popup-Men
  265. ausgeben,
  266. eintr
  267. VB-Men
  268. entwurfsfenster
  269. definieren
  270. $Export
  271. Choose//Fenstertitel,
  272. eintr
  273. Form:
  274. //A$="Titel|Eintrag
  275. 1|Eintrag2|...|&Ende"
  276. //wird
  277. Pointer
  278. bergeben
  279. CHAR{
  280. //ein
  281. Fenster
  282. unter
  283. GFA-Basic
  284. ffnet
  285. werden,
  286. //damit
  287. Popup-Men
  288. erscheint
  289. //Rechteck
  290. unterhalb
  291. Popup-Men
  292. zeichnen,
  293. damit
  294. //das
  295. Fenster
  296. selbst
  297. nicht
  298. sichtbar
  299. wirdOPENW
  300. 110,110,20,20,
  301. =POPUP(
  302. 110,110
  303. //und
  304. wieder
  305. schlie
  306. CLOSEW
  307. RETVAL
  308. RETURN
  309.