Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
' ----------------------------------------------------------------------------
' ツールバーを作成し、UltraToolbarManager のツールバー コレクションに追加します
Me.UltraToolbarsManager1.Toolbars.AddToolbar("Password")
' ----------------------------------------------------------------------------
' TextBoxTool および LabelTool を作成し、ツールバーに追加します
Dim textBoxTool As New TextBoxTool("PasswordTextBox")
Dim labelTool As New LabelTool("PasswordLabel")
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.AddRange(New ToolBase() {textBoxTool, labelTool})
' ツールバーにツールを追加します
Me.UltraToolbarsManager1.Toolbars("Password").Tools.AddTool("PasswordLabel")
Me.UltraToolbarsManager1.Toolbars("Password").Tools.AddTool("PasswordTextBox")
' ----------------------------------------------------------------------------
' ラベルのキャプションを設定し、テキストを右揃えにします
labelTool.SharedProps.Caption = "Password:"
labelTool.SharedProps.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True
labelTool.SharedProps.AppearancesSmall.Appearance.TextHAlign = HAlign.Right
' ----------------------------------------------------------------------------
' パスワード入力のためにテキストボックスを設定します
textBoxTool.PasswordChar = "*"
textBoxTool.MaxLength = 10
textBoxTool.Locked = False
textBoxTool.Text = "password"
textBoxTool.VerticalDisplayStyle = VerticalDisplayStyle.ShowAsButton
textBoxTool.EditAppearance.FontData.Bold = DefaultableBoolean.True
End Sub