Newsgroup: it.comp.lang.vo-clipper
Titolo: si,no,annulla

Grazie in anticipo a tutti,
normalmente uso un controllo del tipo si-no con questo codice :
FUNCTION Conferma(oOwner, cUtente ,cMessage) AS LOGIC
 LOCAL oConfirm AS WarningBox
 LOCAL lConfirm  AS LOGIC
 lConfirm := FALSE
 IF Empty(cMessage)
  cMessage  := "Confermi?"
 ENDIF
 oConfirm := WARNINGBOX{oOwner,cUtente,cMessage}
 oConfirm:Type := BOXICONQUESTIONMARK + BUTTONYESNO
 IF oConfirm:Show() == BOXREPLYYES
  lConfirm := TRUE
 ENDIF
RETURN(lConfirm)
Desidero avero un controllo del tipo si-no-annulla
ho provate ad aggiungere Cancel a ButtonYesNo ed ho la terza possibilità ma 
non so come farlo funzionare.
Attendo qualche consiglio o righe di codice
Grazie
-- 
dr Francesco D'Aquila
=====================================
Studio di cardiologia dr Armaro Biagio sas
Viale Scala Greca 324 - telef. 0931 751003
96100 Siracusa
Email drarm...@Alice.it
Le informazioni contenute in questo messaggio sono riservate e confidenziali 
e il loro utilizzo e consentito esclusivamente al destinatario del 
messaggio, per le finalita indicate nello stesso. Qualora Lei non fosse la 
persona destinataria, la invitiamo ad eliminare il messaggio dal Suo Sistema 
ed a distruggere le varie copie o stampe, dandocene comunicazione. Ogni 
utilizzo improprio e contrario ai principi del D.lgs 196/03 e alla 
legislazione europea (Direttiva 2002/58/CE).
Lo Studio di cardiologia dr Armaro Biagio sas ha fatto i possibili controlli 
per assicurarsi che questo messaggio ed eventuali allegati siano privi di 
Virus. Si consiglia comunque di trattare lo stesso applicando corrette 
procedure per assicurarsi che ne sia privo al suo utilizzo.

vedi se questo di può interessare.
ciao
oObj := OleAutoObject{"WScript.Shell.1"}
Scelta := oObj:Popup('Selezione',,'Caption',48+2)
/*
****** 0 **************
1 = OK
****** 1 **************
1 = OK
2 = Annulla
****** 2 **************
3 = Interrompi
4 = Riprova
5 = Ignora
****** 3 **************
6 = Si
7 = No
8 = Annulla
****** 4 **************
6 = Si
7 = No
****** 5 **************
4 = Riprova
2 = Annulla
****** 6 **************
2  = Annulla
10 = Riprova
11 = Continua
***********************
METHOD Popup(;
TEXT_ 				,; // AS STRING
SecondsToWait		,; // AS PTR
Title				,; // AS PTR
Type				,; // AS PTR
) CLASS XShell
WshShell.Popup
Display text in a pop-up message box.
Syntax
      intButton =
MyShellObject.Popup(strText,[nSecondsToWait],[strTitle],[nType])
Arguments
   strText        : String value containing the text you want to appear
                    in the pop-up message box.
   nSecondsToWait : Maximum length of time to display the pop-up message
                    box (in seconds, Optional, default=infinite)
   strTitle       : Title text string, Optional.
   nType          : Type of buttons and icons (Numeric, Optional)
                    These determine how the message box is used.
   IntButton      : Number of the button (Integer value)
                    This is the value returned when the user OK's the
message box.
The meaning of nType is determined by combining values from the 2 tables
below:
Button Types
  Value Description
    0   OK button.
    1   OK and Cancel buttons.
    2   Abort, Retry, and Ignore buttons.
    3   Yes, No, and Cancel buttons.
    4   Yes and No buttons.
    5   Retry and Cancel buttons.
Icon Types
   Value Description
    16  "Stop Mark" icon.
    32  "Question Mark" icon.
    48  "Exclamation Mark" icon.
    64  "Information Mark" icon.
Possible values for IntButton the return value:
Value Description
   1  OK button
   2  Cancel button
   3  Abort button
   4  Retry button
   5  Ignore button
   6  Yes button
   7  No button
*/
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> vedi se questo di può interessare.
mi ha fatto la stessa domanda con una mail privata, ma visto che non ho 
ricevuto nessuna risposta, ne un "grazie, funziona", ne un ulteriore 
domanda, suppongo che la domanda abbia trovata una risposta.
Wolfgang