Slider for Hta or Html (plain script)

My Subscription

Slider for Hta or Html (plain script)

Logged in as: Guest

arrSession:exec spGetSession 2,16,63805

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Slider for Hta or Html (plain script)
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Login

Message

<< Older Topic Newer Topic >>

Slider for Hta or Html (plain script) - 8/26/2008 11:19:00 AM

Fredledingue

Posts: 383
Score: 0
Joined: 5/9/2005
From:
Status: offline

Move the pink slider left and right while keeping the mouse button pressed.
Returns a value from 0 to 300.

Just no eye candy yet...

Couldn't help dash the code in on this forum....

Edit: Little optimization of the code

<HTML>
<HEAD>
<HTA:APPLICATION
ID="test" 
  APPLICATIONNAME="slider">
<meta name="VI60_defaultClientScript" content="VBScript">
<TITLE>Slider</TITLE>
<SCRIPT LANGUAGE="VBScript">
Public x, mso, objSlider, objMousePos
Sub Window_OnLoad()
Set objSlider = document.all.Slider.style
Set objMousePos = document.all.MousePos
End Sub
Sub MoveSlider
If mso=True Then
x=window.event.X -6
objMousePos.InnerText = x -12
objSlider.left = x
End If
End Sub
</SCRIPT>
<BODY OnMouseUp="mso=False">
Slider value = <span id="MousePos"></span>

<p align="justify"
style="position: absolute; left: 5; top: 42; width: 640; height: 16; cursor='default'"
OnSelectStart="javascript:return false"
OnBlur="mso=False">
-
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
<span OnMouseOver="MoveSlider">_</span>
+
</p>
<p id="Slider" align="justify"
style="position: absolute; left: 10; top: 48; width: 40; height: 16; cursor='default'" 
OnSelectStart="javascript:return false"
OnMouseDown="mso=True">
<font color="#FF00FF">[|]</font>
</p>

</BODY>
</HTML>

< Message edited by Fredledingue -- 8/26/2008 8:42:53 PM >

_____________________________

Fred

Revisions: 2 | Post #: 1

RE: Slider for Hta or Html (plain script) - 9/11/2008 8:21:58 AM

seakip

Posts: 6
Score: 0
Joined: 8/14/2008
Status: offline

Neat! =)

_____________________________

[ Seakip ]

(in reply to Fredledingue)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Slider for Hta or Html (plain script)

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts

Forum Software © ASPPlayground.NET Advanced Edition 2.5.5 ANSI