[Ceskho Risolto]posizione dei message

[Ceskho]

Vabbè visto che ti voglio bene e visto che ho appena passato il mio 20esimo capodanno sulla faccia della terra, ti ho creato anche i restanti messagge.

Ora hai a disposizione:

Warning
Info
Delete
Error
Question

In pratica tutti quelli che avresti normalmente.

EDIT: Cancello i vecchi file allegati poichè non servono.

[dex]

@ ceskho

va alla grande.

volevo chiederti:
per le icone non è possibile inserire ad esempio:

Codice: [Seleziona]

extramessage.warning(messaggio, button1, button2, button3,icona, x, y)

in modo da richiamare varie immagini?

per extramessage.leggi()

ho visto che mi ritorna il valore del button, ma per fare una cosa simile come si fà?

Codice: [Seleziona]

if message.warning(testo,button1,button2) = 1 then

[Ceskho]

Le icone sono le stesse che usa gambas di default per i messagge..se inserisco la possibilità di specificare l'icona allora non ha più senso la distinzione tra i vari tipi di message.

per usare leggi puoi fare ad esempio

Codice: [Seleziona]

extramessage.info("vuoi chiudere il programma?" , "Si", "No")

IF extramessage.leggi() = 0 THEN Form.Close

[dex]

ma con

Codice: [Seleziona]

extramessage.info("vuoi chiudere il programma?" , "Si", "No") 

va in errore

[Ceskho]

che errore?

[dex]

unknown symbol 'info' in class 'extramessage'

[Ceskho]

hai scaricato l'ultimo allegato che ho inserito?sarebbe extramessage3..controlla...

[dex]

scusa non avevo visto il 3 allegato

auguri per il tuo compleanno.

[Ceskho]

no no..non è il mio compleanno...era una constatazione....:-)

[dex]

un'ultima domanda.

volendo applicarlo a:
CATCH  
   Message.error(Error.text)?

[Ceskho]

Codice: [Seleziona]

TRY operazione_da_fare

IF ERROR THEN extramessage.error(error.text, "Ok")

[dex]

mi da:

'extramessage.error 'is not static

[dex]

@ceskho

il codice seguente non mi entra nella struttura if

Codice: [Seleziona]

PUBLIC SUB Button1_Click()
  
   extramessage.Delete(M1.MyNamA & " Vuoi eliminare questo Record?", "Annulla", "Elimina") 
   
   IF extramessage.leggi() = 1 THEN 
      codice da eseguire
   END IF
   
END

in pratica nella sub essendo sequenziale il result è 0 di default e non entra nell if

[Ceskho]

non ho capito...

[dex]

che nella sub button1_click anche se premo il secondo button non entra nella struttura if e non esegue il codice

prova ad inserire questo codice in un form e noterai che non entra nell'if

Codice: [Seleziona]

PUBLIC SUB Button1_Click()
  
   extramessage.Delete("Vuoi eliminare questo Record?", "Annulla", "Elimina") 
   
   IF extramessage.leggi() = 1 THEN 
      message.info("codice eseguito")
   END IF
   
END