Foxtable(狐表)用户栏目专家坐堂 → 图片缩放


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

主题:图片缩放

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


加好友 发短信
等级:六尾狐 帖子:1359 积分:12028 威望:0 精华:0 注册:2012/3/5 11:32:00
图片缩放  发帖心情 Post By:2014/12/1 12:06:00 [只看该作者]

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")


Dim dr As DataRow = DataTables("管理者").find("人名 = '" & cb.text & "'")
If dr IsNot Nothing Then
pbx.Image = GetImage(dr("照片"))
’pbx.ImageLayout = ImageLayout.Zoom

End If

 

 

我想在窗口上添加一个图片     希望能够根据 图片容器的比例 刚好放下去,  不知道 该如何调整代码 ,还是需要修改图片的容器?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/1 14:06:00 [只看该作者]

代码没问题啊.

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


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

pbx.basecontrol.BackgroundImageLayout = ImageLayout.Zoom

 回到顶部