vb.net - winforms VB中绘制进度条控件的反射

Question

这是我想要实现的目标的图像:

如您所见，进度条下方有轻微的反射。

我有一个很大程度上基于此代码的自定义进度条:
http://www.codeproject.com/Articles/19309/Vista-Style-Progress-Bar-in-C

注意:我的代码是用 VB 编写的。

问题 - 我想在其下方绘制进度条的反射，使其看起来与我上面给出的图像类似。有人告诉我，一种方法是使用像素，这需要手动完成。这是唯一的选择吗？还有其他/更简单的方法吗？

感谢您的帮助。谢谢!

Answer 1

您正在寻找这样的东西吗？

这是代码:

Dim pgBarReflection As New Bitmap(ProgressBar1.Width, 20)
ProgressBar1.DrawToBitmap(pgBarReflection, ProgressBar1.ClientRectangle)

For x As Integer = 0 To pgBarReflection.Width - 1
  For y As Integer = 0 To pgBarReflection.Height - 1
    Dim alpha = 255 - 255 * y \ pgBarReflection.Height
    Dim clr As Color = pgBarReflection.GetPixel(x, y)
    clr = Color.FromArgb(alpha, clr.R, clr.G, clr.B)
    pgBarReflection.SetPixel(x, y, clr)
  Next y
Next x

Me.CreateGraphics.DrawImage(pgBarReflection, New Point(ProgressBar1.Left, ProgressBar1.Bottom + 10))

如果你想要灰度阴影，请替换此行

clr = Color.FromArgb(alpha, clr.R, clr.G, clr.B)

与这两个:

Dim greyScale As Integer = CInt(clr.R * 0.3 + clr.G * 0.59 + clr.B * 0.11)
clr = Color.FromArgb(alpha, greyScale, greyScale, greyScale)

你会得到这样的东西:

您可以使用参数来使阴影更加真实。

解决方案基于这篇文章:

Draw an image with gradient alpha (opacity) values in VB.NET