xgngg 发表于 2004-5-15 12:26:00

求助

dim a as double


a=textbox1<BR>dim plineobj as AcadLWPolyline<BR>points1(0 to 9) as double <BR>points1(0) = 0: points1(1) = 0<BR>points1(2) =1000: points1(3) =0


'a=" "时，跳过该语句，直接执行<BR>points1(4) =1000: points1(5) = 1000+a<BR>


points1(6) =0: points1(7) = 1000<BR>points1(8) = 0: points1(9) =0<BR>假如textbox1不输入数据时，则points1(4)和points1(5)不起作用,程序直接执行


points1(6)和points1(7)


请帮忙！谢谢!

efan2000 发表于 2004-5-15 15:26:00

要对文本框的各种可能情况进行判断。


dim a as double





if textbox1.text&lt;&gt;"" then


                       if isnumeric(textbox1.text) then


                                                       a=textbox1.text


                       end if


end if<BR>

xgngg 发表于 2004-5-15 19:02:00

谢谢，我试一下。
页: [1]
查看完整版本: 求助