VB.Net by API/System.Windows.Forms/TrackBar

Материал из VB Эксперт
Перейти к: навигация, поиск

TrackBar.Maximum

<source lang="vbnet">

Imports System.Collections Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawCurveTension 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1 

   Private BendPoints As New Generic.List(Of Point)
   Private Sub Form1_MouseClick(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
       BendPoints.Add(New Point(e.X, e.Y))
       Me.Refresh()
   End Sub
   Private Sub Form1_Paint(ByVal sender As Object, _
         ByVal e As System.Windows.Forms.PaintEventArgs) _
         Handles Me.Paint
       Dim tension As Single
       Dim canvas As Graphics
       Dim scanPoint As Point
       Const PointSize As Integer = 2
       tension = TensionLevel.Value / TensionLevel.Maximum
       LabelTension.Text = "Tension:  " & tension.ToString
       canvas = e.Graphics
       For Each scanPoint In BendPoints
           canvas.FillEllipse(Brushes.Red,scanPoint.X - PointSize,scanPoint.Y - PointSize,PointSize * 2, PointSize * 2)
       Next scanPoint
       If (BendPoints.Count > 1) Then
           canvas.DrawCurve(Pens.Black, BendPoints.ToArray, tension)
       End If
   End Sub
   Private Sub TensionLevel_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
         Handles TensionLevel.ValueChanged
       Me.Refresh()
   End Sub
   Private Sub ActReset_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ActReset.Click
       BendPoints.Clear()
       Me.Refresh()
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1 

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.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.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.LabelTension = New System.Windows.Forms.Label
       Me.TensionLevel = New System.Windows.Forms.TrackBar
       Me.ActReset = New System.Windows.Forms.Button
       CType(Me.TensionLevel, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "LabelTension
       "
       Me.LabelTension.AutoSize = True
       Me.LabelTension.Location = New System.Drawing.Point(24, 32)
       Me.LabelTension.Name = "LabelTension"
       Me.LabelTension.Size = New System.Drawing.Size(66, 13)
       Me.LabelTension.TabIndex = 0
       Me.LabelTension.Text = "Tension: 0.0"
       "
       "TensionLevel
       "
       Me.TensionLevel.Location = New System.Drawing.Point(136, 24)
       Me.TensionLevel.Name = "TensionLevel"
       Me.TensionLevel.Size = New System.Drawing.Size(224, 45)
       Me.TensionLevel.TabIndex = 1
       "
       "ActReset
       "
       Me.ActReset.Location = New System.Drawing.Point(392, 24)
       Me.ActReset.Name = "ActReset"
       Me.ActReset.Size = New System.Drawing.Size(75, 23)
       Me.ActReset.TabIndex = 2
       Me.ActReset.Text = "Reset"
       Me.ActReset.UseVisualStyleBackColor = True
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(547, 264)
       Me.Controls.Add(Me.ActReset)
       Me.Controls.Add(Me.TensionLevel)
       Me.Controls.Add(Me.LabelTension)
       Me.Name = "Form1"
       Me.Text = "Drawing Cardinal Splines"
       CType(Me.TensionLevel, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents LabelTension As System.Windows.Forms.Label
   Friend WithEvents TensionLevel As System.Windows.Forms.TrackBar
   Friend WithEvents ActReset As System.Windows.Forms.Button

End Class 


 </source>


TrackBar.TickStyle

<source lang="vbnet"> 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 


 </source>


TrackBar.Value

<source lang="vbnet">

Imports System.Collections Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawCurveTension 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1 

   Private BendPoints As New Generic.List(Of Point)
   Private Sub Form1_MouseClick(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
       BendPoints.Add(New Point(e.X, e.Y))
       Me.Refresh()
   End Sub
   Private Sub Form1_Paint(ByVal sender As Object, _
         ByVal e As System.Windows.Forms.PaintEventArgs) _
         Handles Me.Paint
       Dim tension As Single
       Dim canvas As Graphics
       Dim scanPoint As Point
       Const PointSize As Integer = 2
       tension = TensionLevel.Value / TensionLevel.Maximum
       LabelTension.Text = "Tension:  " & tension.ToString
       canvas = e.Graphics
       For Each scanPoint In BendPoints
           canvas.FillEllipse(Brushes.Red,scanPoint.X - PointSize,scanPoint.Y - PointSize,PointSize * 2, PointSize * 2)
       Next scanPoint
       If (BendPoints.Count > 1) Then
           canvas.DrawCurve(Pens.Black, BendPoints.ToArray, tension)
       End If
   End Sub
   Private Sub TensionLevel_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
         Handles TensionLevel.ValueChanged
       Me.Refresh()
   End Sub
   Private Sub ActReset_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ActReset.Click
       BendPoints.Clear()
       Me.Refresh()
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1 

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.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.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.LabelTension = New System.Windows.Forms.Label
       Me.TensionLevel = New System.Windows.Forms.TrackBar
       Me.ActReset = New System.Windows.Forms.Button
       CType(Me.TensionLevel, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "LabelTension
       "
       Me.LabelTension.AutoSize = True
       Me.LabelTension.Location = New System.Drawing.Point(24, 32)
       Me.LabelTension.Name = "LabelTension"
       Me.LabelTension.Size = New System.Drawing.Size(66, 13)
       Me.LabelTension.TabIndex = 0
       Me.LabelTension.Text = "Tension: 0.0"
       "
       "TensionLevel
       "
       Me.TensionLevel.Location = New System.Drawing.Point(136, 24)
       Me.TensionLevel.Name = "TensionLevel"
       Me.TensionLevel.Size = New System.Drawing.Size(224, 45)
       Me.TensionLevel.TabIndex = 1
       "
       "ActReset
       "
       Me.ActReset.Location = New System.Drawing.Point(392, 24)
       Me.ActReset.Name = "ActReset"
       Me.ActReset.Size = New System.Drawing.Size(75, 23)
       Me.ActReset.TabIndex = 2
       Me.ActReset.Text = "Reset"
       Me.ActReset.UseVisualStyleBackColor = True
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(547, 264)
       Me.Controls.Add(Me.ActReset)
       Me.Controls.Add(Me.TensionLevel)
       Me.Controls.Add(Me.LabelTension)
       Me.Name = "Form1"
       Me.Text = "Drawing Cardinal Splines"
       CType(Me.TensionLevel, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents LabelTension As System.Windows.Forms.Label
   Friend WithEvents TensionLevel As System.Windows.Forms.TrackBar
   Friend WithEvents ActReset As System.Windows.Forms.Button

End Class 


 </source>


TractBar.BackColor

<source lang="vbnet"> 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 


 </source>


TractBar.LargeChange

<source lang="vbnet">

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 


 </source>


TractBar.SmallChange

<source lang="vbnet"> 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 


 </source>


TractBar.TickFrequency

<source lang="vbnet"> 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 


 </source>


TractBar.Value

<source lang="vbnet"> 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 


 </source>


TractBar.ValueChanged

<source lang="vbnet"> 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 


 </source>
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/TrackBar&oldid=2757»