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