Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

sound on key press
Posted: Mon May 10, 2010 10:50 PM

How I can insert a sound when I press a key and I use a Tget control ?

FWH .. BC582.. xharbour

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: sound on key press
Posted: Tue May 11, 2010 08:21 AM

include "Fivewin.ch"

FUNCTION MAIN()

LOCAL oDlg

LOCAL oGet1, cVar1 := SPACE( 10 )

REQUEST HB_GT_GUI_DEFAULT // for tone usage

DEFINE DIALOG oDlg

@ 1 , 1 GET oGet1 VAR cVar1 OF oDlg

// oGet1:bKeyChar = { || tone(100,.1) }
oGet1:bKeyChar = { || messagebeep() }

ACTIVATE DIALOG oDlg  CENTER

RETURN NIL

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: sound on key press
Posted: Wed May 12, 2010 10:16 AM

Mr Marco,

REDEFINE GET oMss VAR cMss ID 130 MEMO OF oDlm
oMss:bKeyChar = { || messagebeep() }

NOT RUN !

FWH .. BC582.. xharbour

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: sound on key press
Posted: Wed May 12, 2010 01:17 PM

Did you try ?
oMss:bKeyDown = { || messagebeep() }

FiveTech Support Forums