以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片缩放  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60787)

--  作者:ljh29206
--  发布时间: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
--  发布时间:2014/12/1 14:06:00
--  
代码没问题啊.
--  作者:有点甜
--  发布时间:2014/12/1 14:09:00
--  
pbx.basecontrol.BackgroundImageLayout = ImageLayout.Zoom