- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于逛逛老师事务日历第二问! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100143)
-- 发布时间：2017/5/5 14:45:00
-- 关于逛逛老师事务日历第二问!
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 \'定义一个绘制图 :封装一个 GDI+ 绘图图面. 此类不能被继承
事务标签底图_商务任务 = 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)
这段代码怎么都看不懂 （自己翻译了字面上无法理解这个是干什么的）
请老师帮忙讲解下
[此贴子已经被作者于2017/5/5 14:46:30编辑过]
-- 发布时间：2017/5/5 14:50:00
--
定义一个画布
事务标签底图_商务任务 = 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)
不懂的地方，直接拷贝搜索百度
-- 发布时间：2017/5/5 15:02:00
--
此主题相关图片如下：qq图片20170505150119.png
上面的代码在构建窗口的哪部分呢？-- 发布时间：2017/5/5 15:05:00
--
叹号图标、红色的矩形。