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


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

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

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部