DomainUpDowns : DomainUpDowns « GUI « VB.Net Tutorial






  1. VB.Net Tutorial
  2. GUI
  3. DomainUpDowns
DomainUpDowns
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








14.10.DomainUpDowns
14.10.1.DomainUpDownsDomainUpDowns