为什么这个CLS不合规？ [英] Why isnt this CLS compliant?
问题描述
这个课程的出现不符合CLS，为什么？
带有这个警告
警告2类型''帐户''不符合CLS。
命名空间账号
'''''< summary>
'''' ''代表一个帐户
'''''< / summary>
''''''<备注> < / remarks>
公共类账号
私人m_AccountID为Int64
私人m_Name As String = String.Empty
公共财产AccountID（）如Int64
获取
返回m_AccountID
结束获取
设置（ByVal值为Int64）
m_AccountID = value
结束集
结束财产
公共财产名称（）字符串
获取
返回m_Name.Trim
结束获取
设置（ByVal值为字符串）
m_Name = value
结束集
结束物业
Public Sub New（）
Me.AccountID = -1
Me.Name = String.Empty
End Sub
公共子新（ByVal accountID为Int64，ByVal名称为字符串）
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
公共覆盖函数ToString（）为字符串
返回Me.Name
结束函数
/>
结束类
结束命名空间
我相信as Int64是罪魁祸首
来证明/反驳，暂时改为整数
Smokey Grindle < no **** @ dontspamme.com写信息
新闻：或************** @ TK2MSFTNGP04.phx.gbl ...
这个课程的出现不符合CLS，为什么？
带有此警告
警告2输入''帐户''不符合CLS。
命名空间账号
'''''< summary>
'''''代表一个帐户
'''''< / summary>
''''''<评论>< / remarks>
公共类帐户
私有m_AccountID为Int64
私有m_Name为String = String.Empty
公共属性AccountID（）为Int64
获取
返回m_AccountID
结束获取
设置（ByVal值为Int64）
m_AccountID =价值
结束套件
结束物业
上市物业名称（）为字符串
获取
返回m_Name.Trim
结束获取
设定（ByVal值为字符串）
m_Name = value
结束集
结束物业
Public Sub New（）
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New（ByVal accountID As Int64， ByVal name As String）
Me.AccountID = accountID
Me.Name = name.Trim
结束子
公共覆盖函数ToString（）为字符串
返回Me.Name
结束功能
结束班级
结束命名空间
nope，没有改变任何东西，我认为只是无符号整数，未签名
值非CLS
" ; GS" < gs@dontMail.teluswrote in message
news：em ************** @ TK2MSFTNGP02.phx.gbl ...
>我相信as Int64是罪魁祸首
来证明/反驳，暂时改为整数
Smokey Grindle < no **** @ dontspamme.com写信息
新闻：或************** @ TK2MSFTNGP04.phx.gbl ...
>这个类出现了不符合CLS的原因，为什么？
这个warrning
警告2类型''账户''不是CLS-符合条件。
命名空间帐户
'''''<摘要>
''''''代表帐户
'''''< / summary>
''''''<备注>< / remarks>
公共类帐户
私有m_AccountID为Int64
私有m_Name为String = String.Empty
公共属性AccountID（）为Int64
获取
返回m_AccountID
结束获取
设置（ByVal值为Int64）
m_AccountID = value
结束集
结束财产
公共财产名称（）作为字符串
获取
返回m_Name.Trim
结束获取
设置（ByVa l值为字符串）
m_Name = value
结束集
结束属性
Public Sub New（）
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New（ ByVal accountID As Int64，ByVal name As String）
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
公共覆盖函数ToString（）As String
返回Me.Name
结束函数
结束类
结束命名空间
我在VB 2005中遇到的唯一错误此代码的控制台应用程序是
警告1每个语言元素只允许一个XML注释块。
C：\Documents and Settings \mdo \\Local Settings \Application Data \Temporary
Projects\ConsoleApplication1\Module1.vb 11 5 ConsoleApplication1
我在''上收到此错误 '''< summary>，''''''代表和帐户，''''''
< / summarylines
迈克。
Smokey Grindle < no **** @ dontspamme.com写信息
新闻：或************** @ TK2MSFTNGP04.phx.gbl ...
这个课程的出现不符合CLS，为什么？
带有此警告
警告2输入''帐户''不符合CLS。
命名空间账号
'''''< summary>
'''''代表一个帐户
'''''< / summary>
''''''<评论>< / remarks>
公共类帐户
私有m_AccountID为Int64
私有m_Name为String = String.Empty
公共属性AccountID（）为Int64
获取
返回m_AccountID
结束获取
设置（ByVal值为Int64）
m_AccountID =价值
结束套件
结束物业
上市物业名称（）为字符串
获取
返回m_Name.Trim
结束获取
设定（ByVal值为字符串）
m_Name = value
结束集
结束物业
Public Sub New（）
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New（ByVal accountID As Int64， ByVal name As String）
Me.AccountID = accountID
Me.Name = name.Trim
结束子
公共覆盖函数ToString（）为字符串
返回Me.Name
结束功能
结束班级
结束命名空间
This class is coming up as not CLS compliant, why?
with this warrning
Warning 2 Type ''Account'' is not CLS-compliant.
Namespace Accounts
'''''' <summary>
'''''' Represents an account
'''''' </summary>
'''''' <remarks></remarks>
Public Class Account
Private m_AccountID As Int64
Private m_Name As String = String.Empty
Public Property AccountID() As Int64
Get
Return m_AccountID
End Get
Set(ByVal value As Int64)
m_AccountID = value
End Set
End Property
Public Property Name() As String
Get
Return m_Name.Trim
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
Public Sub New()
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New(ByVal accountID As Int64, ByVal name As String)
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
Public Overrides Function ToString() As String
Return Me.Name
End Function
End Class
End Namespace
I believe "as Int64" is the culprit
to prove/disprove, change it temporarily to Integer
"Smokey Grindle" <no****@dontspamme.comwrote in message
news:Or**************@TK2MSFTNGP04.phx.gbl...This class is coming up as not CLS compliant, why?
with this warrning
Warning 2 Type ''Account'' is not CLS-compliant.
Namespace Accounts
'''''' <summary>
'''''' Represents an account
'''''' </summary>
'''''' <remarks></remarks>
Public Class Account
Private m_AccountID As Int64
Private m_Name As String = String.Empty
Public Property AccountID() As Int64
Get
Return m_AccountID
End Get
Set(ByVal value As Int64)
m_AccountID = value
End Set
End Property
Public Property Name() As String
Get
Return m_Name.Trim
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
Public Sub New()
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New(ByVal accountID As Int64, ByVal name As String)
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
Public Overrides Function ToString() As String
Return Me.Name
End Function
End Class
End Namespace
nope, didnt change anything, I thought just unsigned integers, and unsigned
values where non-CLS
"gs" <gs@dontMail.teluswrote in message
news:em**************@TK2MSFTNGP02.phx.gbl...>I believe "as Int64" is the culprit
to prove/disprove, change it temporarily to Integer
"Smokey Grindle" <no****@dontspamme.comwrote in message
news:Or**************@TK2MSFTNGP04.phx.gbl...>This class is coming up as not CLS compliant, why?
with this warrning
Warning 2 Type ''Account'' is not CLS-compliant.
Namespace Accounts
'''''' <summary>
'''''' Represents an account
'''''' </summary>
'''''' <remarks></remarks>
Public Class Account
Private m_AccountID As Int64
Private m_Name As String = String.Empty
Public Property AccountID() As Int64
Get
Return m_AccountID
End Get
Set(ByVal value As Int64)
m_AccountID = value
End Set
End Property
Public Property Name() As String
Get
Return m_Name.Trim
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
Public Sub New()
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New(ByVal accountID As Int64, ByVal name As String)
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
Public Overrides Function ToString() As String
Return Me.Name
End Function
End Class
End Namespace
The only errors I get in a VB 2005 console application for this code is
Warning 1 Only one XML comment block is allowed per language element.
C:\Documents and Settings\mdo\Local Settings\Application Data\Temporary
Projects\ConsoleApplication1\Module1.vb 11 5 ConsoleApplication1
I get this error on the '''''' <summary>, '''''' Represents and account, and ''''''
</summarylines
Mike.
"Smokey Grindle" <no****@dontspamme.comwrote in message
news:Or**************@TK2MSFTNGP04.phx.gbl...This class is coming up as not CLS compliant, why?
with this warrning
Warning 2 Type ''Account'' is not CLS-compliant.
Namespace Accounts
'''''' <summary>
'''''' Represents an account
'''''' </summary>
'''''' <remarks></remarks>
Public Class Account
Private m_AccountID As Int64
Private m_Name As String = String.Empty
Public Property AccountID() As Int64
Get
Return m_AccountID
End Get
Set(ByVal value As Int64)
m_AccountID = value
End Set
End Property
Public Property Name() As String
Get
Return m_Name.Trim
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
Public Sub New()
Me.AccountID = -1
Me.Name = String.Empty
End Sub
Public Sub New(ByVal accountID As Int64, ByVal name As String)
Me.AccountID = accountID
Me.Name = name.Trim
End Sub
Public Overrides Function ToString() As String
Return Me.Name
End Function
End Class
End Namespace
这篇关于为什么这个CLS不合规？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
