[VB] apertura di un form a tutto schemo...

[race2]

VB.NET,

Ho un problemino che mi fa molto fumare, voglio un semplice form a tutto schermo,

quindi setto la proprieta' "WindowState" su "Maximize"

eseguo il progetto e mi apre un Form a tutto schermo, quindi tutto OK,

mentre se clicco nel'eseguibile che ho creato mi mantiene la dimenzione della grandezza reale del form, cioe:

il mio form e' 800X600px con settato WindowsState=Maximized

il mio monitor e' a 1280X1024px e voglio che sia aperto a tutto schermo non a 800X600px....

come devo fare ???

[tas]

Prova ad impostare la proprietà WindowState a run-time, cioè:

Dim f As Form1

f = New Form1()
f.WindowState = FormWindowState.Maximized

f.Show()

[xegallo]

di solito uso questa routine per "ricordare " dimensioni e posizioni

Option Explicit
Public Sub FormWinRegPos(pMyForm As Form, Optional pbSave As Boolean)
    'This Procedure will Either Retrieve or Save Form Posn values
    'Best used on Form Load and Unload or QueryUnLoad
    On Error Goto EH
    With pMyForm
        SaveSetting App.EXEName, .Name, "WindowState", .WindowState
        If .WindowState = vbMinimized Or .WindowState = vbMaximized Then
            .WindowState = vbNormal
        End If
        'Save AppName...FrmName...KeyName...Value
        SaveSetting App.EXEName, .Name, "Top", .Top
        SaveSetting App.EXEName, .Name, "Left", .Left
        SaveSetting App.EXEName, .Name, "Height", .Height
        SaveSetting App.EXEName, .Name, "Width", .Width
    Else
        .Top = GetSetting(App.EXEName, .Name, "Top", .Top)
        .Left = GetSetting(App.EXEName, .Name, "Left", .Left)
        .Height = GetSetting(App.EXEName, Name, "Height", .Height)
        .Width = GetSetting(App.EXEName, .Name, "Width", .Width)
        .WindowState = GetSetting(App.EXEName, _
            .Name, "WindowState", .WindowState)
    End If
End With
Exit Sub
EH:
MsgBox "Error " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

Private Sub Form_Load()
FormWinRegPos Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
FormWinRegPos Me, True
End Sub