Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
21/06/08 16:55
Papetz
Ciao a tutti, per un programmino mi serve prendere la risoluzione dello schermo in uso dal pc dove viene aperto. Esiste un api o qualcos'altro? mi affido a voi.;)
aaa
21/06/08 17:34
crash outside control
Prova con questo:

My.Computer.Screen.Bounds.Size.ToString

Solo larghezza:
My.Computer.Screen.Bounds.Width.ToString

Solo altezza:
My.Computer.Screen.Bounds.Height.ToString

Ciao :)
aaa
21/06/08 20:19
Papetz
Si grandissimo funzionano perfettamente, solo che messi nel programma, come faccio a dirgli di assegnare alla location della form la metà dell'altezza e della larghezza dello schermo?
Cioè se devo centrare una cosa, prendo la larghezza es. 1024 e altezza es. 768
Quindi voglio che la location X della form sia 512 e la location Y della form sia 384.
Io ho provato a mettere cosi.

Me.Location.X.ToString = My.Computer.Screen.Bounds.Width.ToString

Mi dice che è una value e quindi non ci puo essere assegnato un valore ma dalle propietà lo posso cambiare. Ho provato anche a mettere start position manual cosi che l'avrei potuto cambiare ma niente.. Ditemi voi come sempre:asd:
aaa
21/06/08 21:37
crash outside control
Prova con questo:

Me.Location = New Point(My.Computer.Screen.Bounds.Width)

Dovrebbe essere ciò che chiedi :k:

Ciao e buona programmazione! :)
Ultima modifica effettuata da crash outside control 21/06/08 21:37
aaa
21/06/08 22:23
Papetz
Grazie mille sei un figo.
Funziona sta cosa per mettere la form al centro ma devo cliccare due volte.
Alla prima si mette da una parte verso sinistra dello schermo e all'altra si mette al centro.
Non capisco perchè :O
Vabè ti metto il code anzi VI metto il code.
Sarà pieno di errori e di "allungatoie" sarei contento se me lo ripostaste fatto bene con qualche spiegazione.
Grazie a tutti siete fantastici:k:
Public Class Form1

    Public altezza As Integer
    Public larghezza As Integer
-------------------------------------- 
Public Sub prendi_posizione()
        larghezza = Val(My.Computer.Screen.Bounds.Width) / Val(2)
        altezza = Val(My.Computer.Screen.Bounds.Height) / Val(2)
    End Sub
--------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        prendi_posizione()
        Form2.Location = New Point(larghezza, altezza)
        Form2.Show()
    End Sub
---------------------------------------
End Class
aaa
21/06/08 22:38
crash outside control
Ciao, non ne sono sicuro, perchè non posso testare con il compilatore...
Credo che per far aprire "form2" al centro, devi prima aprirlo e poi assegnargli la posizione...

Public Class Form1 

    Public altezza As Integer 
    Public larghezza As Integer 
'-------------------------------------- 
Public Sub prendi_posizione() 
        larghezza = Val(My.Computer.Screen.Bounds.Width) / Val(2) 
        altezza = Val(My.Computer.Screen.Bounds.Height) / Val(2) 
    End Sub 
'-------------------------------------- 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        prendi_posizione() 
        form2.show()        
        Form2.Location = New Point(larghezza, altezza) 
    End Sub 
'--------------------------------------- 
End Class 


E' l' unica soluzione che mi viene in mente, provala e poi ci fai sapere.
Ciao :)
aaa
21/06/08 23:34
Papetz
Ottimo funziona tutto grazie mille:love:
aaa
21/06/08 23:53
crash outside control
Di niente, figurati!
Ciao :) :k:
aaa