| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 控件编程 >> 实例分析正文
最新推荐 更多内容
[图文]调色盘RGB颜色表的实例
调色盘RGB颜色表的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-11-7

调色盘RGB颜色表的实例

效果图:

代码如下:

乐博网lob.cn提示:调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

Public Class Form1

    Private Sub DisplayRGB(ByVal sender As System.Object, ByVal e As System.EventArgs)
        lblRed.Text = tkbRed.Value.ToString()   'lblRed显示目前红色滚动条设定值
        lblGreen.Text = tkbGreen.Value.ToString()
        lblBlue.Text = tkbBlue.Value.ToString()
        picShow.BackColor = Color.FromArgb(tkbRed.Value, tkbGreen.Value, tkbBlue.Value)
        lblShow.Text = "目前设定值: RGB(" + tkbRed.Value.ToString() + " , " + tkbGreen.Value.ToString() + " , " + tkbBlue.Value.ToString() + ")"
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        AddHandler tkbRed.Scroll, AddressOf DisplayRGB
        AddHandler tkbGreen.Scroll, AddressOf DisplayRGB
        AddHandler tkbBlue.Scroll, AddressOf DisplayRGB

        tkbRed.Value = 255      ' 设定红色滚动条的初值为255
        tkbGreen.Value = 255    '  设定绿色滚动条的初值为255
        tkbBlue.Value = 255     '  设定蓝色滚动条的初值为255
        lblRed.Text = tkbRed.Value.ToString()   'lblRed显示目前红色滚动条设定值
        lblGreen.Text = tkbGreen.Value.ToString()
        lblBlue.Text = tkbBlue.Value.ToString()
        picShow.BackColor = Color.FromArgb(tkbRed.Value, tkbGreen.Value, tkbBlue.Value)
        lblShow.Text = "乐博网提示:目前设定值:: RGB(" + tkbRed.Value.ToString() + " , " + tkbGreen.Value.ToString() + " , " + tkbBlue.Value.ToString() + ")"
    End Sub

End Class

 

 

 

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    反转图片颜色的实例
    VB.Net跑马灯的实例
    RGB颜色滚动条变动的实例
    VB.Net画图的实例
    VB.Net颜色表的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]