Return to Snippet

Revision: 28133
at July 1, 2010 23:52 by keidash


Initial Code
Private Sub Form_Resize()
    
    On Error GoTo ProcErr
    If Me.WindowState <> vbMinimized And (FrmMDI.WindowState <> vbMinimized) Then
        If Width < MeWidth Then
            Width = MeWidth
        End If
        If Height < MeHeight Then
            Height = MeHeight
        End If
        
        FraAcciones.Height = Me.ScaleHeight - FraRef.Height - FraLog.Height
        FraRef.Width = Me.ScaleWidth
        FraData.Width = Me.ScaleWidth - FraAcciones.Width - FraAcciones.Left
        FraLog.Top = Me.ScaleHeight - FraLog.Height
        FraProgreso.Top = FraLog.Top
        FraLog.Width = Me.ScaleWidth - FraLog.Left
        FraData.Height = FraLog.Top - FraData.Top + 60
        tabSicer.Width = Me.ScaleWidth - FraAcciones.Width - FraAcciones.Left
        tabSicer.Height = Me.ScaleHeight - FraLog.Height
        GrdImportados.Width = tabSicer.Width - GrdImportados.Left - 120
        grdResultado.Width = tabSicer.Width - GrdImportados.Left - 120
        GrdImportados.Height = tabSicer.Height - GrdImportados.Top - 260
        grdResultado.Height = tabSicer.Height - GrdImportados.Top - 260

    End If
    GoTo ProcExit

ProcErr:
    LogErrores 3, "Form_Resize"
    Resume ProcExit

ProcExit:
End Sub

Initial URL

                                

Initial Description
Un ejemplo de como hacer un resice del formulario conjunto a todos los controles.

Initial Title
Resize Form Event on VB6

Initial Tags
resize

Initial Language
Visual Basic