Newsgroup: it.comp.lang.visual-basic
Titolo: Come eliminare il tasto X da un'applicazione in esecuzione

Ciao a tutti,
coma da oggetto volevo sapere se era possibile ed eventualmente come
eliminare la X in alto a destra dei programmi in esecuzione per impedire
un'accidentale chiusura del programma.
Grazie per gli eventuali suggerimenti

Grazie per gli eventuali suggerimenti
Ciauz
Aran Banjo
-- 
web: 
www.ponchio.it
 (non aspettatevi molto)
Replay to: *[[banjo]]spamdim..@**
ponchio.it
**
"Il cul è per la gente dotta, per il villan c'è la potta"
"E' un vero peccato che tutte le persone che sanno come far
funzionare il paese siano troppo occupate a guidare taxi o
a tagliare capelli" - George Burns

 Grazie per gli eventuali suggerimenti
Prego :-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
email spamtrap: 
spam...@nicolaottomano.it

 ha scritto nel messaggio
news:4138378c...@news.individual.net...


 ha scritto nel messaggio
news:2pqsshF...@uni-berlin.de...


Roberto Cortiana wrote:
[CUT]
Hai qualche buon motivo per postare dal futuro ?
Un Paperino "e due".

 
E' in vacanza a tahiti!
;-)
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ;-)
Ok, quello _sarebbe_ un buon motivo per l'orario, ma cacchio...
_tu_ se fossi a Tahiti penseresti a postare qui ? :-))
Bye, G.

 ha scritto nel messaggio
news:ch97o7$10ga$1...@newsreader2.mclink.it...

e' possibile solo con le API ,
'====================================
Private Declare Function DeleteMenu Lib "user32" (ByVal _
                hMenu As Long, ByVal nPosition As Long, _
                ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = &H400
Private Const SC_CLOSE = 6
Private Sub DisChiudi()
' Disattivare X e menu' Chiudi
Dim hMenu As Long, k As Long
    hMenu = GetSystemMenu(Me.hWnd, False)
    k = DeleteMenu(hMenu, SC_CLOSE, MF_BYPOSITION)
End Sub
'====================================
HTH
bye
r

Il 03/09/2004 18.31, Paperino scrisse:

Io sono a tahiti! :-)
	maxx.magari



Ernesto / Luigino Fe**ari  ("- Origin: ") lo faceva :
http://www.bynoi.com/
www.google.it
  "La vera storia di Luigino"
--
Fosco

 oppure nel Query_Unload metti un cancel = True
Assolutamente no, quel processo cosi' non si chiude mai, ne' quando il 
programma termina regolarmente, ne' alla chisura di Windows (dando cosi' 
  sempre il pannellino che dice che l'applicazione non risponde  che va 
chiusa a mano terminandola brutalmente).
La soluzione (senza usare API o altro) consiste semplicemente nel 
controllare il valore UnloadMode nell'evento QueryUnload ed ignorare il 
tentativo di chiusura da quel pulsante, consentendo al programma di 
chiudersi se ucciso dal task manager o durante uno shutdown. Un esempio 
codice e' questo, puoi aggiungere anche il tuo condice per far cose 
diverse a seconda se sia stato chiuso da task manager, se :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
     Select Case UnloadMode
     Case vbFormControlMenu
         ' È stato scelto il comando Chiudi dal menu di controllo del
         ' form o tasto X
         Cancel = True
     Case vbFormCode
         ' L'istruzione Unload viene richiamata dal codice.
     Case vbAppWindows
         ' La sessione  Windows è conclusa.
     Case vbAppTaskManager
         ' L'applicazione è stata chiusa tramite Task Manager
     Case vbFormMDIForm
         ' Il form secondario MDI viene chiuso in quanto viene
         ' chiuso il form MDI principale.
     Case vbFormOwner
         ' Il form viene chiuso in quanto viene chiuso il proprietario.
     End Select
End Sub
-- 
Ciao!
    -DocDoc-
--- Per scrivermi: docdoc()
sertel.net
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE!     
http://www.spamterminator.it/

 ha scritto nel messaggio
news:hZ2_c.194339$OR2.9...@news3.tin.it...

questo codice a me NON funzione (ho win-xp pro) e poi manca la declare
di GetSystemMenu
ciao leonello

 ha scritto nel messaggio
news:qPD_c.15015$G36....@tornado.fastwebnet.it...

per la dichiarazione provvedo subito:
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
                hwnd As Long, ByVal bRevert As Long) As Long
per quello che riguarda XP pro, le funzioni sono supportate
anche da quel SO, ma io non posso provare, sorry!

BorderStyle del form a None.
beh in realtà si potrebbe anche impostare più semplicemente la
proprietà controlbox su false solo che in questo modo vengono
eliminati anche i pulsanti riduci a icona e ingrandisci. non so se può
andare bene per il suo caso ma può essere un'idea meno drastica di
togliere il bordo al form


 togliere il bordo al form
Hai ragione, non ci avevo pensato.


 anche da quel SO, ma io non posso provare, sorry!
OK  funziona anche con XP pro
leonello