閱讀英文

共用方式為


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 支援與意見反應