请问如图属性可以使用函数来控制吗?

QQ截图20151213212915.jpg (65.48 KB, 下载次数: 206)

2015-12-13 21:30 上传

点击文件名下载附件

麻烦版主指导：发现界面原有一个图像用ImageFilename改变图像后显示尺寸被修改，想请版主指导如何使用函数再修改回原定尺寸。

用Image 类控制。

1. TXTextControl.Image myImage = new TXTextControl.Image();
2. myImage.Sizeable = false;
3. myImage.HorizontalScaling = 75;
4. myImage.VerticalScaling = 75;
6. textControl1.Images.Add(myImage, -1);

复制代码

回复 3楼gw0506的帖子

我是PB + TX activeX环境，能给个PB或者VB的范例吗？

抱歉，PB环境我们确实提供不了太多帮助。

1. Dim MyImage As New TXTextControl.Image()
   
2. MyImage.Sizeable = False
   
3. MyImage.HorizontalScaling = 75
   
4. MyImage.VerticalScaling = 75
   
5. 
   
6. TextControl1.Images.Add(MyImage, -1)

复制代码

回复 5楼gw0506的帖子

我已经创建了一个75*75的图片框，能否使用ole_text.Object.ImageFilename改变图片，而且使大小仍然限制在75*75？

应该是跟随图片框走的。你直接写代码改一下试试就知道了。