快递100查询单号软件例程

拿去玩吧 编辑后我加入了编辑框输入状态判断最后一个字输入后延时一秒再查询

这个是最后修改的 下面那个别下了。

' 这里控制变量就是判断编辑框1秒内再无输入就执行以下代码
控制 ＝ 控制 ＋ 1
程序_延时 (1, 1)
控制 ＝ 控制 － 1
' 调试输出 (控制)
.如果真 (控制 ＝ 0)
.如果真 (取文本长度 (编辑框_快递单号.内容) ＞ 4)
超级列表框_公司.全部删除 ()
启动线程 (&取本单公司, , )