Mega Code Archive
DomainUpDowns
<![CDATA[
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
]]>