[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