我的调色板

爱疯

在小富康、吕布版主、阿木版主、HYY514版主的指导下完成的，再次感谢！

希望大家多指正！

有发现什么，再更新。

PS：我觉得能完成1个小东西，就会感觉很好玩，很过瘾[em04]

调色板2.1.rar (28.99 KB, 下载次数: 77)

2012-2-11 16:44 上传

点击文件名下载附件

amulee

不错，支持一下

爱疯

QUOTE:

以下是引用amulee在2010-3-11 8:28:00的发言：

不错，支持一下

谢谢

[em25]

单车代步

不懂也看看

raulerini

请教下：

commandbutton1的代码中:

Private Sub CommandButton1_Click()
    Dim rngR As Integer, rngG As Integer, rngB As Integer

    With UserForm1
        rngR = .ScrollBar1.Value
        rngG = .ScrollBar2.Value
        rngB = .ScrollBar3.Value
    End With

    Call ToRGB(rngR, rngG, rngB)

    With UserForm1
        .ScrollBar1.Value = rngR
        .ScrollBar2.Value = rngG
        .ScrollBar3.Value = rngB
    End With

End Sub

为什么要两次用with USERFORM1 语句？后一句是干嘛用的？

raulerini

另外，如果能够再加上一个commandbutton，单击它之后将当前的RGB值设为当前selection的底色，这个程序的功能会进一步完善。

还有，最好将窗体设置成无模式窗体

爱疯

QUOTE:

以下是引用raulerini在2010-3-11 9:46:00的发言：

请教下：

commandbutton1的代码中:

Private Sub CommandButton1_Click()
    Dim rngR As Integer, rngG As Integer, rngB As Integer

    With UserForm1
        rngR = .ScrollBar1.Value
        rngG = .ScrollBar2.Value
        rngB = .ScrollBar3.Value
    End With

    Call ToRGB(rngR, rngG, rngB)

    With UserForm1
        .ScrollBar1.Value = rngR
        .ScrollBar2.Value = rngG
        .ScrollBar3.Value = rngB
    End With

End Sub

为什么要两次用with USERFORM1 语句？后一句是干嘛用的？

谢谢raulerini
上面1组，是之前没有新增功能时遗留的。新增后，是没有用了。

爱疯

QUOTE:

以下是引用raulerini在2010-3-11 10:02:00的发言：

另外，如果能够再加上一个commandbutton，单击它之后将当前的RGB值设为当前selection的底色，这个程序的功能会进一步完善。

还有，最好将窗体设置成无模式窗体

谢谢raulerini的建议，我想想看，怎么办好。。。。。

PS：又想加，又怕复杂[em04]

HYY514

爱疯很好学啊，鼓励一下！

同时说说个人意见，这个例子用常规代码做是最简单也是最有效率的，如果为了学习类，

可以参考下面例子：

fWMS4uAh.rar (16.17 KB, 下载次数: 13)

2010-3-11 18:34 上传

点击文件名下载附件
我的调色板

开辆小富康

飞版的东东要学习，爱疯的东东也要学