Imports Infragistics.Win ... Private Sub Applying_Appearances_to_Calculator_Controls_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' UseOsThemes および UseAppStyling を False に設定すると、 ' 作成されたグラデーションが適用されます Me.ultraCalculatorDropDown1.UseOsThemes = DefaultableBoolean.False Me.ultraCalculatorDropDown1.UseAppStyling = False ' コードで Appearance オブジェクトを作成します Dim app1 As New Appearance() Dim app2 As New Appearance() Dim app3 As New Appearance() Dim app4 As New Appearance() ' コード内で appearance1 のプロパティを設定します。 app1.FontData.SizeInPoints = 25 app1.BackColor = Color.White app1.BackColor2 = Color.Yellow app1.BackGradientStyle = GradientStyle.Circular app1.ForeColor = Color.DarkGreen app1.TextHAlign = HAlign.Right app1.Cursor = Cursors.Cross ' appearance2 のプロパティを設定します。 app2.BackColor = Color.Yellow app2.BackColor2 = Color.Green app2.BackGradientStyle = GradientStyle.BackwardDiagonal app2.FontData.Bold = DefaultableBoolean.True app2.FontData.Italic = DefaultableBoolean.True app2.TextHAlign = HAlign.Center app2.FontData.SizeInPoints = 15 app2.Cursor = Cursors.Help ' appearance 3 のプロパティを追加します。 app3.TextHAlign = HAlign.Center app3.BackColor = Color.DodgerBlue app3.BackColor2 = Color.Gainsboro app3.BackGradientStyle = GradientStyle.HorizontalBump ' 最後の appearance にプロパティを追加します。 app4.BackColor = Color.Black app4.BackHatchStyle = BackHatchStyle.DarkVertical app4.AlphaLevel = 150 app4.BackGradientStyle = GradientStyle.VerticalBump ' CalculatorButtonAppearance の外観を適用し、 ' 計算機の外観をオーバーライドしますが、 ' ただし、個々のボタンの Appearance はオーバーライドしません。 Me.ultraCalculatorDropDown1.CalculatorButtonAppearance = app3 ' 個々のボタンに適用され、 ' これまでのすべての外観をオーバーライドします。 Me.ultraCalculatorDropDown1.Buttons("+").Appearance = app2 Me.ultraCalculatorDropDown1.Buttons("=").Appearance = app1 ' 計算機全体の外観、エレメント全体および ' ButtonAppearance によってオーバーライドされていない外観、 ' または個々のボタンの外観のみに適用されます。 Me.ultraCalculatorDropDown1.CalculatorAppearance = app4 End Sub