VB.Net Tutorial/GUI/NumericUpDown

Get value from the NumericUpDown control

Imports System.Windows.Forms
public class GetValueFromNumericUpDown
   public Shared Sub Main
        Application.Run(New FrmInterestCalculator)
   End Sub
End class
Public Class FrmInterestCalculator
   Private Sub btnCalculate_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles btnCalculate.Click
      
      Console.WriteLine(Convert.ToInt32(updYear.Value))
   End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class FrmInterestCalculator
   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.btnCalculate = New System.Windows.Forms.Button
      Me.txtDisplay = New System.Windows.Forms.TextBox
      Me.lblBalance = New System.Windows.Forms.Label
      Me.updYear = New System.Windows.Forms.NumericUpDown
      Me.lblYears = New System.Windows.Forms.Label
      Me.txtInterest = New System.Windows.Forms.TextBox
      Me.lblInterest = New System.Windows.Forms.Label
      Me.txtPrincipal = New System.Windows.Forms.TextBox
      Me.lblPrincipal = New System.Windows.Forms.Label
      CType(Me.updYear, System.ruponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      "
      "btnCalculate
      "
      Me.btnCalculate.Location = New System.Drawing.Point(197, 14)
      Me.btnCalculate.Name = "btnCalculate"
      Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
      Me.btnCalculate.TabIndex = 17
      Me.btnCalculate.Text = "Calculate"
      "
      "txtDisplay
      "
      Me.txtDisplay.BackColor = System.Drawing.SystemColors.Control
      Me.txtDisplay.Location = New System.Drawing.Point(18, 170)
      Me.txtDisplay.Multiline = True
      Me.txtDisplay.Name = "txtDisplay"
      Me.txtDisplay.ReadOnly = True
      Me.txtDisplay.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
      Me.txtDisplay.Size = New System.Drawing.Size(254, 104)
      Me.txtDisplay.TabIndex = 16
      "
      "lblBalance
      "
      Me.lblBalance.AutoSize = True
      Me.lblBalance.Location = New System.Drawing.Point(17, 143)
      Me.lblBalance.Name = "lblBalance"
      Me.lblBalance.Size = New System.Drawing.Size(122, 13)
      Me.lblBalance.TabIndex = 15
      Me.lblBalance.Text = "Yearly account balance:"
      "
      "updYear
      "
      Me.updYear.Location = New System.Drawing.Point(85, 95)
      Me.updYear.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
      Me.updYear.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
      Me.updYear.Name = "updYear"
      Me.updYear.ReadOnly = True
      Me.updYear.Size = New System.Drawing.Size(100, 20)
      Me.updYear.TabIndex = 14
      Me.updYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
      Me.updYear.Value = New Decimal(New Integer() {1, 0, 0, 0})
      "
      "lblYears
      "
      Me.lblYears.AutoSize = True
      Me.lblYears.Location = New System.Drawing.Point(17, 102)
      Me.lblYears.Name = "lblYears"
      Me.lblYears.Size = New System.Drawing.Size(37, 13)
      Me.lblYears.TabIndex = 13
      Me.lblYears.Text = "Years:"
      "
      "txtInterest
      "
      Me.txtInterest.Location = New System.Drawing.Point(85, 58)
      Me.txtInterest.Name = "txtInterest"
      Me.txtInterest.Size = New System.Drawing.Size(100, 20)
      Me.txtInterest.TabIndex = 12
      Me.txtInterest.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
      "
      "lblInterest
      "
      Me.lblInterest.AutoSize = True
      Me.lblInterest.Location = New System.Drawing.Point(17, 61)
      Me.lblInterest.Name = "lblInterest"
      Me.lblInterest.Size = New System.Drawing.Size(71, 13)
      Me.lblInterest.TabIndex = 11
      Me.lblInterest.Text = "Interest Rate:"
      "
      "txtPrincipal
      "
      Me.txtPrincipal.Location = New System.Drawing.Point(85, 17)
      Me.txtPrincipal.Name = "txtPrincipal"
      Me.txtPrincipal.Size = New System.Drawing.Size(100, 20)
      Me.txtPrincipal.TabIndex = 10
      Me.txtPrincipal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
      "
      "lblPrincipal
      "
      Me.lblPrincipal.AutoSize = True
      Me.lblPrincipal.Location = New System.Drawing.Point(17, 20)
      Me.lblPrincipal.Name = "lblPrincipal"
      Me.lblPrincipal.Size = New System.Drawing.Size(50, 13)
      Me.lblPrincipal.TabIndex = 9
      Me.lblPrincipal.Text = "Principal:"
      "
      "FrmInterestCalculator
      "
      Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
      Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
      Me.ClientSize = New System.Drawing.Size(289, 288)
      Me.Controls.Add(Me.btnCalculate)
      Me.Controls.Add(Me.txtDisplay)
      Me.Controls.Add(Me.lblBalance)
      Me.Controls.Add(Me.updYear)
      Me.Controls.Add(Me.lblYears)
      Me.Controls.Add(Me.txtInterest)
      Me.Controls.Add(Me.lblInterest)
      Me.Controls.Add(Me.txtPrincipal)
      Me.Controls.Add(Me.lblPrincipal)
      Me.Name = "FrmInterestCalculator"
      Me.Text = "Interest Calculator"
      CType(Me.updYear, System.ruponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)
      Me.PerformLayout()
   End Sub
   Friend WithEvents btnCalculate As System.Windows.Forms.Button
   Friend WithEvents txtDisplay As System.Windows.Forms.TextBox
   Friend WithEvents lblBalance As System.Windows.Forms.Label
   Friend WithEvents updYear As System.Windows.Forms.NumericUpDown
   Friend WithEvents lblYears As System.Windows.Forms.Label
   Friend WithEvents txtInterest As System.Windows.Forms.TextBox
   Friend WithEvents lblInterest As System.Windows.Forms.Label
   Friend WithEvents txtPrincipal As System.Windows.Forms.TextBox
   Friend WithEvents lblPrincipal As System.Windows.Forms.Label
End Class

ScrollBars - NumericUpDowns

imports System
imports System.Drawing
imports System.Windows.Forms
public class NumericUpDowns : inherits Form
  dim hbar as HScrollBar
  dim vbar as VScrollBar
  dim nupdwn as NumericUpDown
  public sub New()
    Size = new Size(480,580)
    hbar = new HScrollBar()
    hbar.Parent = me
    hbar.Location = new Point(0, 25)
    hbar.Size = new Size(300, 25)
    hbar.Minimum = 25
    hbar.Maximum = 400
    hbar.SmallChange = 10
    hbar.LargeChange = 100
    hbar.Value = 10
    AddHandler hbar.ValueChanged, AddressOf hbar_OnValueChanged
    vbar = new VScrollBar()
    vbar.Parent = me
    vbar.Location = new Point(25, 25)
    vbar.Size = new Size(25, 300)
    vbar.Minimum = 25
    vbar.Maximum = 400
    vbar.SmallChange = 10
    vbar.LargeChange = 100
    vbar.Value = 10
    AddHandler vbar.ValueChanged, AddressOf vbar_OnValueChanged
    nupdwn = new NumericUpDown()
    nupdwn.Parent = me
    nupdwn.Location = new Point(100,100)
    nupdwn.Size = new Size(60,20)
    nupdwn.Value = 1
    nupdwn.Minimum = -10
    nupdwn.Maximum = 10
    nupdwn.Increment = .25d      "  decimal 
    nupdwn.DecimalPlaces = 2
    nupdwn.ReadOnly = true
    nupdwn.TextAlign = HorizontalAlignment.Right
    AddHandler nupdwn.ValueChanged, AddressOf nupdwn_OnValueChanged
  end sub
  private sub hbar_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
    Console.WriteLine(hbar.Value)
    Console.WriteLine(hbar.LargeChange)
  end sub
  private sub vbar_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
    Console.WriteLine(vbar.Value)
    Console.WriteLine(vbar.LargeChange)
  end sub
  private sub nupdwn_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
    Console.WriteLine(nupdwn.Value)
  end sub
  public shared sub Main() 
    Application.Run(new NumericUpDowns())
  end sub
end class