如何将 As 子句(类型)添加到使用 SyntaxFactory 创建的 属性?

How to add As Clause (type) to a property created with SyntaxFactory?

我正在用 SyntaxFactory (roslyn)

创建一个 属性
Dim [property] = SyntaxFactory .PropertyStatement("MyProperty").AddModifiers(SyntaxFactory .Token(SyntaxKind.FriendKeyword))

结果是

Friend Property MyProperty

要添加 属性 类型,我可能需要使用 WithAsClause,但我找不到任何可用的示例。

最后我设法在 Syntax Factory Tests:TestSpacingOnNullableDatetimeType 中找到了一个示例,解决方案是

Dim [property] = SyntaxFactory.PropertyStatement("MyProperty").AddModifiers(SyntaxFactory.Token(SyntaxKind.FriendKeyword)).
            WithAsClause(SyntaxFactory.SimpleAsClause(
            SyntaxFactory.PredefinedType(
               SyntaxFactory.Token(
                  SyntaxKind.StringKeyword)))) 

得到了想要的结果

Friend Property MyProperty As String