realbasic-nug.fr
[Top] [All Lists]

Re: Speak

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: Speak
From: Jacques Chanliau <jacques dot chanliau at wanadoo dot fr>
Date: Sat, 26 May 2007 17:03:33 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com
References: <464E188A dot 50209 at wanadoo dot fr> <20070525153008 dot 7A8801C00082 at mwinf2703 dot orange dot fr> <6C5DDEC9-94B2-4683-A8A3-54BEF65B0F39 at tribu dot ch> <3602D319-D76C-43E6-A238-A0DAA7AFC941 at cretaux dot fr>
Je n'ai pas de problème sur Mac Intel avec Mac OS 10.4.9, qui parle autant de fois que je le lui demande.

Jacques

Le 26 mai 07 à 14:43, Antoine Crêtaux a écrit :

J'avoue que je ne comprend pas. J'ai essayé le meme programe sur deux mac

tous les deux en 10.4 sur le Untel cela ne marche pas et sur le power PC cela marche..

Le 26 mai 07 à 14:39, Arnaud Nicolet a écrit :

Le 25 mai 07 à 17:31 Soir, bernard béville a écrit:

J'ai essayé sur PC et sur Mac, ça fonctionne mais sans les parenthèses

  if Textealire.text<>"" then
    speak textealire.text
  else
    speak "Il n'y a pas de texte à lire !"
  end if

Par contre ça ne veut pas marcher pour un texte sélectionné.... embêtant....

Pour le texte sélectionné, il faut utiliser cette syntaxe:

speak textealire.SelText

Après, on peut étendre la fonction pour lire la sélection, s'il y en a, ou le texte entier dans le cas contraire:

  if Textalire.SelLength>0 then
    speak textealire.SelText
  elseif Textealire.text<>"" then
    speak textealire.text
  else
    speak "Il n'y a pas de texte à lire!"
  end if







<Prev in Thread] Current Thread [Next in Thread>