取消图片纵横比锁定的vb6.0

386026398

在vba中，Selection.ShapeRange.LockAspectRatio = msoFalse，取消图片纵横比没有问题。求助在vb6.0中的写法

taller

没有VB6环境，我觉得替换msoFalse为0就可以了

386026398

taller 发表于 2024-9-30 01:02
没有VB6环境，我觉得替换msoFalse为0就可以了

vb6编译时提示的是没有这个对象.LockAspectRatio

demonimissyou

在 VB6.0 中，处理图片的纵横比和形状范围有所不同。VB6.0 没有直接的 ShapeRange 对象，但你可以使用 Picture 控件或相关的 API 来操作图像。

如果你使用的是 Image 控件，并希望取消图片的纵横比，可以通过设置控件的 ScaleWidth 和 ScaleHeight 属性来实现。以下是一个简单的示例：

vb
Private Sub Form_Load()
    ' 假设你已经在表单上放置了一个 Image 控件，名为 Image1
    ' 加载一张图片
    Image1.Picture = LoadPicture("C:\path\to\your\image.jpg")
   
    ' 取消纵横比，设置新的宽度和高度
    Image1.ScaleWidth = 3000  ' 设置宽度
    Image1.ScaleHeight = 2000  ' 设置高度
End Sub

386026398

demonimissyou 发表于 2024-9-30 09:59
在 VB6.0 中，处理图片的纵横比和形状范围有所不同。VB6.0 没有直接的 ShapeRange 对象，但你可以使用 Pict ...

我是导入图片，不是加载控件。谢谢回复，已经换了一种方式解决这个问题。