21
How do I specify that an object should be moved not resized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command1"
	End With
End Function
</SCRIPT>
</BODY>
20
I've noticed some margins that are not painted. How can I prevent/remove that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.BorderWidth = 0
		.BorderHeight = 0
		.SplitBackColor = RGB(0,0,0)
	End With
End Function
</SCRIPT>
</BODY>
19
How can I change the shape of the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.Cursor = "exCross"
	End With
End Function
</SCRIPT>
</BODY>
18
How can I display a tooltip when cursor hovers the split bar (pictures)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.ToolTipText = "<img>pic1</img>This is a bit of text that's displayed when the control hovers the split bar."
	End With
End Function
</SCRIPT>
</BODY>
17
How can I display a tooltip when cursor hovers the split bar (images)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ToolTipText = "<img>1</img>This is a bit of text that's displayed when the control hovers the split bar."
	End With
End Function
</SCRIPT>
</BODY>
16
Is it possible to move the associated objects once the user drags the split bar, not just when it ends
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2"
		.MoveOnDrop = False
	End With
End Function
</SCRIPT>
</BODY>
15
How do I know what events your control supports
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SplitBar1_Event(EventID)
	With SplitBar1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
14
Is it possible to get notified once the user moves the split bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SplitBar1_Drag(Position)
	With SplitBar1
		alert( "New Position" )
		alert( Position )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
13
How do I get notified once the user drop the split bar to a new position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SplitBar1_DragEnd(Position,Cancel)
	With SplitBar1
		alert( "New Position" )
		alert( Position )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
12
How do I programmatically move the split bar, to the right/bottom most position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2"
		.MoveTo .Max
	End With
End Function
</SCRIPT>
</BODY>
11
How do I programmatically move the split bar, to the left/top most position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2"
		.MoveTo .Min
	End With
End Function
</SCRIPT>
</BODY>
10
How do I programmatically move the split bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2"
		.MoveTo -10
	End With
End Function
</SCRIPT>
</BODY>
9
I've noticed that the objects are hidden, when the split bar is closed to the limit. Is it possible to prevent that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SplitBar1_Show(Object,Visible)
	With SplitBar1
		alert( Object )
		alert( Visible )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2"
		.HideOnLimit = False
	End With
End Function
</SCRIPT>
</BODY>
8
How can I specify the limit to move the splitbar (hard coded value)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.LimitLT = "32D"
		.LimitRB = "32D"
	End With
End Function
</SCRIPT>
</BODY>
7
How can I specify the limit to move the splitbar (percent)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.LimitLT = "50%"
		.LimitRB = "50%"
	End With
End Function
</SCRIPT>
</BODY>
6
How do I change the split bar's visual appearance using your EBN files (BASE64)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.BeginUpdate 
		.BackColor = RGB(255,255,255)
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABV0GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGUYBRgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQxHJEExZCKLACkKKwMgkEYfTLGUxQG" & _
	"AsXBgEoWRjkAYJADYBIJDCME7yHBJDSdGaYIRBGCZbiGOYxQjKMqwJJUfBLEAZKLnGRIbpOA5VSBVcT1VZlPTBHqxaxhED6SjaOJqRpcERTeJobT1FgWRpqUYRSwMMJq" & _
	"WjCNhABKsBgdO4AKpffIwAxNf4XSBIAIQSSBUjGOg6TiMWB4JRqOxCEzpUZDNBIUQTRoAJrgOCAYhcZJVXhAeTbXibZZ8RzgCj4Lg+AQ5cLHbxyPJHZxlHadZ7nOYPTh" & _
	"XFMLBImudA7MEOQjiuFh1ngDQ+C6V4Thw/Z4B0eRnleMJXm6cp8DoHhzD+MZ0jWe52EkP4lC+cZNn4f5fkKFZ6BIXYSjoBgciCBxmAEP4gkgNgOgMIAXGQb4EkUWBVlk" & _
	"O5hggPgaD+IYDj2WQTmICBUFWBZhhgbgOgcXYRC4KoCAcJxkieC5iGgOgvCmXYYjGdwtF+F5tnwOojkidgBgDGpCEIfRemGLZxhGRBnk2dR3l4CQWEgdAeCGJZpHUXxZ" & _
	"D2T4Sl2ZptlyEZdkkZZLHMXwXEoXhyFuY5JkWCIiCcFZHDwHRTi0UQABAECAg"
		.SplitBackColor = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
5
How do I change the split bar's visual appearance using your EBN files (file)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.BeginUpdate 
		.BackColor = RGB(255,255,255)
		.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExSplitBar\Sample\EBN\vthumb.ebn"
		.SplitBackColor = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
4
How do I specify the objects to be resized to left/top or right/bottom side of the split bar (method runtime)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.AddObjectLT "Command1"
		.AddObjectRB "Command2"
		.AddObjectRB "SplitBar2"
		.AddObjectRB "Command3"
	End With
End Function
</SCRIPT>
</BODY>
3
How do I specify the objects to be resized to left/top or right/bottom side of the split bar (method design)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.ObjectsLT = "Command1"
		.ObjectsRB = "Command2,SplitBar2,Command3"
		.AddObjectLT "Command1"
		.AddObjectRB "Command2"
		.AddObjectRB "SplitBar2"
		.AddObjectRB "Command3"
	End With
End Function
</SCRIPT>
</BODY>
2
How do I change the split bar's color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.SplitBackColor = RGB(0,255,0)
	End With
End Function
</SCRIPT>
</BODY>
1
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:9F28FDED-5EBC-4E9A-A596-C3813C966A0C" id="SplitBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SplitBar1
		.BackColor = RGB(255,255,0)
		.BorderWidth = 4
		.BorderHeight = 4
	End With
End Function
</SCRIPT>
</BODY>