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

1. VB.Net by API
2. System.Windows.Forms
3. DomainUpDown

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