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

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

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有