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

        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

        


文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!