Foxtable(狐表)用户栏目专家坐堂 → [求助]背景图片大过容器的时候如何居中显示


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

主题:[求助]背景图片大过容器的时候如何居中显示

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


加好友 发短信
等级:幼狐 帖子:146 积分:2622 威望:0 精华:0 注册:2014/3/18 12:20:00
[求助]背景图片大过容器的时候如何居中显示  发帖心情 Post By:2017/6/7 11:46:00 [只看该作者]

背景图片大过容器的时候如何居中显示,不缩放
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

[此贴子已经被作者于2017/6/7 12:41:56编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/7 12:08:00 [只看该作者]

参考代码

 

Dim lj As String = "g:\test.jpg"
Dim pan As WinForm.Panel = e.Form.Controls("me")
Dim bmp As new bitmap(pan.width, pan.height)
Dim g = graphics.fromimage(bmp)
Dim img = getimage(lj)
Dim x As Integer = (img.width - pan.width) / 2
Dim y As Integer = (img.height - pan.height) / 2
Dim w As Integer = pan.width
Dim h As Integer = pan.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

e.Form.Controls("me").BaseControl.BackgroundImage = bmp


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


加好友 发短信
等级:幼狐 帖子:146 积分:2622 威望:0 精华:0 注册:2014/3/18 12:20:00
  发帖心情 Post By:2017/6/7 12:21:00 [只看该作者]

目的是随着窗口调整不同而显示不同,看来只有加在SizeChanged里了,谢谢

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


加好友 发短信
等级:婴狐 帖子:19 积分:350 威望:0 精华:0 注册:2012/4/6 22:19:00
  发帖心情 Post By:2018/8/8 19:22:00 [只看该作者]

我有一个背景图片是A4纸张大小   想搞piao据套打,将背景图片和电脑的DPI都调整到了100(笔记本最低的就是100)加入后不能显示整张背景图片   是什么问题啊,有谁能帮帮我啊 
图片点击可在新窗口打开查看此主题相关图片如下:种植险投保单扫描件100.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/8 20:39:00 [只看该作者]

1、你图片的dpi必须和你电脑的dpi一致,要用专业图片软件修改图片dpi。

 

2、你的窗口大小必须设置足够大(A4纸那么大)才行,如果不够,请设置成自动滚动,然后加入textbox把它撑大到可以看到所有图片。

 


 回到顶部