VB.Net Tutorial/GUI/NumericUpDown — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:57, 26 мая 2010
Get value from the NumericUpDown control
<source lang="vbnet">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</source>
ScrollBars - NumericUpDowns
<source lang="vbnet">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</source>