Как реализовать OpenXml GradientFill в vb.net

Question

Мне не удается перевести на vb.net код, работающий на c #.

Код взят из статьи StackOverflow: Как использовать градиентную заливку (GradientFill) с ClosedXML

Я могу получить большинство из них правильно, кроме этого:

 GradientFill gradientFill = new GradientFill() { Degree = 354 };
    gradientFill.Append(new GradientStop() { Position = 0D, Color = new Color() { Rgb = "FF00FF00" } });
    gradientFill.Append(new GradientStop() { Position = 0.49D, Color = new Color() { Rgb = "FF00FF00" } });
    gradientFill.Append(new GradientStop() { Position = 0.51D, Color = new Color() { Rgb = "FFFFFFFF" } });
    gradientFill.Append(new GradientStop() { Position = 1D, Color = new Color() { Rgb = "FFFFFFFF" } });

Любая помощь будет высоко оценена!

Answer 1

Вам нужны With и ., чтобы сделать это в VB.NET, например,

Dim myGradientFill As New GradientFill() With {.Degree = 354}
myGradientFill.Append(New GradientStop() With {.Position = 0D, .Color = New Color() With {.Rgb = "FF00FF00"}})