IMAGEM DO FORM MDI SE AJUSTAR A TELA

SAMATE82 19/01/2011 11:06:57
#362727
como faço para a imagem do meu MDIFORM se ajuste a tela do monitor, pis eu fiz em uma tela de 15[Ô], quando eu abro na tela de 19[Ô], a imagem fica menor. como corrigir isso?
NILTON.VIANNA 19/01/2011 17:47:50
#362761
Private Sub Obtem()
Dim xTwips%, yTwips%, xPixels#, YPixels#
xTwips = Screen.TwipsPerPixelX
yTwips = Screen.TwipsPerPixelY
YPixels = Screen.Height / yTwips
xPixels = Screen.Width / xTwips
Debug.Print [Ô]A Resolução é: [Ô] & Str$(xPixels) + _
[Ô] por [Ô] + Str$(YPixels)
End Sub
CLINS 19/01/2011 18:54:34
#362769
Citação:

:
Private Sub Obtem()
Dim xTwips%, yTwips%, xPixels#, YPixels#
xTwips = Screen.TwipsPerPixelX
yTwips = Screen.TwipsPerPixelY
YPixels = Screen.Height / yTwips
xPixels = Screen.Width / xTwips
Debug.Print [Ô]A Resolução é: [Ô] & Str$(xPixels) + _
[Ô] por [Ô] + Str$(YPixels)
End Sub



Isso vai mostrar para vc a reolução atual do desktop.
ADRIANOM 20/01/2011 22:35:46
#362905
Nenhuma novidade? Estou acompanhando este tópico!!!
FININHO 21/01/2011 02:26:44
#362910 Resposta escolhida
SAMATE, no link abaixo tem um código que redimensiona a imagem de acordo com o MDIFORM.
http://www.vb-helper.com/howto_mdi_background_picture.html
ADRIANOM 24/01/2011 00:20:16
#363188
Seu exemplo usa um picturebox.. mas se for definido como background direto no mdi pai?
SAMATE82 24/01/2011 13:57:18
#363266
valeu galera de certo, usei o exemplo do site que o fininho passou,

adaptado ficou assim

Private Sub MDIForm_Activate()
MDIForm_Resize
End Sub

Private Sub MDIForm_Resize()
Dim client_rect As RECT
Dim client_hwnd As Long


picStretched.Move 0, 0, _
ScaleWidth, ScaleHeight

[ô] Copy the original picture into picStretched.
picStretched.PaintPicture _
picOriginal.Picture, _
0, 0, _
picStretched.ScaleWidth, _
picStretched.ScaleHeight, _
0, 0, _
picOriginal.ScaleWidth, _
picOriginal.ScaleHeight

[ô] Set the MDI form[ô]s picture.
Picture = picStretched.Image

[ô] Invalidate the picture.
client_hwnd = FindWindowEx(Me.hwnd, 0, [Ô]MDIClient[Ô], vbNullChar)
GetClientRect client_hwnd, client_rect
InvalidateRect client_hwnd, client_rect, 1

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