home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / mci / trymci.frm (.txt) < prev    next >
Visual Basic Form  |  1993-01-05  |  6KB  |  145 lines
  1. fmTryMCI
  2. TryMCI
  3. Form2%
  4. SSPanel#
  5. Panel3D3
  6. SSPanel#
  7. Return-String
  8. Panel3D4
  9. SSPanel#
  10. lbMCIRetStr
  11. SSPanel#
  12. MCI-Kommandos
  13. Panel3D2
  14. SSPanel#
  15. edMCICommand
  16. SSPanel#
  17. Status
  18. Panel3D1
  19. SSPanel#
  20. lbMciErrStr
  21. &TryMCI  -  (c) 1993 by MICHAEL TISCHER
  22. btExec
  23. MS Sans Serif
  24. mnEnde
  25. mnDemo
  26. mnDemo1
  27. WAV-File spielen
  28. mnDemo2
  29. Audio CD spielen
  30. mnDummy1
  31. mnWaitOption
  32. WAIT-Option
  33. 5    mnL
  34. schen
  35. schen
  36. MciSendString
  37.     CmdString
  38.     RetString
  39. ReturnLength
  40.     hCallback
  41. MciGetErrorString
  42. ErrCode&
  43.     StrBuffer
  44. Lengthl
  45. btEnde_Click
  46. MciSend
  47. RetSend
  48.     RetGetStrD
  49. ErrorStr
  50. InfoStr\
  51. schen_ClickT
  52. edMCICommand|
  53. mnEnde_Click
  54. btExec_Click
  55. retstrC
  56. gefunden
  57. lencmd
  58. startzeile
  59. endzeile
  60. lbMCIErrStr
  61. Caption
  62. lbMCIRetStr
  63. SelStart!
  64. mnWaitOption_Click
  65. mnWaitOption
  66. CheckedT
  67. mnDemo1_Click
  68. count
  69. waitstr
  70. mnDemo2_Clickx
  71.   TryMCI  -  Hilft beim Einstieg in die Multimedia-Programmierung mit VB
  72.   Version 1.2 vom 16.08.1993
  73.   (c) 1993 by Michael Tischerr
  74. --- Deklaration von API-Funktionen 
  75. mmsystem.dllk
  76. mmsystem.dll
  77. btEnde_Click
  78. btEnde_Click: Der Ende-Button wurde angeklickt, um das Programm zu beenden
  79. btExec_Click
  80. btExec_Click: der Exec-Button wurde angeklickt, damit der MCI-String aus der
  81.  aktuellen Eingabezeile in edMCICommand abgespielt wird 
  82. Eingabe : keinen
  83. Ausgabe : keinen
  84. Controls: - edMCICommand.Text = der zu sendende String
  85.  - lbMICErrStr
  86.  = nimmt den Fehlerstring des MCI auf
  87. Globals : keiner
  88. --- Statusfelder leeren 
  89. --- aktuelle Zeile mit Befehl in edMCICommand isolieren 
  90. --- dabei zun
  91. chst von SELPOS ausgehend Zeilenanfang suchen 
  92. Eingabefeld leer
  93. --- von SELPOS ausgehend Zeilenende suchen 
  94. --- Zeile in Eingabefeld selektieren und Befehl nach CMD holen 
  95. --- Befehl ausf
  96. hren und Resultat anzeigen 
  97. MciSend
  98. MCISend$: Sendet einen MCI-String und liefert den Fehlerstring des MCI zur
  99. Eingabe : cmd$ = der zu sendende MCI-Stringr
  100.  ret$ = nimmt Return-Informationen des MCI auf
  101. Ausgabe : der Fehlerstring des MCI
  102. Controls: keinee
  103. Globals : keinee
  104. mnDemo1_Click
  105. mnDemo1_Click: der Befehl "WAV-File spielen" aus dem DEMO-Men
  106.  wurde
  107.  angeklickt, MCI-Befehle f
  108. r das Abspielen eines WAV-Files
  109.  einf
  110.  song
  111.  wait
  112. --- Befehle als String-Zeilen aufbauen 
  113. open XXX.wav type waveaudio alias 
  114. from 0
  115. status
  116. length
  117. close
  118. mnDemo2_Click
  119. mnDemo2_Click: der Befehl "Audio CD spielen" aus dem DEMO-Men
  120.  wurde ange-
  121.  klickt, MCI-Befehle f
  122. r das Abspielen einer Audio CD einf
  123.  wait
  124. --- Befehle als String-Zeilen aufbauen 
  125. open cdaudio alias cd
  126. set cd time format tmsf
  127. play cd from 1 to 10
  128. status cd mode
  129. stop cd
  130. status cd mode
  131. close cd
  132. mnEnde_Click
  133. mnEnde_Click: das ENDE-Men
  134.  wurde angeklickt, Programm beenden
  135. schen_Click
  136. schen_Click() : das L
  137. SCHEN-Men
  138.  wurde angeklickt, Inhalt des Eingabefeldes
  139.  EdMCICommand l
  140. schen 
  141. mnWaitOption_Click
  142. mnWaitOption_Click() : der Befehl WAIT-Option aus dem DEMO-Men
  143.  wurde aufge-
  144.  rufen, WAIT-Option umschalten
  145.