下面一句代码是否正确?(是否可以比较)

Question

Dim Pic As Picture   
Set Pic = LoadPicture(filename)
Image1.Stretch = False
If pic.width >= Imagectl.Width Then  '这句宽度比较是否成立?

Answer 1

哦,不知道Imagectl是不是也是picture对象,如果是的,那么比较有效;
如果是个控件,可能无法比较,因为picture对象的宽和高是以HiMetric 为单位的

Answer 2

image1.width是控件高度
另一个是图象高度,
运行后也不报错,好象也没执行

Answer 3

写错了.
image1.width是控件宽度 
另一个是图象宽度, 
运行后也不报错,好象也没执行 
 

Answer 4

设置断点，观察pic.width >= Imagectl.Width值是否为true你也可以这样观察
dim f as Boolean
f=(pic.width >= Imagectl.Width)
如果f为false当然不会执行判断中的语句。

Answer 5

pic.width 与 Imagectl.Width 的量度单位并不一样