' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Text
Imports System.Windows.Forms

  Public Partial Class DynamicBikingSpeedCtrl : Inherits UserControl
    Private m_dynamicBikingCmd As DynamicBikingCmd = Nothing

    Public Sub New()
      InitializeComponent()
    End Sub

    Public Sub SetDynamicBikingCmd(ByVal dynamicBikingCmd As DynamicBikingCmd)
      m_dynamicBikingCmd = dynamicBikingCmd
    End Sub

    Private Sub trackBar1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles trackBar1.ValueChanged
      If Not m_dynamicBikingCmd Is Nothing Then
        m_dynamicBikingCmd.PlaybackSpeed = trackBar1.Value
        toolTip1.ToolTipTitle = Convert.ToString(trackBar1.Value)
      End If
    End Sub
  End Class