主题：请教：绘图版的图片调用问题

e.Form.Controls("Painter1").Image,这个代码，应该是调用此绘图版已绘制好的图形，我现在已在绘图版中插入了一张图片，但是这段代码红字的部分没有反应，请教一下

 

Dim p1 As New Point(p.Width-1,0)
Dim p2 As New Point(0,0)
Dim p3 As New Point(p.Width-1,p.Height-1)

Dim des  As Point()={p1,p2,p3}

 

g.DrawImage(e.Form.Controls("Painter1").Image,des)

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.White)
Dim fn As String = ProjectPath & "27.jpg"
      g.DrawImage(getImage(fn),0,0,300,200)
 p.Repaint()
我是先用这段代码已在绘图版上加了一张图片了，然后用一楼的代码将这张图做水平翻转的，但是一楼的代码没起作用

我贴上水平翻转的全部代码，贺老师您查一下看看问题出在何处？

 

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
 g.Clear(Color.White) '清除

Dim p1 As New Point(p.Width-1,0)
Dim p2 As New Point(0,0)
Dim p3 As New Point(p.Width-1,p.Height-1)
Dim des  As Point()={p1,p2,p3}
g.DrawImage(p.Image,des)
p.Repaint()
e.Form.Controls("Label1").text="这是水平翻转后的图片"

 

加上红字这行后，绘图版上没显示图片，如不加，还是原有的图片没动

我现在的做法是，加载图片按钮中将图片保存在剪贴版中，然后在水平翻转按钮中提取，是可以做翻转了，但是几次一转，图片就模糊了，呵，做一两次还可以。只能先这样吧

我估计是剪贴版保存时的问题，具体原因不清楚

谢谢程版，我先研究学习一下，呵