Revision: 28133
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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