property Slider.ValueF as Double
The value that the thumb box position represents ( as float )( as float ).

 TypeDescription 
   Double A floating expression that indicates the control's value.  
 

The trial/demo version of the control always retrieves an arbitrary ( random ) value. The registered version of the control retrieves the correctly value. 

The ValueF property specifies the control's value. The ValueF property has effect ONLY if the AllowFloat property is True. The control fires the Change event after user changes the control's value. The control fires the Changing property before changing the control's value. Use the MinimumF and MaximumF properties to specify the range's value. Use the Caption property to put a HTML text on any part of the control. The SmallChangeF property gets or sets the value added to or subtracted from the ValueF property when the thumb is moved a small distance. The LargeChangeF property gets or sets a value to be added to or subtracted from the Value property when the slider is moved a large distance. Use the Background property to change the visual appearance for any part of the control, in any state. The LabelTick property indicates the HTML expression to be displayed as labels for each tick.

The ValueF property goes from:

For instance, the following samples print the control's ValueF on the control's thumb:

VBA (MS Access, Excell...)

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

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = 2
	.TickFrequencyF = 0
	.EndUpdate 
End With

VB6

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

With Slider1
	.BeginUpdate 
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = exBoth
	.TickFrequencyF = 0
	.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
		.set_Caption(exontrol.EXSLIDERLib.PartEnum.exThumbPart,.ValueF)
	End With
End Sub

With Exslider1
	.BeginUpdate()
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = exontrol.EXSLIDERLib.TickStyleEnum.exBoth
	.TickFrequencyF = 0
	.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
		.set_Caption(EXSLIDERLib.PartEnum.exThumbPart,.ValueF)
	End With
End Sub

With AxSlider1
	.BeginUpdate()
	.AllowFloat = True
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = EXSLIDERLib.TickStyleEnum.exBoth
	.TickFrequencyF = 0
	.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();
	spSlider1->PutCaption(EXSLIDERLib::exThumbPart,_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->PutThumbSize(48);
spSlider1->PutValueF(0);
spSlider1->PutTickStyle(EXSLIDERLib::exBoth);
spSlider1->PutTickFrequencyF(0);
spSlider1->EndUpdate();

C++ Builder

// Change event - Occurs when the value of the control is changed.
void __fastcall TForm1::Slider1Change(TObject *Sender)
{
	Slider1->Caption[Exsliderlib_tlb::PartEnum::exThumbPart] = PChar(Slider1->ValueF);
}

Slider1->BeginUpdate();
Slider1->AllowFloat = true;
Slider1->MinimumF = -3.25;
Slider1->MaximumF = 3.25;
Slider1->SmallChangeF = 0.25;
Slider1->ThumbSize = 48;
Slider1->ValueF = 0;
Slider1->TickStyle = Exsliderlib_tlb::TickStyleEnum::exBoth;
Slider1->TickFrequencyF = 0;
Slider1->EndUpdate();

C#

// Change event - Occurs when the value of the control is changed.
private void exslider1_Change(object sender)
{
	exslider1.set_Caption(exontrol.EXSLIDERLib.PartEnum.exThumbPart,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.ThumbSize = 48;
exslider1.ValueF = 0;
exslider1.TickStyle = exontrol.EXSLIDERLib.TickStyleEnum.exBoth;
exslider1.TickFrequencyF = 0;
exslider1.EndUpdate();

JavaScript

<SCRIPT FOR="Slider1" EVENT="Change()" LANGUAGE="JScript">
	Slider1.Caption(256) = 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.ThumbSize = 48;
	Slider1.ValueF = 0;
	Slider1.TickStyle = 2;
	Slider1.TickFrequencyF = 0;
	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)
{
	axSlider1.set_Caption(EXSLIDERLib.PartEnum.exThumbPart,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.ThumbSize = 48;
axSlider1.ValueF = 0;
axSlider1.TickStyle = EXSLIDERLib.TickStyleEnum.exBoth;
axSlider1.TickFrequencyF = 0;
axSlider1.EndUpdate();

X++ (Dynamics Ax 2009)

// Change event - Occurs when the value of the control is changed.
void onEvent_Change()
{
	;
	exslider1.Caption(256/*exThumbPart*/,exslider1.ValueF());
}

public void init()
{
	;

	super();

	exslider1.BeginUpdate();
	exslider1.AllowFloat(true);
	exslider1.MinimumF(-3.25);
	exslider1.MaximumF(3.25);
	exslider1.SmallChangeF(0.25);
	exslider1.ThumbSize(48);
	exslider1.ValueF(0);
	exslider1.TickStyle(2/*exBoth*/);
	exslider1.TickFrequencyF(0);
	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
		set_Caption(EXSLIDERLib.PartEnum.exThumbPart,ValueF);
	end
end;

with AxSlider1 do
begin
	BeginUpdate();
	AllowFloat := True;
	MinimumF := -3.25;
	MaximumF := 3.25;
	SmallChangeF := 0.25;
	ThumbSize := 48;
	ValueF := 0;
	TickStyle := EXSLIDERLib.TickStyleEnum.exBoth;
	TickFrequencyF := 0;
	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
		Caption[EXSLIDERLib_TLB.exThumbPart] := ValueF;
	end
end;

with Slider1 do
begin
	BeginUpdate();
	AllowFloat := True;
	MinimumF := -3.25;
	MaximumF := 3.25;
	SmallChangeF := 0.25;
	ThumbSize := 48;
	ValueF := 0;
	TickStyle := EXSLIDERLib_TLB.exBoth;
	TickFrequencyF := 0;
	EndUpdate();
end

VFP

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

with thisform.Slider1
	.BeginUpdate
	.AllowFloat = .T.
	.MinimumF = -3.25
	.MaximumF = 3.25
	.SmallChangeF = 0.25
	.ThumbSize = 48
	.ValueF = 0
	.TickStyle = 2
	.TickFrequencyF = 0
	.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
	oSlider.Template = [Caption(256) = Str(ValueF)] // oSlider.Caption(256) = 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.ThumbSize = 48
oSlider.ValueF = 0
oSlider.TickStyle = 2
oSlider.TickFrequencyF = 0
oSlider.EndUpdate()

Visual Objects

METHOD OCX_Exontrol1Change() CLASS MainDialog
	// Change event - Occurs when the value of the control is changed.
	oDCOCX_Exontrol1:[Caption,exThumbPart] := 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:ThumbSize := 48
oDCOCX_Exontrol1:ValueF := 0
oDCOCX_Exontrol1:TickStyle := exBoth
oDCOCX_Exontrol1:TickFrequencyF := 0
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

/*begin event Change() - Occurs when the value of the control is changed.*/
/*
	OleObject oSlider
	oSlider = ole_1.Object
	oSlider.Caption(256,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.ThumbSize = 48
oSlider.ValueF = 0
oSlider.TickStyle = 2
oSlider.TickFrequencyF = 0
oSlider.EndUpdate()


Send comments on this topic.
1999-2016 Exontrol.COM, Software. All rights reserved.