【摘要】：五、输入数据创建Shape通过MsgBox的Input请求，允许用户输入坐标值，创建Shape．Input有三个参数，都为字符，即一个是消息，一个是窗口标题，另一个为缺省值。［例19］通过用户输入数据来创建点ShapeX=MsgBox．InputY=MsgBox．InputXcoord=X．AsNmnberYcoord=Y．AsNumberThePoint=Point．Make输入的信息要进行检查，用户可能点取Cancel键，或者输入不能作为坐标的值，程序中应进行检查，并作适当控制。必要时，用警告消息框发出一个提示信息。"，"")ExitEnd②检测无效输入IfthenMsgBox．Warning("无效输入!
五、输入数据创建Shape
通过MsgBox的Input请求，允许用户输入坐标值，创建Shape．Input有三个参数，都为字符，即一个是消息，一个是窗口标题，另一个为缺省值。
MsgBox．Input返回值是一个字符对象，而利用Point．Make形成点对象时参数必须是数字，X、Y字符串利用AsNumber转换成数字再使用。
［例19］通过用户输入数据来创建点Shape
X=MsgBox．Input("输入X坐标:"，"新位置"，"0．0")
Y=MsgBox．Input("输入Y坐标:"，"新位置"，"0．0")
Xcoord=X．AsNmnber
Ycoord=Y．AsNumber
ThePoint=Point．Make(Xcoord，Ycoord)
输入的信息要进行检查，用户可能点取Cancel键，或者输入不能作为坐标的值，程序中应进行检查，并作适当控制。必要时，用警告(Warning)消息框发出一个提示信息。
［例20］输入信息的检查
①检测空输入(nil)的情况
If(x=nil)then
MsgBox．Warning("没有X坐标键入!"，"")
Exit
End
②检测无效输入
If(x．isNumber．Not)then
MsgBox．Warning("无效输入!"，"")
Exit
End
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
