USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Centralizar imagem num form MDI
Postada em 25/2/2002 por MarceloGomes            
Primeiro, dentro do form MDI, crie 3 objetos PictureBox, sendo que o Picture3 agrupa o Picture2 e Picture1 (ou seja, desenhe primeiro o Picture3 e depois desenhe o Picture1 e o Picture2 dentro do Picture3).
Coloque o Picture3 e o Picture1 do tamanho total do MDI.  Deixe o Picture2 num tamanho normal.

Depois, crie nas declaracoes do MDI, coloque o seguinte código:

Type BITMAP '24 bytes
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Sub ResizeCenterWallpaper()
    Dim Rc As RECT
    Dim bmWallpaper As BITMAP
    Dim iSX As Integer, iSY As Integer, iX As Integer
    Dim iY As Integer, iWidth As Integer, iHeight As Integer
    Dim dAspect As Double
    hMDIClientwnd& = FindWindowEx(Me.hWnd, 0, "MDIClient", vbNullString)
    GetWindowRect hMDIClientwnd&, Rc
    hdc& = Picture2.hdc
    iWidth = (Rc.Right - Rc.Left) ' = rc.Width
    iHeight = (Rc.Bottom - Rc.Top) ' = rc.Height
    
    Picture2.Width = iWidth * Screen.TwipsPerPixelX
    Picture2.Height = iHeight * Screen.TwipsPerPixelY
    
    GetObject Picture1.Image, 24, bmWallpaper
    
    iSX = bmWallpaper.bmWidth ' The current width of the picture
    iSY = bmWallpaper.bmHeight ' The current height of the picture
    
    dAspect = iSX / iSY
    
    If (iSX > iWidth) Then
        iSX = iWidth
        iSY = iWidth / dAspect
    End If
    
    If (iSY > iHeight) Then
        iSX = iHeight * dAspect
        iSY = iHeight
    End If
    
    iX = ((iWidth - iSX) / 2) ' Left of picture
    iY = ((iHeight - iSY) / 2) ' Top of picture
    
    hBrush& = CreateSolidBrush(RGB(130, 130, 130)) ' Select a background color
    hOldBrush& = SelectObject(hdc&, hBrush&)
    
    ' Fill Top of wallpaper
    Rc.Left = 0
    Rc.Top = 0
    Rc.Right = iWidth
    Rc.Bottom = iY
    FillRect hdc&, Rc, hBrush&
    ' Fill Bottom of wallpaper
    Rc.Left = 0
    Rc.Top = iY + iSY
    Rc.Right = iWidth
    Rc.Bottom = iHeight
    FillRect hdc&, Rc, hBrush&
    ' Fill Left of wallpaper
    Rc.Left = 0
    Rc.Top = iY
    Rc.Right = iX
    Rc.Bottom = iY + iSY
    FillRect hdc&, Rc, hBrush&
    ' Fill Right of wallpaper
    Rc.Left = iX + iSX
    Rc.Top = iY
    Rc.Right = iWidth
    Rc.Bottom = iY + iSY
    FillRect hdc&, Rc, hBrush&

    SelectObject hdc&, hOldBrush& ' Reset Brush
      
    StretchBlt hdc&, iX, iY, iSX, iSY, Picture1.hdc, 0, 0, bmWallpaper.bmWidth, bmWallpaper.bmHeight, vbSrcCopy
    Me.Picture = Picture2.Image ' Set the new Picture
End Sub


Feito isso, coloque isto no MDI.Load..

    Picture1.Visible = False
    Picture2.Visible = False
    Picture3.Visible = False
    Picture1.Container = Picture3
    Picture2.Left = 0
    Picture2.Top = 0
    Picture1.Left = 0
    Picture1.Top = 0
    Picture1.ScaleMode = vbPixels


Após isso feito, no evento Resize do MDI, coloque isso:

ResizeCenterWallpaper


Pronto.  Está feito.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página