Risultati da 1 a 10 di 10

Discussione: Minimizzare UserForm



  1. #1
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    83
    Versione Office
    2013
    Utile ricevuti
    0
    Utile dati
    0

    Minimizzare UserForm

    Buonasera a tutti.
    Vorrei poter risolvere un problema sulla minimizzazione su UserForm, e quindi vi chiedo una mano.

    Dalla rete ho prelevato il codice che funziona ed ho constatato che la "X" è inibita ma vorrei che non lo fosse.

    Inoltre se è possibile vorrei conoscere il procedimento per bloccare i pulsanti sul foglio di lavoro, applicare un eventuale cornice e dare un colore allo sfondo.

    Come sempre allego il file e ringrazio anticipatamente degli aiuti e suggerimenti.

    Mauro
    File Allegati File Allegati

  2. #2
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Minimizzare UserForm

    Ciao Dautattmaui

    Certo che il codice nel file è bello complesso comunque per ripristinare il bottone di chiusura devi inserire nell'evento Initialize delle tre userform il codice che vedi sotto

    Codice: 
    Private Sub UserForm_Initialize()
    Set ClsFormChanger = New CFormChanger
    ClsFormChanger.ShowSysMenu = True
    ClsFormChanger.ShowCloseBtn = True
    ClsFormChanger.ShowMinimizeBtn = True
    Set ClsFormChanger.Form = Me
    End Sub
    In pratica devi solo sostituire

    Codice: 
    ClsFormChanger.ShowCloseBtn = False
    con

    Codice: 
    ClsFormChanger.ShowCloseBtn = True
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  3. #3
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Minimizzare UserForm

    Non ho ben capito la seconda domanda.

    Per quanto riguarda il colore dei pulsanti vai nella finestra delle proprietà del pulsante e modifica BackColor.

    Per la cornice potresti usare una casella di gruppo (la trovi tra i controlli modulo) perché sui fogli non è previsto il frame che invece è presente sulle userform.

    Infine per il bloccaggio intendi che quando scrolli il foglio i pulsanti restino sempre visibili?

    Se si l'unica cosa che mi viene in mente è il Blocca Riquadri posizionando i pulsanti all'interno della zona bloccata.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  4. #4
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    83
    Versione Office
    2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Minimizzare UserForm

    Grazie Alfrimpa,

    la minimizzazione funziona ..... vorrei se è possibile effettuare due modifiche:

    - l'inserimento di un button affinchè la minimizzazione possa avvenire tramite il button.
    - bloccare al centro del video UserForm.

    In alcuni lavoretti prelevati dalla rete, noto che i pulsanti sono bloccati non si riesce a spostarli, inoltre ho notato che hanno una cornice.
    Allego nuovo file.

    File Allegati File Allegati

  5. #5
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Minimizzare UserForm

    Cercando su Internet si trova di tutto

    Per il blocco al centro ella non spostabilità della userform

    Inserisci questo codice in un modulo standard

    Codice: 
    Option Explicit
     
    Private Declare Function FindWindow Lib "User32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
     
    Private Declare Function GetWindowLong Lib "User32" _
    Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
     
    Private Declare Function SetWindowLong Lib "User32" _
    Alias "SetWindowLongA" (ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
     
    Private Declare Function DrawMenuBar Lib "User32" ( _
    ByVal hwnd As Long) As Long
     
    Sub RemoveCaption(objForm As Object)
         
        Dim lStyle          As Long
        Dim hMenu           As Long
        Dim mhWndForm       As Long
         
        If Val(Application.Version) < 9 Then
            mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
        Else
            mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
        End If
        lStyle = GetWindowLong(mhWndForm, -16)
        lStyle = lStyle And Not &HC00000
        SetWindowLong mhWndForm, -16, lStyle
        DrawMenuBar mhWndForm
         
    End Sub
     
    Sub ShowForm()
         
        UserForm1.Show False
         
    End Sub
    Nella form questo codice nasconde completamente la barra del titolo ma anche i pulsanti per chiusura, minimizzazione e massimizzazione che dovrai gestire con altri pulsanti/codice.

    Non so se si può rendere non spostabile una form senza togliere la barra del titolo.

    Ti allego il file
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  6. #6
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    83
    Versione Office
    2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Minimizzare UserForm

    Grazie Alfrimpa per l'aiuto, ed in attesa del tuo intervento, in rete ho trovato dei codici per avere al centro del video UserForm ed inoltre sono riuscito modificando il codice per la minimizzazione dell'UserForm, ad inserire un pulsante ma non funziona perfettamente e spero di riuscire a risolvere.

    Non sono riuscito al momento a trovare il procedimento per bloccare i pulsanti su UserForm se puoi aiutarmi o darmi dei suggerimenti a riguardo al file "Prova pulsante", te ne sarei grato.

  7. #7
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Minimizzare UserForm

    Scusa puoi spiegare meglio cosa intendi quando dici: "trovare il procedimento per bloccare i pulsanti su UserForm"?

    Vuoi disabilitarli?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  8. #8
    L'avatar di PieroS71
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Santarcangelo di Romag
    Messaggi
    11
    Versione Office
    2016
    Utile ricevuti
    3
    Utile dati
    0

    Re: Minimizzare UserForm

    E se come un'alternativa invece di minimizzare la maschera (form), richiami un'altra form piccola, posizionata in un angolo, con solo un pulsante che serve solo a richiamare la prima form?

    Se ho capito il problema

    Metti un pulsante nella form principale con un codice tipo questo:
    Codice: 
    Private Sub RIDUCI_Click()
    
    
    '   DICHIARAZIONI
        Dim POSX, POSY As Integer
        POSX = 0
        POSY = 0
    
    
    '   SOSTITUISCE AL PANNELLO UNO RIDOTTO
        FORMPRINCIPALE.Hide
        RIDOTTO.Show vbModeless
        RIDOTTO.Move POSX, POSY
    
    
    End Sub
    E un codice analogo nel pulsante della form ridotta
    Ogni scelta che compiamo determina ciò che siamo / Every choice we make determines who we are / Chaque choix que nous faisons détermine qui nous sommes

  9. #9
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    83
    Versione Office
    2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Minimizzare UserForm

    Grazie Alfrimpa e scusa se non sono stato chiaro.

    Nel file che ho inviato si notano due pulsanti che sono bloccati sul foglio di lavoro e non si possono spostare ed hanno una cornice.

    Non sono riuscito e non ho trovato nulla in rete riguardo il procedimento per sbloccarli e bloccarli, in pratica gradirei fare la stessa cosa con alcuni pulsanti.


  10. #10
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Minimizzare UserForm

    Ciao dautattmaui

    Quelli che vedi sul foglio non sono pulsanti nel senso classico ossia pulsanti di comando (controlli modulo o ActiveX) bensì forme (cui possono essere associate delle macro) che si possono personalizzare come si vuole in molti modi; inserisci una forma su foglio cliccaci su con il tasto destro del mouse scegli Formato Forma o Proprietà e ti puoi sbizzarrire.

    Quanto al fatto che non si spostano, come dicevo anche all'inizio, esse sono poste in una zona del foglio bloccato con Blocca Riquadri.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. UserForm
    Di Laura Belli nel forum Domande su Excel VBA e MACRO
    Risposte: 26
    Ultimo Messaggio: 24/03/17, 21:02
  2. [UserForm] userform in pdf
    Di aurelio125 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 23/02/17, 23:04
  3. UserFORM
    Di Tiziano nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 02/11/16, 18:21
  4. UserFORM
    Di Tiziano nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 02/11/16, 16:13
  5. Minimizzare due funzioni con 2 variabili
    Di Elan nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 02/01/16, 12:42

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •