|
阅读：2015回复：2
这是什么错误？？？
<P>举一个简单的例子如下，为什么不能运行？？？</P>
<P>Sub po()<BR>Dim pa As IPoint<BR>Dim pb As IPoint</P> <P>Set pa.X = 10<BR>Set pa.Y = 12</P> <P>Set pb.X = 10<BR>Set pb.Y = 12</P> <P>If pa.X = pb.X And pa.Y = pb.Y Then MsgBox "Yes"<BR> <BR>' If pa = pb Then MsgBox "Yes"</P> <P>End Sub</P> |
|
|
1楼#
发布于：2009-04-18 19:51
<P>加上一句</P>
<P><STRONG>pa=new point</STRONG></P> <P>Set pa.X = 10<BR>Set pa.Y = 12</P> |
|
|
|
2楼#
发布于：2009-04-18 22:58
<P>谢谢版主，是我疏忽。加上后还是错误！</P>
<P>Sub po()<BR>Dim pa As IPoint<BR>Dim pb As IPoint</P> <P>Set pa = New Point<BR>Set pb = New Point</P> <P>Set pa.X = 10<BR>Set pa.Y = 12</P> <P>Set pb.X = 10<BR>Set pb.Y = 12</P> <P>If pa.X = pb.X And pa.Y = pb.Y Then MsgBox "Yes"<BR> <BR>' If pa = pb Then MsgBox "Yes"</P> <P>End Sub</P> <P>编译说是 “属性无效使用！” 难道不能对读Point的属性？？</P> |
|
