走近VB.Net(三) 源码详解—运用颜色的初步探讨(1…

2008-04-10 03:08:07来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

CLTMPG = CLTMPG.Substring(CLTMPG.IndexOf("=") 1, CLTMPG.Length - (CLTMPG.IndexOf("=") 1)) ''''substring 就替我们sub一部份string,就好象VB6的mid函数,取代left,right函数
        ''''取得蓝色
        cltmpB = strPC.Substring(STRPC.IndexOf("B"), STRPC.Length - STRPC.IndexOf("B") - 1) ''''substring 就替我们sub一部份string,就好象VB6的mid函数,取代left,right函数
        CLTMPB = CLTMPB.Substring(CLTMPB.IndexOf("=")   1, CLTMPB.Length - (CLTMPB.IndexOf("=")   1)) ''''substring 就替我们sub一部份string,就好象VB6的mid函数,取代left,right函数
        
        lbred.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, cltmpR.ToInt32, 0, 0) ''''fromargb就是VB6的RGB一样,只是在第一位多一个阿尔法(alpha)参数
        lbgreen.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, 0, cltmpG.ToInt32, 0) ''''提取绿色
        lbblue.BackColor = System.Drawing.Color.FromARGB(CLTMPA.ToInt32, 0, 0, cltmpB.ToInt32) ''''提取蓝色
        
        LAB2.Text = "R=" & CLTMPA ''''显示R值
        LAB3.Text = "G=" & CLTMPG ''''显示G值
        LAB4.Text = "B=" & CLTMPB ''''显示B值
    End Sub
    ''''cool啊,拖动是没有边框的
			   
			   

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:走近VB.Net(二) 再谈函数调用

下一篇:走近VB.Net(五) VB.Net核心概念