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

        If apr = True Then system.WinForms.MessageBox.show("请将鼠标重新移入再次取色", "微型取色器", messagebox.OK BitOr messagebox.IconAsterisk)

        apr = True ''''选定色彩以后，RGB的分析就停止

        label2.BackColor = label1.BackColor ''''把源色彩传到目的色彩

    End Sub

    Public Function Getpixel() As System.Drawing.Color ''''这个也是函数的一个Alias

        Dim PM As System.Drawing.Bitmap ''''声明一个对象

        PM = PictureBox1.BackgroundImage ''''设置一个实例(注意前面的Option Strict Off不能少)

        Return pm.GetPixel(pixX, pixY) ''''使用Return返回一个值给函数,这是调用system.drawing.bitmap类的getpixel函数

        ''''如果是一个成员过程，不是一个函数，请用调用过程的方法调用，如system.drawing.bitmap类的setpixel过程：

        ''''Public Sub Setpixel(ByVal X As Integer, ByVal Y As Integer, ByVal pColor As System.Drawing.Color)

        ''''Dim PM As System.Drawing.Bitmap

        
			   
			   

                       标签：
                   
                   
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

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