以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61937)

--  作者:yaojun
--  发布时间:2014/12/22 19:54:00
--  求解

 全局代码运行中出现

 

 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


--  作者:游
--  发布时间:2014/12/22 20:04:00
--  
导出代码,检查是否有重复的  Public Sub 事务标签背景刷新()