绘图板代码如下
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage("系统登录界面.png"),0,0,e.form.Controls("Painter1").BaseControl.Width,e.form.Controls("Painter1").BaseControl.Height)
g.DrawString("欢迎进入",New Font("方正行楷简体",18,FontStyle.Bold Or FontStyle.Italic),Brushes.DarkSlateGray,383,245)
g.DrawString("扬州华泰",New Font("方正行楷简体",26,FontStyle.Bold),Brushes.DarkSlateGray,433,275)
g.DrawString("ERP",New Font("方正行楷简体",30,FontStyle.Bold Or FontStyle.Italic),Brushes.RoyalBlue,574,271)
g.DrawString("信息管理系统",New Font("方正行楷简体",26,FontStyle.Bold),Brushes.DarkSlateGray,654,275)
p.Repaint