Я создаю недвижимость с SyntaxFactory
(roslyn)
Dim [property] = SyntaxFactory .PropertyStatement("MyProperty").AddModifiers(SyntaxFactory .Token(SyntaxKind.FriendKeyword))
Результат
Friend Property MyProperty
Чтобы добавить тип свойства, мне, вероятно, нужно использовать WithAsClause, но я не могу найти подходящего примера.
Наконец мне удалось найти пример в Заводские тесты синтаксиса: 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