DomainUpDown.ReadOnly : DomainUpDown « System.Windows.Forms « VB.Net by API






DomainUpDown.ReadOnly

  

    
    
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

   
    
  








Related examples in the same category

1.DomainUpDown.Items.Add
2.DomainUpDown.SelectedIndex
3.DomainUpDown.SelectedItem
4.DomainUpDown.SelectedItemChanged
5.DomainUpDown.TextAlign
6.DomainUpDown.UpDownAlign