Dim clr As Color = SystemColors.GradientActiveCaption
e.Form.BackColor = Clr
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.White)
Dim Rectangle As New Rectangle(0,0,p.Width,p.Height)
Dim Mybrush As New LinearGradientBrush(Rectangle,clr,Color.white,LinearGradientMode.Vertical) '窗口渐变色
g.FillRectangle(Mybrush,Rectangle) '窗口渐变色
Dim img As image = getImage(ProjectPath & "\abc2.jpg")
Dim bmp As bitmap = new bitmap(img, p.Width, p.Height)
g.DrawImage(bmp,Rectangle ,Rectangle ,GraphicsUnit.Pixel) '--------------
p.Repaint()
加好友 
发短信
Post By：2018/12/24 20:35:00 [显示全部帖子]
