www.sensalgo.com

SplittingTwo ActiveX

Version 1.0      November 2015 to June 2017 

The ActiveX Element divides panes that can be adjusted against each other. In the middle of the horizontal or vertical division the mouse can drag the handle. The ActiveX must be behind its attached objects. If more than one splitter is used, one splitter is behind the other.

Example

Interface Overview

Methods Short Description
AttachObjects designate objects of user interface depending on the splitter
Refresh new display
Attributes  
hwnd (read only) handle window of splitter control
MaxTilePercent (write only)
MinTilePercent (write only)
TileMode (write only) tTILE_MODE
TilePercent between MinTilePercent and MaxTilePercent
Enum  
tTILE_MODE TILE_HORIZONTALLY
TILE_VERTICALLY
Event  
Resize adjust your own controls

Example

Interface Overview

Example

Private Sub Form_Load()
  Me.spl2.AttachObjects Me.fraProgram, Me.fraCustomer, 0, 50, TILE_HORIZONTALLY, 50  
  Me.spl1.AttachObjects Me.spl2, Me.fraKey, 130, 50, TILE_HORIZONTALLY, 50

End Sub

Private Sub Form_Resize()
  Me.spl1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 40 * 20 '* 0.9
  Me.fraBottom.Top = Me.ScaleHeight - 40 * 20
End Sub

Private Sub spl1_Resize()
  Dim a As Long, b As Long

  a = Me.fraCustomer.Height
  Me.cmdAddCustomer.Top = a - 25 * 20
  Me.cmdDeleteCustomer.Top = a - 25 * 20
  Me.txtCustomer.Top = a - 25 * 20
  Me.cmdChangeCustomer.Top = a - 25 * 20
  If (a - 40 * 20) > 0 Then
    Me.fgrdCustomer.Height = a - 40 * 20
  Else
    Me.fgrdCustomer.Height = 1
  End If
End Sub

Interface Overview

 

AttachObjects

Public Sub AttachObjects(oLeft As Object, oRight As Object, MinSize As Integer, tpercent As Integer, tm As tTILE_MODE, Optional BarSize As Long = 100, Optional InitZOrder As Boolean = False)

Interface Overview

Refresh

Public Sub Refresh()

 

Interface Overview

hwnd

Public Property Get hwnd() As Long

 

Interface Overview

MaxTilePercent

Public Property Let MaxTilePercent(mt As Long)

 

Interface Overview

MinTilePercent

Public Property Let MinTilePercent(mt As Long)

 

Interface Overview

TileMode

Public Property Let TileMode(tm As tTILE_MODE)

 

Interface Overview

TilePercent

Public Property Get TilePercent() As Long
Public Property Let TilePercent(pc As Long)

 

Interface Overview

Resize

Public Event Resize()

 

Interface Overview