求助

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

dim a as double
a=textbox1
dim plineobj as AcadLWPolyline
points1(0 to 9) as double
points1(0) = 0: points1(1) = 0
points1(2) =1000: points1(3) =0
'a=" "时，跳过该语句，直接执行
points1(4) =1000: points1(5) = 1000+a
points1(6) =0: points1(7) = 1000
points1(8) = 0: points1(9) =0
假如textbox1不输入数据时，则points1(4)和points1(5)不起作用,程序直接执行
points1(6)和points1(7)
请帮忙！谢谢!

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

要对文本框的各种可能情况进行判断。
dim a as double if textbox1.text"" then
   if isnumeric(textbox1.text) then
   a=textbox1.text
   end if
end if

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

谢谢，我试一下。

求助

发表回复

精选推荐

浏览过的版块