Access) (TextBox.ControlType 屬性

使用 Visual Basic 中的 ControlType 屬性判斷表單或報表上的控制項類型。 可讀寫的 Byte。

語法

運算式。ControlType

運算式 代表 TextBox 物件的變數。

註解

ControlType 屬性設定是會指定控制項類型的內部常數。 如需 CreateControl 和 CreateReportControl 方法所建立控制項的完整清單，請參閱 AcControlType 列舉。

[!注意事項] ControlType 屬性僅可以使用 Visual Basic 中表單設計檢視或報表設計檢視設定，但是能在所有檢視中都讀取。

ControlType 屬性很有用檢查特定控制項類型的程式碼，但另一種類型來變更控制項的類型。 例如，您可以變更至下拉式方塊] 文字方塊中由文字方塊 ControlType 屬性設定為 acComboBox 在表單設計檢視中。

使用 ControlType 屬性，根據特定條件變更表單上類似控制項的特性。 例如，如果您不想要編輯現有的資料在文字方塊中的使用者，您可以所有文字方塊 SpecialEffect 屬性設定為普通並將該表單的 AllowEdits 屬性設定為 [否]。 ( SpecialEffect 屬性不會影響是否可以編輯資料 ； 此處使用以提供視覺提示已變更的控制行為)。

ControlType 屬性也用來指定要建立使用 CreateControl 方法時的控制項類型。

範例

下列範例會檢查 ControlType 屬性在表單上的所有控制項。 每個標籤和文字] 方塊中控制項的程序會切換這些控制項的 SpecialEffect 屬性。

當標籤控制項的 SpecialEffect 屬性設為 Shadowed，文字方塊控制項的 SpecialEffect 屬性設為 Normal，且 AllowAdditions、 AllowDeletions 和 AllowEdits 屬性都設為 True 時， intCanEdit 會切換變數以允許編輯基礎資料。

Sub ToggleControl(frm As Form) 
 Dim ctl As Control 
 Dim intI As Integer, intCanEdit As Integer 
 Const conTransparent = 0 
 Const conWhite = 16777215 
 For Each ctl in frm.Controls 
 With ctl 
 Select Case .ControlType 
 Case acLabel 
 If .SpecialEffect = acEffectShadow Then 
 .SpecialEffect = acEffectNormal 
 .BorderStyle = conTransparent 
 intCanEdit = True 
 Else 
 .SpecialEffect = acEffectShadow 
 intCanEdit = False 
 End If 
 Case acTextBox 
 If .SpecialEffect = acEffectNormal Then 
 .SpecialEffect = acEffectSunken 
 .BackColor = conWhite 
 Else 
 .SpecialEffect = acEffectNormal 
 .BackColor = frm.Detail.BackColor 
 End If 
 End Select 
 End With 
 Next ctl 
 If intCanEdit = IFalse Then 
 With frm 
 .AllowAdditions = False 
 .AllowDeletions = False 
 .AllowEdits = False 
 End With 
 Else 
 With frm 
 .AllowAdditions = True 
 .AllowDeletions = True 
 .AllowEdits = True 
 End With 
 End If 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • Last updated on