ButtonBar

[georgepatotk]

I don't know what is this control called, but, i need to do something similar with the picture i have shown.

What are the control that I could use in order to do this?

Thanks in advance.

buttonbar.bmp

[PlausiblyDamp]

could you not either use a toolbar or just create your own control with a series of buttons?

[georgepatotk]

 Dim itemHeight as Integer = 60 ' can set to any size u want
 Dim itemWidht as Integer = 80 ' can set to any size u want

 Private Sub btnLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLeft.Click
       If pnlIn.Left - pnlIn.Width < 0 And pnlIn.Left < 0 Then
           pnlIn.Left = pnlIn.Left + itemWidth
       End If
   End Sub

   Private Sub btnRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRight.Click
       If pnlIn.Width - (0 - pnlIn.Left) > pnlOut.Width Then
           pnlIn.Left = pnlIn.Left - itemWidth
       End If
   End Sub

Private Sub AddButtons() ' add eleven buttons
       For i As Integer = 0 To 10
           Dim btn As New Button

           btn.Text = "btn" & i

           btn.Left = pnlIn.Controls.Count * itemWidth
           btn.Width = itemWidth
           btn.Height = itemHeight
           pnlIn.Width = (pnlIn.Controls.Count + 1) * itemWidth

           pnlIn.Controls.Add(btn)
       Next
End Sub

 

here is the workaround for the case. I created it my own. So, I think there must be an easier way to do this. Please guide. Thanks...

buttonbar.bmp

[snarfblam]

You need a scrollable button control then? Why not just use a toolbar within a scrollable control or a series of buttons in a scrollable control?

[georgepatotk]

scroll bar's buttons are too small for my touch screen application. hehe...

[snarfblam]

An alternative could be to use a toolbar control where the first and last buttons are arrow buttons which hide/show middle buttons to create the effect of their scrolling.

 

Sorry if this is a bit long.

Imports System.Windows.Forms

Public Class Form1
   Inherits System.Windows.Forms.Form

   Public Shared Sub Main()
       Application.EnableVisualStyles()
       Application.Run(New Form1)
   End Sub

#Region " Windows Form Designer generated code "

   Public Sub New()
       MyBase.New()

       'This call is required by the Windows Form Designer.
       InitializeComponent()

       'Add any initialization after the InitializeComponent() call
   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing Then
           If Not (components Is Nothing) Then
               components.Dispose()
           End If
       End If
       MyBase.Dispose(disposing)
   End Sub

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.IContainer

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   Friend WithEvents Timer1 As System.Windows.Forms.Timer
   Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
   Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton11 As System.Windows.Forms.ToolBarButton
   Friend WithEvents ToolBarButton12 As System.Windows.Forms.ToolBarButton
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.components = New System.ComponentModel.Container
       Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
       Me.ToolBar1 = New System.Windows.Forms.ToolBar
       Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton11 = New System.Windows.Forms.ToolBarButton
       Me.ToolBarButton12 = New System.Windows.Forms.ToolBarButton
       Me.SuspendLayout()
  
       'ToolBar1
       Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1,  _
Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, _
Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, _
Me.ToolBarButton8, Me.ToolBarButton9, Me.ToolBarButton10, _
Me.ToolBarButton11, Me.ToolBarButton12})
       Me.ToolBar1.DropDownArrows = True
       Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
       Me.ToolBar1.Name = "ToolBar1"
       Me.ToolBar1.ShowToolTips = True
       Me.ToolBar1.Size = New System.Drawing.Size(360, 42)
       Me.ToolBar1.TabIndex = 0

       Me.ToolBarButton1.Text = "<"
       Me.ToolBarButton2.Text = "1"
       Me.ToolBarButton3.Text = "2"
       Me.ToolBarButton4.Text = "3"
       Me.ToolBarButton5.Text = "4"
       Me.ToolBarButton6.Text = "5"
       Me.ToolBarButton7.Text = "6"
       Me.ToolBarButton7.Visible = False
       Me.ToolBarButton8.Text = "7"
       Me.ToolBarButton8.Visible = False
       Me.ToolBarButton9.Text = "8"
       Me.ToolBarButton9.Visible = False
       Me.ToolBarButton10.Text = "9"
       Me.ToolBarButton10.Visible = False
       Me.ToolBarButton11.Text = "0"
       Me.ToolBarButton11.Visible = False
       Me.ToolBarButton12.Text = ">"

       'Form1
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(360, 374)
       Me.Controls.Add(Me.ToolBar1)
       Me.Name = "Form1"
       Me.Text = "Form1"
       Me.ResumeLayout(False)

   End Sub
#End Region

   Dim FirstVisible As Integer = 1
   Dim LastVisible As Integer = 5

'This is where the scrolling is done. We hide the first/last button (depending
'on which way we scroll) update the "window" variables that specify the 
'visible range of buttons, then we show the new last/first button (depending
'on which way we scroll).
   Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal _
   e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
       With ToolBar1
           If e.Button Is .Buttons(0) AndAlso FirstVisible > 1 Then
               'If 'BACK BUTTON' and we are not at the left end of scrolling toolbar

               .Buttons(LastVisible).Visible = False
               FirstVisible -= 1
               LastVisible -= 1
               .Buttons(FirstVisible).Visible = True
           ElseIf e.Button Is ToolBar1.Buttons(ToolBar1.Buttons.Count - 1) AndAlso _
           LastVisible < .Buttons.Count - 2 Then
               'If 'FORWARD BUTTON' and we are not at end of scrolling toolbar 

               .Buttons(FirstVisible).Visible = False
               FirstVisible += 1
               LastVisible += 1
               .Buttons(LastVisible).Visible = True
           End If
       End With
   End Sub
End Class

Edited October 25, 2005 by snarfblam

[georgepatotk]

cool dude...