Advanced Search

Resize Form Event on VB6

/ Published in: Visual Basic
Save to your folder(s)
Un ejemplo de como hacer un resice del formulario conjunto a todos los controles.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Private Sub Form_Resize()
  2.  
  3.     On Error GoTo ProcErr
  4.     If Me.WindowState <> vbMinimized And (FrmMDI.WindowState <> vbMinimized) Then
  5.         If Width < MeWidth Then
  6.             Width = MeWidth
  7.         End If
  8.         If Height < MeHeight Then
  9.             Height = MeHeight
  10.         End If
  11.  
  12.         FraAcciones.Height = Me.ScaleHeight - FraRef.Height - FraLog.Height
  13.         FraRef.Width = Me.ScaleWidth
  14.         FraData.Width = Me.ScaleWidth - FraAcciones.Width - FraAcciones.Left
  15.         FraLog.Top = Me.ScaleHeight - FraLog.Height
  16.         FraProgreso.Top = FraLog.Top
  17.         FraLog.Width = Me.ScaleWidth - FraLog.Left
  18.         FraData.Height = FraLog.Top - FraData.Top + 60
  19.         tabSicer.Width = Me.ScaleWidth - FraAcciones.Width - FraAcciones.Left
  20.         tabSicer.Height = Me.ScaleHeight - FraLog.Height
  21.         GrdImportados.Width = tabSicer.Width - GrdImportados.Left - 120
  22.         grdResultado.Width = tabSicer.Width - GrdImportados.Left - 120
  23.         GrdImportados.Height = tabSicer.Height - GrdImportados.Top - 260
  24.         grdResultado.Height = tabSicer.Height - GrdImportados.Top - 260
  25.  
  26.     End If
  27.     GoTo ProcExit
  28.  
  29. ProcErr:
  30.     LogErrores 3, "Form_Resize"
  31.     Resume ProcExit
  32.  
  33. ProcExit:
  34. End Sub

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.