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>