Buongiorno a tutti.
Anni fa programmavo in gambas2 poi per un po di tempo ho smesso e ora sto ricominciando con gambas3. Questo forum come allora è certamente molto utile e infatti provo a richiedere aiuto.
Dal programma principale richiamo un form. La prima cosa che effettua questo programma richiamato è un controllo per vedere se può essere eseguito. Questo controllo avviene in base al confronto tra 2 numeri. In un caso esegue il programma, nell'altro caso scrive un messaggio e deve uscire subito.
Come faccio a uscire subito da questo programma? In realtà anche se non deve essere eseguito il programma mi evidenzia la form con il messaggio e poi mi consente di uscire. E' possibile uscire facendo vedere solo il messaggio. Grazie in anticipo per le risposte.
Public Sub Form_Open()
If ValProgramma > M1.UtenteValProg Then
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
Me.Close
Endif
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
Inizio()
End
Public Sub Form_Open()
If ValProgramma > M1.UtenteValProg Then
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
me.hide
Me.Close
Else
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
Inizio()
Endif
End
Il codice sopra dovrebbe essere la modifica che suggerivi. Il problema permane.
Questo codice serve a impedire la esecuzione del programma se l'utente non ha le giuste credenziali( che sono poi un valore numerico).
Se l'utente non ha le giuste credenziali il programma viene eseguito, effettuato il controllo viene chiuso. Gambas invece visualizza sempre il form.
Come fare a farlo uscire senza visualizzare il form?
In realtà poi non mi interessa neanche l'hide io vorrei chiudere il programma e tornare al programma chiamante. Spero di aver chiarito.
Anche inserendo il return il problema rimane. :hatecomputer:
Public Sub Form_Open()
If ValProgramma > M1.UtenteValProg Then
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
Return
Me.Close
Else
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
Inizio()
Endif
End
Che non sia possibile inserire controlli dentro il Form_Open()?
Public Sub Form_Open()
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
If ValProgramma > M1.UtenteValProg Then
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
Return
Me.Close
Else
Inizio()
Endif
End
Public Sub Form_Open()
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
If ValProgramma > M1.UtenteValProg Then
Application.Daemon = True
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
Me.Close
Return
Else
Inizio()
Endif
End
In realtà il messaggio sta dentro Form_Open(). Come si comporta Form_Open().
A me servirebbe quello che in altri linguaggi sono le operazioni che vengono fatte prima dell'apertura della form. E' fattibile?
Bravo Vuott. Grazie.
il Me.show risolve. grazie
Public Sub Form_Open()
Me.Center
Me.caption = "GESTIONE RENDICONTAZIONE " & Me.name
Me.Show
If ValProgramma > M1.UtenteValProg Then
Application.Daemon = True
Message.Warning("Programma non eseguibile - Utente non in possesso si credenziali")
Me.Close
Return
Else
Inizio()
Endif
End