Autore Topic: [risolto]form in modalità assoluta  (Letto 721 volte)

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
[risolto]form in modalità assoluta
« il: 02 Gennaio 2010, 15:44:12 »
ciao raga

mi serve assegnare a un form (quando aperto) la priorità assoluta, e cioè non deve perdere il focus e finchè non viene chiuso tutto il programma deve rimanere bloccato o in attesa.

in visualbasic c'era questa proprietà ma non ricordo come si chiamava.

Offline milio

  • Senatore Gambero
  • ******
  • Post: 1.273
  • Chi parla poco dice tanto...
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #1 il: 02 Gennaio 2010, 16:04:07 »
devi inserire nel form che vuoi tenere attivo una funzione di questo genere:
Codice: [Seleziona]

PUBLIC FUNTION Run() as Boolen

    RETURN NOT ME.ShowModal()

END


Nella sub che richiama il form farai così:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()
DIM Risp AS Boolean

   Risp = Form1.Run()

END


Chiudendo la Form1 con ME.Close(TRUE) restituirà alla variabile Risp il valore TRUE e viceversa.

Offline milio

  • Senatore Gambero
  • ******
  • Post: 1.273
  • Chi parla poco dice tanto...
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #2 il: 02 Gennaio 2010, 16:05:10 »
ops:  PUBLIC FUNTION Run() as Boolean

Offline milio

  • Senatore Gambero
  • ******
  • Post: 1.273
  • Chi parla poco dice tanto...
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #3 il: 02 Gennaio 2010, 16:07:13 »
altra castroneria: restituisce FALSE perchè ho messo RETURN NOT ME.ShowModal()

scusa ma sono un po' rinco :)

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #4 il: 02 Gennaio 2010, 16:20:12 »
grazie per le risposte, ora provo a modificare il form

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #5 il: 02 Gennaio 2010, 16:26:31 »
funziona

ps avevi dimenticato anche una a, postumi post feste  :1birra:  :1birra:

Codice: [Seleziona]
PUBLIC FUNCTION Run() AS Boolean     
       RETURN ME.ShowModal()  
      END


Codice: [Seleziona]
PUBLIC SUB Button2_Click()
       DIM Risp AS Boolean    
          Risp = Form1.Run()
       END


grazie e alla prossima

Offline milio

  • Senatore Gambero
  • ******
  • Post: 1.273
  • Chi parla poco dice tanto...
    • Mostra profilo
Re: form in modalità assoluta
« Risposta #6 il: 02 Gennaio 2010, 16:35:22 »
più che post festa e' l'alzarsi il mattino alle 5 per il lavoro. :fuso: