Visualizzazione dei risultati da 1 a 8 su 8
  1. #1

    [VB 5.0] Disabilitare tasto chiusura form

    Salve!
    Qualcuno di voi conosce il metodo per disabilitare il tasto di chiusura del form (la X in alto a destra, per intenderci!). Ricordo di aver letto un post del genere ma la ricerca non funge!!!

    Grazie

  2. #2
    Con la proprietà ControlBox puoi togliere l'icona, ma così facendo spariscono anche le altre (Minimize e Maximize). Altrimenti, per impedire via codice la chiusura del form fai così:

    codice:
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        If UnloadMode = vbFormControlMenu Then Cancel = True
    End Sub
    Chi non cerca trova.

  3. #3
    ok!


    Grazie

  4. #4
    vuoi mettere che figata l'utente preme un bottone e non succede niente
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  5. #5
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    Forse la risposta non è coerente, ma se fai così, ti chiede se vuoi chiudere il programma o no:
    codice:
    'Chiusura della Frm con Exit o X:
    Private Sub Form_QueryUnload(Cancel As Integer, unloadMode As Integer)
    
        Select Case unloadMode
             Case vbFormControlMenu
              'il form è chiuso dall'utente:
                Call mnuFileExit_Click
        End Select
        
        'Non esce dall'applicazione:
        If intRisCD = vbNo Then
           Cancel = 1
        End If
    
    End Sub
    '-------------------------------------
    'Exit da menù file:
    Private Sub mnuFileExit_Click()
           
           intRisCD = MsgBox("Chiudere l'applicazione ?", vbYesNo + vbQuestion, "Applicazioni Aziendali")
           If intRisCD = vbYes Then
                Unload Form1
                Set Form1 = Nothing
           End If
           If intRisCD = vbNo Then
                Exit Sub
           End If
    End Sub
    LM

  6. #6
    forse mi sbaglio ma nell'aria posso sentire un certo sarcasmo



    per l'uso che ne devo fare (sperimentale!) a me va benissimo anche così

  7. #7
    è ovvio che ero sarcastico, ma è un problema di molti programmatori non preoccuparsi del fatto che chi usa i loro programmi si aspetti comunque qualcosa ad una loro azione
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  8. #8
    ciò che dici è assolutamente vero! La questione è che gli utilizzatori di questo programma non dovranno in alcun modo unlodare i form senza aver preso una decisione chiara (nel caso specifico un'opzione visto che si tratta di una serie di questionari a risposta multipla).

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.