Slider.AllowFloat Property (ExSlider)

By default, the AllowFloat property is False. Use the AllowFloat property to use the control on handling value within a floating numbers range.

If the AllowFloat property is False ( by default ) the following properties work with integer numbers:

Minimum property specifies the lower limit value of the scrollable range.
Maximum property specifies the upper limit value of the scrollable range.
Value property indicates the position of the slider.
SmallChange property gets or sets the value added to or subtracted from the Value property when the slider is moved a small distance.
LargeChange property indicates the amount by which the slider position changes when the user clicks in the slider or presses the PAGE UP or PAGE DOWN keys.
TickFrequency property returns or sets a value that indicates the ratio of ticks on the control.

If the AllowFloat property is True ( by default ) the following properties work with floating numbers:

MinimumF property specifies the lower limit value of the scrollable range.
MaximumF property specifies the upper limit value of the scrollable range.
ValueF property indicates the position of the slider.
SmallChangeF property gets or sets the value added to or subtracted from the Value property when the slider is moved a small distance.
LargeChangeF property indicates the amount by which the slider position changes when the user clicks in the slider or presses the PAGE UP or PAGE DOWN keys.
TickFrequencyF property returns or sets a value that indicates the ratio of ticks on the control.

The following samples shows how to use and specify floating numbers within the control ( the range from -3.25 to 3.25 ):

VBA (MS Access, Excell...)

' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		Debug.Print( .ValueF )
	End With
End Sub

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.LargeChangeF = 1
	.TickFrequencyF = 0.5
	.ValueF = 0
	.LabelTick = "value format '' "
	.EndUpdate 
End With

VB6

' Change event - Occurs when the value of the control is changed.
Private Sub Slider1_Change()
	With Slider1
		Debug.Print( .ValueF )
	End With
End Sub

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.LargeChangeF = 1
	.TickFrequencyF = 0.5
	.ValueF = 0
	.LabelTick = "value format '' "
	.EndUpdate 
End With

VB.NET

' Change event - Occurs when the value of the control is changed.
Private Sub Exslider1_Change(ByVal sender As System.Object) Handles Exslider1.Change
	With Exslider1
		Debug.Print( .ValueF )
	End With
End Sub

With Exslider1
	.BeginUpdate()
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.LargeChangeF = 1
	.TickFrequencyF = 0.5
	.ValueF = 0
	.LabelTick = "value format '' "
	.EndUpdate()
End With

VB.NET for /COM

' Change event - Occurs when the value of the control is changed.
Private Sub AxSlider1_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxSlider1.Change
	With AxSlider1
		Debug.Print( .ValueF )
	End With
End Sub

With AxSlider1
	.BeginUpdate()
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.LargeChangeF = 1
	.TickFrequencyF = 0.5
	.ValueF = 0
	.LabelTick = "value format '' "
	.EndUpdate()
End With

C++

// Change event - Occurs when the value of the control is changed.
void OnChangeSlider1()
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXSLIDERLib' for the library: 'ExSlider 1.0 Control Library'
		#import <ExSlider.dll>
		using namespace EXSLIDERLib;
	*/
	EXSLIDERLib::ISliderPtr spSlider1 = GetDlgItem(IDC_SLIDER1)->GetControlUnknown();
	OutputDebugStringW( _bstr_t(spSlider1->GetValueF()) );
}

EXSLIDERLib::ISliderPtr spSlider1 = GetDlgItem(IDC_SLIDER1)->GetControlUnknown();
spSlider1->BeginUpdate();
spSlider1->PutAllowFloat(VARIANT_TRUE);
spSlider1->PutMinimumF(-3.25);
spSlider1->PutMaximumF(3.25);
spSlider1->PutSmallChangeF(0.25);
spSlider1->PutLargeChangeF(1);
spSlider1->PutTickFrequencyF(0.5);
spSlider1->PutValueF(0);
spSlider1->PutLabelTick(L"value format '' ");
spSlider1->EndUpdate();

C++ Builder

// Change event - Occurs when the value of the control is changed.
void __fastcall TForm1::Slider1Change(TObject *Sender)
{
	OutputDebugString( PChar(Slider1->ValueF) );
}

Slider1->BeginUpdate();
Slider1->AllowFloat = true;
Slider1->MinimumF = -3.25;
Slider1->MaximumF = 3.25;
Slider1->SmallChangeF = 0.25;
Slider1->LargeChangeF = 1;
Slider1->TickFrequencyF = 0.5;
Slider1->ValueF = 0;
Slider1->LabelTick = L"value format '' ";
Slider1->EndUpdate();

// Change event - Occurs when the value of the control is changed.
private void exslider1_Change(object sender)
{
	System.Diagnostics.Debug.Print( exslider1.ValueF.ToString() );
}
//this.exslider1.Change += new exontrol.EXSLIDERLib.exg2antt.ChangeEventHandler(this.exslider1_Change);

exslider1.BeginUpdate();
exslider1.AllowFloat = true;
exslider1.MinimumF = -3.25;
exslider1.MaximumF = 3.25;
exslider1.SmallChangeF = 0.25;
exslider1.LargeChangeF = 1;
exslider1.TickFrequencyF = 0.5;
exslider1.ValueF = 0;
exslider1.LabelTick = "value format '' ";
exslider1.EndUpdate();

JavaScript

<SCRIPT FOR="Slider1" EVENT="Change()" LANGUAGE="JScript">
	alert( Slider1.ValueF );
</SCRIPT>

<OBJECT classid="clsid:031F9B36-1219-4DF5-8E09-1A50B8185BC2" id="Slider1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Slider1.BeginUpdate();
	Slider1.AllowFloat = true;
	Slider1.MinimumF = -3.25;
	Slider1.MaximumF = 3.25;
	Slider1.SmallChangeF = 0.25;
	Slider1.LargeChangeF = 1;
	Slider1.TickFrequencyF = 0.5;
	Slider1.ValueF = 0;
	Slider1.LabelTick = "value format '' ";
	Slider1.EndUpdate();
</SCRIPT>

C# for /COM

// Change event - Occurs when the value of the control is changed.
private void axSlider1_Change(object sender, EventArgs e)
{
	System.Diagnostics.Debug.Print( axSlider1.ValueF.ToString() );
}
//this.axSlider1.Change += new EventHandler(this.axSlider1_Change);

axSlider1.BeginUpdate();
axSlider1.AllowFloat = true;
axSlider1.MinimumF = -3.25;
axSlider1.MaximumF = 3.25;
axSlider1.SmallChangeF = 0.25;
axSlider1.LargeChangeF = 1;
axSlider1.TickFrequencyF = 0.5;
axSlider1.ValueF = 0;
axSlider1.LabelTick = "value format '' ";
axSlider1.EndUpdate();

X++ (Dynamics Ax 2009)

// Change event - Occurs when the value of the control is changed.
void onEvent_Change()
{
	;
	print( exslider1.ValueF() );
}

public void init()
{
	;

	super();

	exslider1.BeginUpdate();
	exslider1.AllowFloat(true);
	exslider1.MinimumF(-3.25);
	exslider1.MaximumF(3.25);
	exslider1.SmallChangeF(0.25);
	exslider1.LargeChangeF(1);
	exslider1.TickFrequencyF(0.5);
	exslider1.ValueF(0);
	exslider1.LabelTick("value format '' ");
	exslider1.EndUpdate();
}

Delphi 8 (.NET only)

// Change event - Occurs when the value of the control is changed.
procedure TWinForm1.AxSlider1_Change(sender: System.Object; e: System.EventArgs);
begin
	with AxSlider1 do
	begin
		OutputDebugString( ValueF );
	end
end;

with AxSlider1 do
begin
	BeginUpdate();
	AllowFloat := True;
	MinimumF := -3.25;
	MaximumF := 3.25;
	SmallChangeF := 0.25;
	LargeChangeF := 1;
	TickFrequencyF := 0.5;
	ValueF := 0;
	LabelTick := 'value format '''' ';
	EndUpdate();
end

Delphi (standard)

// Change event - Occurs when the value of the control is changed.
procedure TForm1.Slider1Change(ASender: TObject; );
begin
	with Slider1 do
	begin
		OutputDebugString( ValueF );
	end
end;

with Slider1 do
begin
	BeginUpdate();
	AllowFloat := True;
	MinimumF := -3.25;
	MaximumF := 3.25;
	SmallChangeF := 0.25;
	LargeChangeF := 1;
	TickFrequencyF := 0.5;
	ValueF := 0;
	LabelTick := 'value format '''' ';
	EndUpdate();
end

VFP

*** Change event - Occurs when the value of the control is changed. ***
LPARAMETERS nop
	with thisform.Slider1
		DEBUGOUT( .ValueF )
	endwith

with thisform.Slider1
	.BeginUpdate
	.AllowFloat = .T.
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.LargeChangeF = 1
	.TickFrequencyF = 0.5
	.ValueF = 0
	.LabelTick = "value format '' "
	.EndUpdate
endwith

dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	Change = class::nativeObject_Change
endwith
*/
// Occurs when the value of the control is changed.
function nativeObject_Change()
	local oSlider
	oSlider = form.Activex1.nativeObject
	? Str(oSlider.ValueF) 
return

local oSlider

oSlider = form.Activex1.nativeObject
oSlider.BeginUpdate()
oSlider.AllowFloat = true
oSlider.MinimumF = -3.25
oSlider.MaximumF = 3.25
oSlider.SmallChangeF = 0.25
oSlider.LargeChangeF = 1
oSlider.TickFrequencyF = 0.5
oSlider.ValueF = 0
oSlider.LabelTick = "value format '' "
oSlider.EndUpdate()

Visual Objects

METHOD OCX_Exontrol1Change() CLASS MainDialog
	// Change event - Occurs when the value of the control is changed.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ValueF) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowFloat := true
oDCOCX_Exontrol1:MinimumF := -3.25
oDCOCX_Exontrol1:MaximumF := 3.25
oDCOCX_Exontrol1:SmallChangeF := 0.25
oDCOCX_Exontrol1:LargeChangeF := 1
oDCOCX_Exontrol1:TickFrequencyF := 0.5
oDCOCX_Exontrol1:ValueF := 0
oDCOCX_Exontrol1:LabelTick := "value format '' "
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	OleObject oSlider
	oSlider = ole_1.Object
	MessageBox("Information",string( String(oSlider.ValueF) ))
*/
/*end event Change*/

OleObject oSlider

oSlider = ole_1.Object
oSlider.BeginUpdate()
oSlider.AllowFloat = true
oSlider.MinimumF = -3.25
oSlider.MaximumF = 3.25
oSlider.SmallChangeF = 0.25
oSlider.LargeChangeF = 1
oSlider.TickFrequencyF = 0.5
oSlider.ValueF = 0
oSlider.LabelTick = "value format '' "
oSlider.EndUpdate()

		Type	Description
		Boolean	A Boolean expression that indicates whether the slider displays floating numbers.