Posizione sullo schermo di un Userform

Question

Buonasera,

mi sono cimentato a fare un calendario PopUp ed è praticamente finito, anche con l'aiuto

del grande Norman.

Ora se il form è chiamato da una cella riesco ad agganciare il calendario alla cella con queste due istruzioni:

in Useform_Initialize()

Me.Top = ActiveCell.Top + 184

Me.Left = ActiveCell.Left + 21

e funziona perfettamente. Ma se il calendario è chiamato da un'altra userform, il calendario si aggancia sempre ovviamente

all'ultima cella attiva. C'è un modo per capire invece che è stato chiamato da una userform ed agganciarla ad essa o 

al centro dello schermo?

Forse non si può fare...non lo so.

Grazie in anticipo,

Marco

Answer 1

Ciao Marco,

Grazie Norman.......

sei geniale..... ;-)

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread ed aiutare altri utenti, vorrei chiederti gentilmente di contrassegnare la mia risposta come Risposta.

A proposito del calendario, approfitto per suggerire che il tu modo di riempire il controllo, ossia

    With Me.cmbMese

        .AddItem "Gennaio"

        .AddItem "Febbraio"

        .AddItem "Marzo"

        .AddItem "Aprile"

        .AddItem "Maggio"

        .AddItem "Giugno"

        .AddItem "Luglio"

        .AddItem "Agosto"

        .AddItem "Settembre"

        .AddItem "Ottobre"

        .AddItem "Novembre"

        .AddItem "Dicembre"

    End With

possa essere semplificata così:

    Me.cmbMese.List = Application.GetCustomListContents(4)

Inoltre, in questo modo il calendario diventerebbe internazionale in quanto i mesi elencati nella ComboBox saranno sempre nella lingua dell'utente o, meglio, la lingua imposta nel Pannello di controllo di Windows.

===

Regards,

Norman

Answer 2

Ciao Marco,

mi sono cimentato a fare un calendario PopUp ed è praticamente finito, anche con l'aiuto

del grande Norman.

Ora se il form è chiamato da una cella riesco ad agganciare il calendario alla cella con queste due istruzioni:

in Useform_Initialize()

Me.Top = ActiveCell.Top + 184

Me.Left = ActiveCell.Left + 21

e funziona perfettamente. Ma se il calendario è chiamato da un'altra userform, il calendario si aggancia sempre ovviamente

all'ultima cella attiva. C'è un modo per capire invece che è stato chiamato da una userform ed agganciarla ad essa o 

al centro dello schermo?

Forse non si può fare...non lo so.

Prova quanto segue:

In cima ad un modulo standard, incolla:

'=========>>

Option Explicit

Public myTop As Double

Public myLeft As Double

magari qui:

'=========>>

Option Explicit

Public rDate As Range

Public bDateEntryMode As Boolean

Public myTop As Double

Public myLeft As Double

Nella procedura UserForm_Initialize nel modulo di codice  della Userform frmCalendario, cancella:

        Me.Top = ActiveCell.Top + 184

        Me.Left = ActiveCell.Left + 21

In cima alla procedura, incolla:

    Me.StartUpPosition = 0

      If myTop = 0 Then

        Me.Top = ActiveCell.Top + 184

        Me.Left = ActiveCell.Left + 21

    Else

        Me.Top = myTop

        Me.Left = myLeft

    End If

Nello stesso modulo di codice, incolla la seguente procedura:

'--------->>

Private Sub UserForm_Terminate()

    myTop = 0

    myLeft = 0

End Sub

'<<=========

Ponendo che ci sia un controllo CommandButton sull'altra Userform, nel modulo di codice di quella Userform, incolla qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Private Sub UserForm_Initialize()

    With Me

        .StartUpPosition = 0

        .Top = Application.Top + 100

        .Left = (Application.Width - .Width) / 2

    End With

End Sub

'--------->>

Private Sub CommandButton1_Click()

    Unload frmCalendario

    With Me

        myTop = .Top + .Height + 10

        myLeft = .Left

        frmCalendario.Show vbModeless

    End With

End Sub

'<<=========

Nota che,  come è scritto il codice, dopo l'eventuale spostamento dell'altra Userform, ricliccando il controllo CommandButton, il calendario si spostera nella nuova posizione sotto l'altra Userform.

Potresti scaricare il mio file di prova Marco20180427.xlsm

===

Regards,

Norman

Answer 3

Ciao Marco.

vedo di comprare il primo libro.

Anche se è in inglese, spero sia di "facile" comprensione....

John Walkenbach ha il dono di essere capace di spiegare temi difficili in modo semplice ed illuminante. 

Poi. in caso di difficolta, non dimenticare che siamo sempre qui per aiutarti con i tuoi studi!

===

Regards,

Norman

Answer 4

Questa proprio non la sapevo......

ma dove posso trovare tutte queste informazioni?

Puoi elencarmi uno o due libri VBE che parli di tutte queste cose?

Grazie Norman....

Answer 5

Grazie Norman.......

sei geniale..... ;-)