Foxtable(狐表)用户栏目专家坐堂 → [求助]关于绘图板的加载图片的尺寸


  共有2172人关注过本帖树形打印复制链接

主题:[求助]关于绘图板的加载图片的尺寸

帅哥哟,离线,有人找我吗?
jiskin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:713 积分:5196 威望:0 精华:0 注册:2012/4/13 13:10:00
[求助]关于绘图板的加载图片的尺寸  发帖心情 Post By: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
那如何能全部显示呢?再不改变图片尺寸的前提下

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:713 积分:5196 威望:0 精华:0 注册:2012/4/13 13:10:00
  发帖心情 Post By:2015/12/7 12:50:00 [只看该作者]

good 多谢

 回到顶部