Button.Top プロパティ
Button の上端とワークシートの上端との間の距離をポイントで取得します。
名前空間: Microsoft.Office.Tools.Excel.Controls
アセンブリ: Microsoft.Office.Tools.Excel.v4.0.Utilities (Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 内)
構文
'宣言
Public Property Top As Double
Get
Set
public double Top { get; set; }
プロパティ値
型: System.Double
Button の上端からワークシートの上端までの間隔 (ポイント単位) です。
解説
Button.Top プロパティではポイントが使用されます。一方、Control.Top プロパティではピクセルが使用されます。
例
次のコード例では、2 つの Button コントロールのサイズ変更および移動の動作をワークシートと比較します。 最初のボタンの Click イベント ハンドラーは、サイズを変更してもボタンがワークシート上の同じ位置に残るよう、ボタンの Height および Width プロパティを調整します。 2 番目のボタンの Click イベント ハンドラーは、ワークシート上でボタンの位置を変更しても同じサイズのままになるよう、ボタンの Top および Left プロパティを調整します。
この例は、ドキュメント レベルのカスタマイズ用に作成されています。
Private Sub ModifySizeAndLocation()
Dim SizeButton As Microsoft.Office.Tools.Excel.Controls.Button = _
Me.Controls.AddButton(25, 30, 100, 25, "SizeButton")
SizeButton.Name = "SizeButton"
SizeButton.Text = "Click to resize"
AddHandler SizeButton.Click, AddressOf PointButtons_Click
Dim LocationButton As Microsoft.Office.Tools.Excel.Controls.Button = _
Me.Controls.AddButton(25, 150, 100, 25, "LocationButton")
LocationButton.Name = "LocationButton"
LocationButton.Text = "Click to move"
AddHandler LocationButton.Click, AddressOf PointButtons_Click
End Sub
' Represents the toggle states of the buttons.
Private toggleState1 As Boolean = True
Private toggleState2 As Boolean = True
Private Sub PointButtons_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim ClickedButton As Microsoft.Office.Tools.Excel.Controls.Button = _
CType(sender, Microsoft.Office.Tools.Excel.Controls.Button)
' Toggle the Height and Width of sizeButton.
If ClickedButton.Name = "SizeButton" Then
If toggleState1 Then
ClickedButton.Height = 40
ClickedButton.Width = 80
toggleState1 = False
Else
ClickedButton.Height = 25
ClickedButton.Width = 100
toggleState1 = True
End If
' Toggle the Left and Top of locationButton.
Else
If toggleState2 Then
ClickedButton.Left = 50
ClickedButton.Top = 100
toggleState2 = False
Else
ClickedButton.Left = 25
ClickedButton.Top = 150
toggleState2 = True
End If
End If
End Sub
private void ModifySizeAndLocation()
{
Microsoft.Office.Tools.Excel.Controls.Button sizeButton =
this.Controls.AddButton(25, 30, 100, 25,
"sizeButton");
sizeButton.Name = "sizeButton";
sizeButton.Text = "Click to resize";
sizeButton.Click += new EventHandler(pointButtons_Click);
Microsoft.Office.Tools.Excel.Controls.Button locationButton =
this.Controls.AddButton(25, 150, 100, 25,
"locationButton");
locationButton.Name = "locationButton";
locationButton.Text = "Click to move";
locationButton.Click += new EventHandler(pointButtons_Click);
}
// Represents the toggle states of the buttons.
bool toggleState1 = true;
bool toggleState2 = true;
void pointButtons_Click(object sender, EventArgs e)
{
Microsoft.Office.Tools.Excel.Controls.Button clickedButton =
(Microsoft.Office.Tools.Excel.Controls.Button)sender;
// Toggle the Height and Width of sizeButton.
if (clickedButton.Name == "sizeButton")
{
if (toggleState1)
{
clickedButton.Height = 40;
clickedButton.Width = 80;
toggleState1 = false;
}
else
{
clickedButton.Height = 25;
clickedButton.Width = 100;
toggleState1 = true;
}
}
// Toggle the Left and Top of locationButton.
else
{
if (toggleState2)
{
clickedButton.Left = 50;
clickedButton.Top = 100;
toggleState2 = false;
}
else
{
clickedButton.Left = 25;
clickedButton.Top = 150;
toggleState2 = true;
}
}
}
.NET Framework セキュリティ
- 直前の呼び出し元に対する完全な信頼。 このメンバーは、部分的に信頼されているコードから使用することはできません。 詳細については、「部分信頼コードからのライブラリの使用」を参照してください。