vb中如何用滚动条制作颜色的变化

2025-02-19 05:56:32

推荐回答（1个）

回答1：

Public Class Form1
Dim red As Long, green As Long, blue As Long
Private Sub hbred_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hbred.Scroll, hbgreen.Scroll, hbblue.Scroll
red = hbred.Value
green = hbgreen.Value
blue = hbblue.Value
Me.BackColor = Color.FromArgb(red, green, blue)
End Sub

这里有三个滚动条，hbred，hbgreen ，hbblue分别代表控制红色，绿色，蓝色的滚动条，通过改变三者的颜色变化，你可以调出各种变化。
这里的例子是改变主窗体的背景颜色，根据具体情况你自己改吧小伙子～～