Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
lwm1986
roslyn
提交
5cb985cf
R
roslyn
项目概览
lwm1986
/
roslyn
与 Fork 源项目一致
从无法访问的项目Fork
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
R
roslyn
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
5cb985cf
编写于
5月 26, 2016
作者:
C
CyrusNajmabadi
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Generate the set method as well.
上级
30527d6b
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
25 addition
and
11 deletion
+25
-11
src/Features/VisualBasic/Portable/ReplacePropertyWithMethods/VisualBasicReplacePropertyWithMethods.vb
...pertyWithMethods/VisualBasicReplacePropertyWithMethods.vb
+25
-11
未找到文件。
src/Features/VisualBasic/Portable/ReplacePropertyWithMethods/VisualBasicReplacePropertyWithMethods.vb
浏览文件 @
5cb985cf
...
...
@@ -82,11 +82,12 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.CodeRefactorings.ReplaceMethodWithP
getMethod
,
desiredGetMethodName
,
cancellationToken
))
End
If
'Dim setMethod = [property].SetMethod
'If setMethod IsNot Nothing Then
' result.Add(GetSetMethod(
' generator, propertyStatement, setMethod, desiredSetMethodName))
'End If
Dim
setMethod
=
[
property
]
.
SetMethod
If
setMethod
IsNot
Nothing
Then
result
.
Add
(
GetSetMethod
(
generator
,
propertyStatement
,
propertyBackingField
,
setMethod
,
desiredSetMethodName
,
cancellationToken
))
End
If
Return
result
End
Function
...
...
@@ -112,13 +113,26 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.CodeRefactorings.ReplaceMethodWithP
Return
generator
.
MethodDeclaration
(
getMethod
,
desiredGetMethodName
,
statements
)
End
Function
Private
Function
GetFieldReference
(
generator
As
SyntaxGenerator
,
propertyBackingField
As
IFieldSymbol
)
As
SyntaxNode
Dim
through
=
If
(
propertyBackingField
.
IsStatic
,
generator
.
TypeExpression
(
propertyBackingField
.
ContainingType
),
generator
.
ThisExpression
())
Private
Function
GetSetMethod
(
generator
As
SyntaxGenerator
,
propertyStatement
As
PropertyStatementSyntax
,
propertyBackingField
As
IFieldSymbol
,
setMethod
As
IMethodSymbol
,
desiredSetMethodName
As
String
,
cancellationToken
As
CancellationToken
)
As
SyntaxNode
Dim
statements
=
New
List
(
Of
SyntaxNode
)()
Dim
setAccessorDeclaration
=
TryCast
(
setMethod
.
DeclaringSyntaxReferences
(
0
).
GetSyntax
(
cancellationToken
),
AccessorStatementSyntax
)
If
TypeOf
setAccessorDeclaration
?
.
Parent
Is
AccessorBlockSyntax
Then
Dim
block
=
DirectCast
(
setAccessorDeclaration
.
Parent
,
AccessorBlockSyntax
)
statements
.
AddRange
(
block
.
Statements
)
ElseIf
propertyBackingField
IsNot
Nothing
Then
Dim
fieldReference
=
GetFieldReference
(
generator
,
propertyBackingField
)
statements
.
Add
(
generator
.
AssignmentStatement
(
fieldReference
,
generator
.
IdentifierName
(
setMethod
.
Parameters
(
0
).
Name
)))
End
If
Return
generator
.
Me
mberAccessExpression
(
through
,
propertyBackingField
.
Name
)
Return
generator
.
Me
thodDeclaration
(
setMethod
,
desiredSetMethodName
,
statements
)
End
Function
Public
Overrides
Sub
ReplaceReference
(
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录