UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Custom Slider Control, Access 2010    
 
   
gregz
post Aug 2 2013, 11:10 AM
Post#1



Posts: 68
Joined: 11-April 11
From: Verona, Wisconsin, USA


Attached is a custom slider control written for Access 2010, 32 or 64 bit. It does not use Windows Common Controls (or any ActiveX control). A few style variations are demonstrated, as well as use as a sound volume control. There is also an Access 2000 & 2003 version.
Attached File  SliderControl2K.zip ( 118.41K )Number of downloads: 348

Attached File(s)
Attached File  SliderControlACCDB.zip ( 75.29K )Number of downloads: 496
 
Go to the top of the page
 
gregz
post Aug 14 2013, 11:09 AM
Post#2



Posts: 68
Joined: 11-April 11
From: Verona, Wisconsin, USA


When I originally submitted this to the code archive I only provided a 2010 version. CyberCow was kind enough to down-convert it and provide the 2000 and 2003 versions. Moo, thank you for doing this, and all the all the help you've given many, many of us on UA! hat_tip.gif
regz
Go to the top of the page
 
jas0501
post Jul 29 2015, 07:25 AM
Post#3



Posts: 1
Joined: 28-July 15



Nice implementation. Adding sensitivity to mouse wheel is very easy:

CODE
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dim dblNewVal As Double
dblNewVal = Me.SliderValue + Count
    If dblNewVal >= mdblMinVal And dblNewVal <= mdblMaxVal Then
         Me.SliderValue = dblNewVal
    ElseIf dblNewVal < mdblMinVal Then
         Me.SliderValue = mdblMinVal
    ElseIf dblNewVal > mdblMaxVal Then
         Me.SliderValue = mdblMaxVal
    End If
End Sub
Go to the top of the page
 
gregz
post Aug 1 2015, 08:57 PM
Post#4



Posts: 68
Joined: 11-April 11
From: Verona, Wisconsin, USA


jas0501,

welcome2UA.gif

Nice improvement! Thanks for sharing it.

Greg
Go to the top of the page
 


Custom Search
RSSSearch   Top   Lo-Fi    14th December 2017 - 11:23 PM