VB.NET TrackBar.TickStyle屬性代碼示例

'Declare a new TrackBar object.
Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar

' Initalize the TrackBar and add it to the form.
Private Sub InitializeTrackBar()
    Me.TrackBar1 = New System.Windows.Forms.TrackBar

    ' Set the TickStyle property so there are ticks on both sides
    ' of the TrackBar.
    TrackBar1.TickStyle = TickStyle.Both

    ' Set the minimum and maximum number of ticks.
    TrackBar1.Minimum = 10
    TrackBar1.Maximum = 100

    ' Set the tick frequency to one tick every ten units.
    TrackBar1.TickFrequency = 10

    TrackBar1.Location = New System.Drawing.Point(75, 30)
    Me.Controls.Add(Me.TrackBar1)
End Sub


' Handle the TrackBar.ValueChanged event by calculating a value for
' TextBox1 based on the TrackBar value.  
Private Sub TrackBar1_ValueChanged(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
    TextBox1.Text = System.Math.Round(TrackBar1.Value / 10)
End Sub

imports System
imports System.Drawing
imports System.Windows.Forms

public class TrackBars : inherits Form
  dim htbar as TrackBar
  dim vtbar as TrackBar

  public sub New()
    Size = new Size(500,520)

    htbar = new TrackBar()
    htbar.Parent = me
    htbar.Orientation = Orientation.Horizontal
    htbar.Size = new Size(200, 10)
    htbar.Location = new Point(0, 25)
    htbar.TickStyle = TickStyle.BottomRight
    htbar.TickFrequency = 25
    htbar.Minimum = 25
    htbar.Maximum = 400
    htbar.SmallChange = 10
    htbar.LargeChange = 25
    htbar.BackColor = Color.Yellow
    htbar.Value = 100
    AddHandler htbar.ValueChanged, AddressOf htbar_OnValueChanged

    vtbar = new TrackBar()
    vtbar.Parent = me
    vtbar.Orientation = Orientation.Vertical
    vtbar.Size = new Size(25, 300)
    vtbar.Location = new Point(25, 25)
    vtbar.TickStyle = TickStyle.BottomRight
    vtbar.SetRange(25,400)
    vtbar.SmallChange = 10
    vtbar.LargeChange = 50
    vtbar.TickFrequency = CInt(vtbar.Maximum / 20)
    vtbar.BackColor = Color.Pink
    vtbar.Value = 200
    AddHandler vtbar.ValueChanged, AddressOf vtbar_OnValueChanged

  end sub  '  close for constructor

  private sub htbar_OnValueChanged(ByVal sender as object, _
              ByVal e as EventArgs)
    Console.WriteLine(htbar.Value)
  end sub

  private sub vtbar_OnValueChanged(ByVal sender as object, _
              ByVal e as EventArgs)
    Console.WriteLine(vtbar.Value)
    Console.WriteLine(vtbar.LargeChange)
  end sub

  public shared sub Main() 
    Application.Run(new TrackBars())
  end sub
end class