主题：求解

 全局代码运行中出现

 

 Public Sub 事务标签背景刷新() 具有多个相同签名的定义是怎么回事啊

 

代码：

Public _事务明细DataRow As Foxtable.DataRow        '当前事务的行
    Public _事务标签日期 As DateTime                  '事务标签中的日期

    '定义六个事务的类型的渐变色底图,由日历控件初始和尺寸变化来赋值
    Public 事务标签底图_会议任务 As Bitmap
    Public 事务标签底图_商务任务 As Bitmap
    Public 事务标签底图_私人任务 As Bitmap
    Public 事务标签底图_终止任务 As Bitmap
    Public 事务标签底图_超期任务 As Bitmap
    Public 事务标签底图_更多任务 As Bitmap

    Public Sub 事务标签背景刷新()        '绘制事务标签的背景图片
        Dim x As Integer = 2
        Dim y As Integer = 2
        Dim h As Integer = _事务标签_高度 - 5
        Dim w As Integer = h
        Dim BJ_p1 As Point = New Point(0, 0)
        Dim BJ_p2 As Point = New Point(0, _事务标签_高度 + 1)
        Dim g As Graphics
        '
        '绘制会议任务底图
        '
        事务标签底图_会议任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_会议任务)
        g.Clear(事务会议起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务会议起, 事务会议止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务会议图标, x, y, w, h)
        '
        '绘制商务任务底图
        '
        事务标签底图_商务任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_商务任务)
        g.Clear(事务商务起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务商务起, 事务商务止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务商务图标, x, y, w, h)
        '
        '绘制私人任务底图
        '
        事务标签底图_私人任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_私人任务)
        g.Clear(事务私人起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务私人起, 事务私人止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务私人图标, x, y, w, h)
        '
        '绘制终止任务底图
        '
        事务标签底图_终止任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_终止任务)
        g.Clear(事务终止起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务终止起, 事务终止止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务终止图标, x, y, w, h)
        '
        '绘制超期任务底图
        '
        事务标签底图_超期任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_超期任务)
        g.Clear(事务超期起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务超期起, 事务超期止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务超期图标, x, y, w, h)
        '
        '绘制更多任务底图
        '
        事务标签底图_更多任务 = New Drawing.Bitmap(_事务标签_宽度 + 1, _事务标签_高度 + 1)
        g = Graphics.FromImage(事务标签底图_更多任务)
        g.Clear(事务超期起)
        Using pr As New Drawing2D.LinearGradientBrush(BJ_p1, BJ_p2, 事务更多起, 事务更多止)
            g.FillRectangle(pr, New Rectangle(0, 0, _事务标签_宽度 + 1, _事务标签_高度 + 1))
        End Using
        g.DrawImage(事务更多图标, x, y, w, h)
    End Sub

导出代码，检查是否有重复的  Public Sub 事务标签背景刷新()