-- 作者: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
|