VB.Net by API/System.Windows.Forms/TrackBar
Содержание
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>