home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / callback / mciyield.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  1.2 KB  |  36 lines
  1. VERSION 2.00
  2. Begin Form fmciYieldProc 
  3.    Caption         =   "mciYieldProc"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1605
  6.    ClientTop       =   2370
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1545
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   7365
  13.    Top             =   2025
  14.    Width           =   7485
  15.    Begin CBVBX mciYield 
  16.       CBType          =   12  ' 12 - mciYieldProc
  17.       Left            =   0
  18.       Top             =   0
  19.    End
  20. Option Explicit
  21. Sub Form_Load ()
  22.     Dim success
  23.     Dim devID
  24.     success = mciExecute("close wa")
  25.     success = mciExecute("open waveaudio!f:\reverse\untitled.wav alias wa wait")
  26.     devID = mciGetDeviceID("wa")
  27.     mciYield.YieldDeviceID = devID
  28.     success = mciSetYieldProc(devID, mciYield.CBAdress, ByVal 0&)
  29.     success = mciExecute("play wa")
  30.     success = mciExecute("play wa wait")
  31.     success = mciSetYieldProc(devID, ByVal 0&, ByVal 0&)
  32. End Sub
  33. Sub mciYield_mciYieldProc (wDeviceID As Integer, dwData As Long, retval As Integer)
  34.     If MsgBox("Weiter im Programm?", 36) = 6 Then retval = True
  35. End Sub
  36.