以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于绘图板的加载图片的尺寸  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78322)
--  作者：jiskin
--  发布时间：2015/12/7 11:54:00
--  [求助]关于绘图板的加载图片的尺寸
如果我用绘图板显示一个图片
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.drawimage(getImage(ProjectPath & "Images\\test.png"),0,0)
p.Repaint()

我设置绘图板尺寸是50*50
如果图片尺寸是100*100
那如何能全部显示呢？再不改变图片尺寸的前提下
--  作者：大红袍
--  发布时间：2015/12/7 12:05:00
--  

方法一：改变你绘图板的尺寸，绘图板可以放在panel里面，panel设置自动出现滚动条。

 

方法二：截取

 

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim img = getImage("d:\\test.jpg")
Dim bmp As bitmap
If img.width > p.width OrElse img.height > p.height Then
    bmp = new bitmap(img, p.Width, p.height)
End If
g.drawimage(bmp,0,0)
p.Repaint()
--  作者：jiskin
--  发布时间：2015/12/7 12:50:00
--  
good 多谢