我的计算机安装VB6(SP5),发现picture的Pset和Point不好使,程序如下: Set P.Picture = LoadPicture("tmp1.bmp")
P.ScaleMode = 3 'Pixel
P.AutoSize = True
P.AutoRedraw = True
pl = 271
P.PSet (5, 5), pl
pl = 0
pl = P.Point(5, 5)
Debug.Print pl P是PictureBox,pl是long类型。最后打印出来的pl值不是271,却是16。pl的初值换成其它什么数,最后打印的仍是不一样。令人费解的是,以前并非这样,是在重新安装了系统后才变成如此的。计算机是SONY的笔记本电脑,原装操作系统是英文WIN98,我装的是WINDOWS ME。
P.ScaleMode = 3 'Pixel
P.AutoSize = True
P.AutoRedraw = True
pl = 271
P.PSet (5, 5), pl
pl = 0
pl = P.Point(5, 5)
Debug.Print pl P是PictureBox,pl是long类型。最后打印出来的pl值不是271,却是16。pl的初值换成其它什么数,最后打印的仍是不一样。令人费解的是,以前并非这样,是在重新安装了系统后才变成如此的。计算机是SONY的笔记本电脑,原装操作系统是英文WIN98,我装的是WINDOWS ME。
您看一下我的代码,很久不用VB了,我也说不清道理Picture1.AutoRedraw = Truea = RGB(255, 0, 0)
Picture1.PSet (1, 1), RGB(255, 0, 0)
Picture1.Picture = Picture1.Image
a = Picture1.Point(1, 1)
Picture1.AutoRedraw = False
谢谢handsomge的热情参予!我完全清楚PSet和Point的含义与用法的。问题不在于程序,程序没错!问题在与‘环境’,又找不出是何种‘环境变化’促使其失效的!