vb点虐缩放比 vb放大的代码怎么写

请教 vb点虐窗体缩放后，控件怎么保持原比例！

可以算出缩放前后的height 和width 的比例，再利用这比例对控件的大小和位置进行变化。

我们提供的服务有：成都网站设计、成都网站建设、外贸网站建设、微信公众号开发、网站优化、网站认证、昌黎ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的昌黎网站制作公司

你设一下你控件的anchor和dock两个属性，可以达到你满意的组合效果。包括位置和大小比例变化。

Sub 图片慎亮缩放()

Dim SngPer As Single = 1 '放大或缩小的比例放大2倍时SngPer=2,缩小3倍时 SngPer=1/3

Dim PicOld As Image = Image.FromFile("碧孝棚原图片路径")

Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)

PicNew.Save("新悔则图片路径", Drawing.Imaging.ImageFormat.Jpeg)

End Sub

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容