Sección de códigos , trucos y ejemplos para visual basic

126 - Ejemplo para crear un Splitter en un formulario o contenedor

Contenido

Ejemplo 1 - Split vertical
Ejemplo 2 - Splitter horizontal
Enlaces relacionados

Ejemplo 1

Esta rutina muestra como simular una barra separadora o Splitter vertical, en un formulario para colocar 2 controles y que estos se redimensionen al mover el Split.

Formulario con el Splitter o separador

Vista del ejemplo en visual basic para crear una barra separador - Splitter

Para modificar el alto del Split, cambiar el valor de la variable AltoSplit. También se puede colocar los controles en un Pictuere box, en ese caso colocar el código de los eventos del formulario en los eventos del Picture

Para probar el ejemplo, colcoar

2 controles Listview ( ListView1 y ListView2)

Código en un formulario

Option Explicit Private Const AltoSplit As Long = 50 Private Porcen As Single Private b_MouseDown As Boolean ' ----------------------------------------------------------------------------------- ' \\ -- Inicio ' ----------------------------------------------------------------------------------- Private Sub Form_Load() Dim i As Integer Me.BackColor = vbButtonFace Porcen = 0.5 ' -- Configurar controles With ListView1 .View = lvwReport .ColumnHeaders.Add , , "Columna 1" For i = 0 To 50 .ListItems.Add , , "Elemento :" & i Next End With With ListView2 .View = lvwReport .ColumnHeaders.Add , , "Columna 1" For i = 0 To 50 .ListItems.Add , , "Elemento :" & i Next End With End Sub Private Sub Form_Resize() Call Split End Sub ' ----------------------------------------------------------------------------------- ' \\ -- Poner el Flag en True para ejecutar el procedimiento Split ' ----------------------------------------------------------------------------------- Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) b_MouseDown = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) ' -- si se presionó el área de separación ... If b_MouseDown Then Porcen = y / ScaleHeight If Porcen < 0.065 Then Porcen = 0.065 If Porcen > 0.94 Then Porcen = 0.94 Call Split End If ' -- Establecer puntero del mouse If Me.MousePointer <> 7 Then Me.MousePointer = 7 End Sub ' ----------------------------------------------------------------------------------- ' \\ -- Poner el Flag en False para no ejecutar el procedimiento Split ' ----------------------------------------------------------------------------------- Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) b_MouseDown = False End Sub ' ----------------------------------------------------------------------------------- ' \\ -- Posicionar los controles dejando el separador para crear el Split ' ----------------------------------------------------------------------------------- Private Sub Split() Dim H As Long, H2 As Long H = (Me.ScaleHeight - AltoSplit) * Porcen ListView1.Move 0, 0, ScaleWidth, H H2 = (ScaleHeight - AltoSplit) - H ListView2.Move 0, H + AltoSplit, ScaleWidth, H2 End Sub ' ------------------------------------------------------------------------------- ' \\ -- Cambiar puntero del mouse ' ------------------------------------------------------------------------------- Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Not b_MouseDown Then Me.MousePointer = 0 End Sub Private Sub ListView2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Not b_MouseDown Then Me.MousePointer = 0 End Sub

Ejemplo 2 para crear un split bar Horizontal

Este otro código necesita :

Un control Picturebox llamado Splitter
Un control List1
Un text1

Nota: Para cambiar el ancho del Splitter bar, modificar la constante ANCHO_SPLIT. Para cambiar el color que se visualiza al arrastrar la barra, la variable COLOR_SPLIT, para cambiar el márgen de los controles: MARGEN_CTRL

Código fuente en el form

Option Explicit Private Const ANCHO_SPLIT As Integer = 7 ' -- Ancho del splitter bar Private currSplitPosX As Long ' -- Posición x Private MARGEN_CTRL As Integer ' -- Valor de margen Private COLOR_SPLIT As Long ' -- El color del separador ' ----------------------------------------------------------------------------------- ' \\ -- Inicio ' ----------------------------------------------------------------------------------- Private Sub Form_Load() ' -- Establecer margen para los dos controles en 10 MARGEN_CTRL = 10 ' -- Color para el Splitter bar COLOR_SPLIT = &H808080 currSplitPosX = &H7FFFFFFF ' -- agregar items Dim i As Integer For i = 0 To 100 List1.AddItem "Item: " & i Next ' -- Establecer el modo de escala en pixeles Me.ScaleMode = vbPixels ' -- Configurar Split ( Picturebox ) With Splitter .ScaleMode = vbPixels .BorderStyle = 0 ' Sin borde .MousePointer = 9 ' -- Puntero del mouse para el picture ( Flecha horizontal ) .ZOrder 0 ' -- traer el control encima de todos los demás End With End Sub Private Sub splitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If currSplitPosX <> &H7FFFFFFF Then If CLng(x) <> currSplitPosX& Then With Splitter .Move .Left + x, MARGEN_CTRL, ANCHO_SPLIT, ScaleHeight - (MARGEN_CTRL * 2) End With currSplitPosX = CLng(x) End If End If End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- Posicionar y redimensionar controles al soltar el split ' ----------------------------------------------------------------------------------------- Private Sub splitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) With Splitter If currSplitPosX& <> &H7FFFFFFF Then If CLng(x) <> currSplitPosX& Then .Move .Left + x, MARGEN_CTRL, ANCHO_SPLIT, ScaleHeight - (MARGEN_CTRL * 2) End If currSplitPosX& = &H7FFFFFFF .BackColor = &H8000000F If (.Left > 60) And (.Left < (ScaleWidth - 60)) Then List1.Width = Splitter.Left - List1.Left ElseIf (.Left < 60) Then List1.Width = 60 Else List1.Width = ScaleWidth - 60 End If Call Form_Resize End If End With End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- Posicionar y redimensionar al presionar el split ' ----------------------------------------------------------------------------------------- Private Sub splitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) With Splitter ' -- Comprobar el botón presionado If Button = vbLeftButton Then ' -- Color del splitter .BackColor = COLOR_SPLIT currSplitPosX = CLng(x) Else If currSplitPosX <> &H7FFFFFFF Then Call splitter_MouseUp(Button, Shift, x, y) End If currSplitPosX = &H7FFFFFFF End If End With End Sub ' ----------------------------------------------------------------------------------------- ' \\ -- REdimensionar y posicionar en el Evento Resize del formulario ' ----------------------------------------------------------------------------------------- Private Sub Form_Resize() Dim x1 As Integer Dim x2 As Integer Dim height1 As Integer Dim width1 As Integer Dim width2 As Integer On Error Resume Next height1 = ScaleHeight - (MARGEN_CTRL * 2) x1 = MARGEN_CTRL width1 = List1.Width x2 = x1 + List1.Width + ANCHO_SPLIT - 1 width2 = ScaleWidth - x2 - MARGEN_CTRL ' -- Posicionar el ListBox List1.Move x1 - 1, MARGEN_CTRL, width1%, height1 ' -- Posicionar el textBox Text1.Move x2, MARGEN_CTRL, width2 + 1, height1 ' -- Posicionar el splitter bar Splitter.Move x1 + List1.Width - 1, MARGEN_CTRL, ANCHO_SPLIT, height1 End Sub

Recursos vb 6.0 - Enlaces relacionados

Control Ocx para utilizar Spliters o separadores

Buscar en Recursos vb