Codejock Developer Community : Problem with Slider

Problem with Slider : Glad to help!

Tue, 28 Apr 2009 06:38:34 +0000

Author: jpbro
Subject: 14148
Posted: 28 April 2009 at 6:38am

Glad to help!

Problem with Slider : is possible change slider to vertical...

Mon, 27 Apr 2009 14:36:00 +0000

Author: redstarsoft
Subject: 14148
Posted: 27 April 2009 at 2:36pm

is possible change slider to vertical ?

Problem with Slider : OHHHHHHHHH perfect jbbro thanks...

Mon, 27 Apr 2009 14:18:46 +0000

Author: redstarsoft
Subject: 14148
Posted: 27 April 2009 at 2:18pm

OHHHHHHHHH perfect jbbro

thanks so much :D

very good

Problem with Slider : Did you try it? Seems to work...

Mon, 27 Apr 2009 14:13:00 +0000

Author: jpbro
Subject: 14148
Posted: 27 April 2009 at 2:13pm

Did you try it? Seems to work for me:


Option Explicit

Private Const mc_IdScroll As Long = 1000

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   Select Case Control.Id
   Case mc_IdScroll
      ' Scroll has been clicked or changed
      Debug.Print "Scroll Value: " & Control.Pos
   End Select
End Sub

Private Sub Form_Load()
   Dim lo_Scroll As CommandBarScrollBar
   
   With Me.CommandBars1
      Set lo_Scroll = .CreateCommandBarControl("CXTPControlScrollBar")
      With lo_Scroll
         .Id = mc_IdScroll ' Give the Scroll control a unique identifier
         
         ' Set Scroll range & position
         .Min = 0
         .Max = 100
         .Pos = 25   ' Set initial position/value of Scroll
      End With
      
      .Item(1).Controls.AddControl lo_Scroll
   End With
End Sub

Problem with Slider : i do´t like of style of "...

Mon, 27 Apr 2009 14:08:19 +0000

Author: redstarsoft
Subject: 14148
Posted: 27 April 2009 at 2:08pm

i do�t like of style of "CXTPControlSlider"
think that CXTPControlScrollbar is more beautiful.

can i use CXTPcontrolscrollbar same ???

think that have a solucion to use it in VB.

comeone can help ? thanks

Problem with Slider : Try this code on a form with a...

Mon, 27 Apr 2009 14:06:22 +0000

Author: jpbro
Subject: 14148
Posted: 27 April 2009 at 2:06pm

Try this code on a form with a CommandBar control (CommandBars1) on it:


Option Explicit

Private Const mc_IdSlider As Long = 1000

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   Select Case Control.Id
   Case mc_IdSlider
      ' Slider has been clicked or changed
      Debug.Print "Slider Value: " & Control.Pos
   End Select
End Sub

Private Sub Form_Load()
   Dim lo_Slider As CommandBarSlider
   
   With Me.CommandBars1
      Set lo_Slider = .CreateCommandBarControl("CXTPControlSlider")
      With lo_Slider
         .Id = mc_IdSlider ' Give the slider control a unique identifier
         
         ' Set slider range & position
         .Min = 0
         .Max = 100
         .Pos = 25   ' Set initial position/value of slider
      End With
      
      .Item(1).Controls.AddControl lo_Slider
   End With
End Sub

Problem with Slider : can you show a exemple ?

Mon, 27 Apr 2009 13:58:26 +0000

Author: redstarsoft
Subject: 14148
Posted: 27 April 2009 at 1:58pm

can you show a exemple ?

Problem with Slider : Use CXTPControlSlider (instead...

Mon, 27 Apr 2009 12:31:03 +0000

Author: jpbro
Subject: 14148
Posted: 27 April 2009 at 12:31pm

Use CXTPControlSlider (instead of CXTPControlScrollbar), dim your control variable as CommandBarSlider and then set the Control.Pos property to change the position.

Problem with Slider : I want Set and Get "Value"...

Mon, 27 Apr 2009 02:30:42 +0000

Author: redstarsoft
Subject: 14148
Posted: 27 April 2009 at 2:30am

I want Set and Get "Value" of Control...