Oppure

Loading
05/12/07 7:44
mash_mash
Buongiorno a tutti ragazzi.
Rieccomi con un altro rompicapo.
Vorrei adattare le dimensioni di un form allo schermo di ogni pc sul quale gira il mio "piccolo" programmino.
Es. a casa ho uno schermo 17" dove il form in oggetto occupa tutto lo spazio del desktop , se porto il programma su un pc abbinato ad uno schermo 21" il form occupa solo parzialmente il desktop.
Io pensavo di far leggere al programma il Nr dei pixel sul quale gira il programma e adattare il form a questi valori .
Dico bene oppure dico solo fesserie ?
Ciao in anticipo.
aaa
05/12/07 13:06
P4p3r0g4
Private Declare Function GetDesktopWindow Lib "user32" () As Long



ora avrai l'oggetto screen
altezzaschermo = screen.height
larghezzaschermo = screen.width


in generale per un full-screen
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
Ultima modifica effettuata da P4p3r0g4 05/12/07 13:07
aaa
05/12/07 14:54
mash_mash
Grazie mille , provero' ad applicarlo appena posso.
aaa
05/12/07 15:41
mash_mash
ho provato ad applicare il tuo aiuto al mio programma , ma a me purtroppo non funziona.
Puoi aiutarmi a scrivere perpiacere il codice completo per un fullscreen di un form ?
Voglio vedere dove sbaglio.
Grazie.
aaa
05/12/07 16:35
gius
Prova solo questo
Form1.Width = Screen.Width 
Form1.Height = Screen.Height 

e poi se ci sono errori dici quali sono
aaa
05/12/07 17:26
P4p3r0g4
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Sub Form_Load()
Form1.Left = 0
Form1.Top = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
End Sub

A Patto che il tuo Form Si chiami "Form1" questo codice non puo non funzionarti.
aaa
05/12/07 18:02
GrG
Scusatemi, non vorrei sbajare ma non si potrebbe fare:

form1.windowstate = vbMaximized

oppure fare

form1.maxbutton
Ultima modifica effettuata da GrG 05/12/07 18:20
aaa
05/12/07 18:18
gantonio
Scusa P4p3r0g4, ma a cosa ti serve la API GetDesktopWindow se non la usi (e non la usi perche' non serve ...)?

In ogni caso, puo' bastare la

Private Sub Form_Load()
WindowState = vbMaximized
End Sub
Ultima modifica effettuata da gantonio 05/12/07 18:19
aaa