[VB6] Posizione di una form

[marco.santilli]

Nelle impostazione della form sotto POSIZIONE, c'è:

StartUpPosition

ed io l'impostato su "2 - CenterScreen"

Ora lo voglio via codice.

Ho scritto

Form2.StartUpPosition

Poi che valore devo mettere per fare tale operazione????

Ciao e grazieeeeeeeee

[oregon]

Non usare lo StartupPosition a runtime.

Posiziona il form con un move ...

[Gionnico]

marco.santilli ... Da mezz'ora sei Membro Senior!! Ti rendi conto??????

[marco.santilli]

Originariamente inviato da Gionnico
marco.santilli ... Da mezz'ora sei Membro Senior!! Ti rendi conto??????

Cavolo è vero...non mi ero accorto

Grandeeeeeeeeeeee

[marco.santilli]

Originariamente inviato da oregon
Non usare lo StartupPosition a runtime.

Posiziona il form con un move ...

Con un move cosa intendi????


Ciao e grazieeeeeee

[Artemio]

me.move x,y

[marco.santilli]

Ok provo

Ciao e grazieeeeeeee

[LMondi]

Se usi più Frm puoi per ciascuna Frm attivare l'evento
Public Sub Form_Activate()
'Quando diventa la finestra attiva controlla che la Frm sia al Top:
CenterFrm Me
End Sub

Poi in un modulo bas:

' Verifica le dimensioni del Frm e le riposiziona:
Public Sub CenterFrm(Frm As Form)
    
    Dim strFrmCen As String
    
    strFrmCen = MDIFrm.ActiveForm.Name
    Select Case strFrmCen
        Case "FrmCopia"
            With FrmCopia
                If (.WindowState = vbNormal And .Visible = True And .Left <> 0) Or _
                   (.WindowState = vbNormal And .Visible = True And .Top <> 0) Or _
                   (.WindowState = vbNormal And .Visible = True And .Height <> 9705) Or _
                   (.WindowState = vbNormal And .Visible = True And .Width <> 14505) Then
                    .Move 0, 0
                    .Height = 9705
                    .Width = 14505
                End If
            End With
'... ...
    End Select
End Sub

[marco.santilli]

Ok lo provo

Ciao e grazieeeeeeeee