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编辑过]
加好友 
发短信
Post By：2017/5/5 14:45:00 [只看该作者]
此主题相关图片如下：qq图片20170505150119.png