vb点虐 中图片居中 在vb中怎么图片框中放入图片

VB作业，单击button使图片居中

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

成都创新互联专注于企业全网营销推广、网站重做改版、上杭网站定制设计、自适应品牌网站建设、H5建站、商城系统网站开发、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为上杭等各大城市提供网站开发制作服务。

With PictureBox1

.Left = (Me.Width - .Width) / 2

.Top = (Me.Height - .Height) / 2

End With

End Sub

vb图片在窗口中居中该怎么编程

如果你用 .NET 做就很好办了。

滚动条的 Dock 属性设置为 Left，就在最左边了，窗体再调整大小它也跟着调。

图片框复杂点，如果不调整它和窗体的大小，编程时用格式菜单窗体居中就行，如果调整的话，你需要计算窗体的大小（frmMain.Size），然后按照 frmMain 的 Size 的 Width，Height 计算出图像框该有多大，用另两个 Integer 保存（Location 设置个固定值即可，Size 的 Width，Height 设置为窗体 Size 的 Width，Height 减去图像框的 Location 的 X，Y），将这两个值保存在一个 Point 对象中。然后把图像框的 SizeMode 属性设置为 StretchImage，并将其 Size 属性设置为你保存的那个 Point 对象。这样就能调节图像框的大小和位置，使其总是正好在窗体中间。

这段代码写个子程序，窗体的 Resize、图像框的 LoadComplete 事件都要调用它。

Sub PicResize

dim NewX as integer = me.size.width - 10 '假设这是图像框的 Location

dim NewY as integer = me.size.height - 10

dim NewPoint as new Point(NewX, NewY)

picMain.SizeMode = StretchImage

picMain.size = NewPoint

end sub

如果使用 .NET，你还是用 SplitContainer 非常方便，滚动条和图像框占用两边， Dock 设置为 Fill

vb中，在form下的picture里加载的图片如何居中？

先计算位图宽高，计算个起始点使其居中，具体方法是建立两个PictureBox：Pic1、Pic2，且Pic2的“AutoSize”属性设为“True”，Pic1的“AutoRedraw”属性设为“True”

Set Pic2.Picture=LoadPicture(……)

Pic1.PaintPicture Pic2.Picture, (Pic1.ScaleWidth-Pic2.ScaleWidth)\2, (Pic1.ScaleHeight-Pic2.ScaleHeight)\2, Pic2.ScaleWidth, Pic2.ScaleHeight