以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于绘图板绘制的图片保存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162143)

--  作者:hnguang
--  发布时间:2021/4/7 9:49:00
--  关于绘图板绘制的图片保存问题

图片点击可在新窗口打开查看此主题相关图片如下:myimg.jpg
图片点击可在新窗口打开查看

如上图,绘图板保存的图片是一片黑
g.DrawLine(Pens.black,0,40,100,0)
g.DrawLine(Pens.black,0,40,100,70)
g.DrawLine(Pens.black,200,40,100,0)
g.DrawLine(Pens.black,200,40,100,70)

    Dim fnt As New Font("宋体",10)
    Dim msg As String = dr("條款備註1")
    g.DrawString(msg,fnt,Brushes.black,75,40)    
    p.Repaint()    
p.Save(ProjectPath & "Images\\myimg.jpg")


--  作者:有点蓝
--  发布时间:2021/4/7 10:05:00
--  
请上传实例说明