如何在 vb.net 中实现 OpenXml GradientFill

Question

我没有成功将一些在 c# 中工作的代码翻译成 vb.net。

代码来自 StackOverflow 文章： How to use a gradient fill (GradientFill) with 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"}})