Access) (Rectangle.OldBorderStyle 屬性
使用此屬性可設定或傳回表單或控制項之 BorderStyle 屬性的未編輯值。 這個屬性才有用如果您需要回復至編輯或偏好的框線樣式。 可讀寫的 Byte 。
運算式。OldBorderStyle
表達 代表 Rectangle 物件的 變數。
OldBorderStyle 屬性使用下列設定值。
設定 | Visual Basic | 描述 |
---|---|---|
透明 | 0 | (預設值,僅適用標籤、圖表和子報表)。透明的 |
原色 | 1 | (預設值) 實線 |
虛線 | 2 | 虛線 |
短虛線 | 3 | 有短虛線的虛線 |
點線 | 4 | 點線 |
稀點狀線 | 5 | 點距離較寬的點線 |
虛線-點 | 6 | 使用虛線-點組合的直線 |
虛線-點-點 | 7 | 使用虛線-點-點組合的直線 |
雙實線 | 8 | 雙實線 |
下列範例示範變更控制項的 BorderStyle 屬性,同時讓 OldBorderStyle 不受影響的效果。 此範例已結束 BorderStyle 屬性設定為其原始未編輯的值。
With Forms("Order Entry").Controls("ZIP Code")
.BorderStyle = 3 ' Short dashed border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 3, 1.
.BorderStyle = 2 ' Dashed border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 2, 1
.BorderStyle = .OldBorderStyle ' Solid (default) border.
MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _
"OldBorderStyle = " & .OldBorderStyle ' Prints 1, 1
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。