FELIXJM
|
NITEROI RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/03/2008 13:16 hs
Qual a propriedade que faz com que um FORM apareça automaticamente no canto superior direito da tela?
|
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/03/2008 14:38 hs
colega para definir a posição do form basta fazer o seguinte isto é para uma resolução de 1024 X 768 cole este código no load do form Private Sub Form_Load() Me.Left = 15360 - Me.Width Me.Top = 0 End Sub e pronto
|
|
|
|
Postada em 24/03/2008 15:05 hs
Obrigado, ia perguntar se fosse tambem para 800x600 mas consegui fazer. Private Sub Form_Load() Dim intX As Integer Dim intY As Integer Dim strResolucao As String intX = Screen.Width / Screen.TwipsPerPixelX intY = Screen.Height / Screen.TwipsPerPixelY strResolucao = intX & "x" & intY If strResolucao = "800x600" Then Me.Left = 12000 - Me.Width Me.Top = 0 End If If strResolucao = "1024x768" Then Me.Left = 15360 - Me.Width Me.Top = 0 End If End Sub
OK.
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/03/2008 19:44 hs
Parabens colega mandei uma dica simples, e você fez um código que detecta a resolução e faz o posicionamento, gostei. é isso ai. viva o vb ate
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2008 19:39 hs
Felix estive analizando o código e veja onde cheguei seja qual for a resolução: Private Sub Form_Load() Me.Left = Screen.Width - Me.Width Me.Top = 0 End Sub show né, bastou uma luz e tudo ficou mais claro
|
|
|