COMO DETERMINAR A POSICAO DO FORM.

ADRIANOLOU 11/02/2014 14:48:32
#434551
Estou com um problema... tem um programa que ele abre ao lado direito na parte superior da tela, porem quando abro em outro PC com resolução diferente ele não fica onde eu quero, ou então nem aparece na tela, pois esta posicionado fora da resolução atual...
Alguém poderia me ajudar?
JCM0867 12/02/2014 12:25:01
#434635
nas propriedades do Form coloque [txt-color=#0000f0]StartPosition = [Ô]CenterParent[Ô] ou [Ô]CenterScreen[Ô][/txt-color]
ADRIANOLOU 12/02/2014 14:00:36
#434641
Então só que eu quero deixar o Form na Direita não no centro
ROBIU 12/02/2014 14:25:58
#434648
Coloque isso no load do form
Me.Location = New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, 0)
ADRIANOLOU 24/02/2014 14:39:30
#435215
Fiz de outro jeito... determinei a posição para as resoluções mais utilizadas

ficou assim

LabelResolucao.Text = My.Computer.Screen.Bounds.Width.ToString & [Ô]x[Ô] & My.Computer.Screen.Bounds.Height.ToString
If LabelResolucao.Text = [Ô]800x600[Ô] Then

Me.Location = New Point(480, 4) [ô]800 x 600


End If

If LabelResolucao.Text = [Ô]1024x768[Ô] Then

Me.Location = New Point(705, 4) [ô]1024 x 768

End If

If LabelResolucao.Text = [Ô]1280x720[Ô] Then

Me.Location = New Point(960, 4) [ô]1280 x 720

End If

If LabelResolucao.Text = [Ô]1280x768[Ô] Then

Me.Location = New Point(960, 4) [ô]1280 x 768

End If

If LabelResolucao.Text = [Ô]1280x600[Ô] Then

Me.Location = New Point(960, 4) [ô]1280 x 600

End If

If LabelResolucao.Text = [Ô]1366x768[Ô] Then

Me.Location = New Point(1050, 3) [ô]1366 x 768

End If
Tópico encerrado , respostas não são mais permitidas
Voltar