共用方式為


VCActiveXReference.ControlLocale 屬性

取得所選 ActiveX 參考的地區設定。

命名空間:  Microsoft.VisualStudio.VCProjectEngine
組件:  Microsoft.VisualStudio.VCProjectEngine (在 Microsoft.VisualStudio.VCProjectEngine.dll 中)

語法

'宣告
ReadOnly Property ControlLocale As Integer
int ControlLocale { get; }
property int ControlLocale {
    int get ();
}
abstract ControlLocale : int with get
function get ControlLocale () : int

屬性值

型別:System.Int32
int 或 long (視程式設計語言而定),表示所選 ActiveX 參考的地區設定值。

備註

如需如何編譯與執行此範例的詳細資訊,請參閱HOW TO:編譯 Visual C++ 程式碼模型擴充性的範例程式碼

範例

[Visual Basic]

迴圈將地區設定 ID 每 ActiveX 的方案和清單中的每個專案 (COM) 控制項。

' Add a reference to Microsoft.VisualStudio.VCProjectEngine and have a 
' Visual C++ project loaded before running this example. Also, you 
' should have at least one ActiveX (COM) reference in a project.
Imports EnvDTE
Imports Microsoft.VisualStudio.VCProjectEngine

Public Module Module1
    Sub Test()
        Dim proj As Project
        Dim vcproj As VCProject
        Dim ref As VCReference
        Dim axref As VCActiveXReference
     
        On Error Resume Next

        ' Loop each project in the solution.
        For Each proj In DTE.Solution.Projects
            vcproj = Nothing
            vcproj = CType(proj.Object, VCProject)
            ' If this project is a Visual C++ project.
            If Not vcproj Is Nothing Then
                ' Loop the references for this Visual C++ project.
                For Each ref In vcproj.VCReferences
                    axref = Nothing
                    axref = CType(ref, VCActiveXReference)
                    ' If this reference is an ActiveX reference.
                    If Not axref Is Nothing Then
                        MsgBox("Control locale: " & axref.ControlLocale)
                    End If
                Next
            End If
        Next
    End Sub
End Module

.NET Framework 安全性

請參閱

參考

VCActiveXReference 介面

Microsoft.VisualStudio.VCProjectEngine 命名空間