VB.Net Tutorial/GUI/DomainUpDowns

DomainUpDowns

<source lang="vbnet">imports System imports System.Drawing imports System.Windows.Forms public class DomainUpDowns : inherits Form

 dim dupdwn as DomainUpDown
 public sub New()
   Size = new Size(480,580)
   dupdwn = new DomainUpDown()
   dupdwn.Parent = me
   dupdwn.Location = new Point(10,50)
   dupdwn.Size = new Size(150,dupdwn.PreferredHeight)
   dupdwn.ReadOnly = true
   dupdwn.TextAlign = HorizontalAlignment.Center
   dupdwn.UpDownAlign = LeftRightAlignment.Left
   dupdwn.Wrap = true
   AddHandler dupdwn.SelectedItemChanged, _
     AddressOf dupdwn_OnSelectedItemChanged
   dupdwn.Items.Add(BorderStyle.Fixed3D)
   dupdwn.Items.Add(BorderStyle.FixedSingle)
   dupdwn.Items.Add(BorderStyle.None) 
   dupdwn.SelectedIndex = 0
 end sub
 private sub dupdwn_OnSelectedItemChanged(ByVal sender as object, _
                   ByVal e as EventArgs)
   "Me.BorderStyle = CType(dupdwn.SelectedItem, BorderStyle)
 end sub
 public shared sub Main() 
   Application.Run(new DomainUpDowns())
 end sub

end class</source>