PLAY SOUND example

This example includes a button that lets the user play stored audio data:

local f
f = new pictures ( )
f.Open( )
 

class pictures of form
with (this)
 escExit = true
 view = "pictures.sql"
endwith
 

this.colorNormal = "BG/B"
this.text = "Pictures Form"
this.width = 76.00
this.top = 0.00
this.left = 0.00
this.height = 30.00
this.minimize = false
this.maximize = false
this.onOpen = {;create session}
 

define pushbutton sound of this;
 property;
 onClick {;play sound binary pictures->sound},;
 text "Sound",;
 width 18.00,;
 top 5.00,;
 left 1.00,;
 height 3.00,;
 fontSize 16.00,;
 fontName "Courier"
// Additional object definitions

endclass