我有以下简单的变量声明,是反编译生成的类:
Friend Class Project
Private _Status As Integer
Public Property Status As Integer
Get
Return Me._Status
End Get
Set(ByVal value As Integer)
Interlocked.Exchange(Me._Status, value)
End Set
End Property
End Class
是否有声明的缩写形式。 实际上,这是在类内部使用的backgroundworker,在另一个类中被外部访问。
为了清楚起见,“缩写”的意思我举个例子: 以下代码是一种缩写
SyncLock lock
z = 1
End SyncLock
以下是详细的代码:
Dim obj As Object = Me.lock
ObjectFlowControl.CheckForSyncLockOnValueType(obj)
Dim flag As Boolean = False
Try
Monitor.Enter(obj, flag)
Me.z = 1
Finally
If (flag) Then
Monitor.[Exit](obj)
End If
End Try