-
-
手机阅读
-
-
-
swy 发表于 2016/8/22 14:48:45
自己插入一个功能FC，把需要多次调用的程序编里面，然后编写其他程序的时候可以多次调用，这个FC不要放到OB1，不用的时候就不会执行2楼 回复本楼
引用 swy 2016/8/22 14:48:45 发表于2楼的内容
-
-
-
-
-
zhangmengmeng | 当前状态：在线
总积分：1958 2024年可用积分：2
注册时间： 2013-12-26
最后登录时间： 2023-08-14
-
-
zhangmengmeng 发表于 2016/8/23 7:55:31
使用CALL Pxx，但不要两处同时调用3楼 回复本楼
引用 zhangmengmeng 2016/8/23 7:55:31 发表于3楼的内容
-
-
-
-
-
hypermill9 | 当前状态：在线
总积分：7709 2024年可用积分：0
注册时间： 2007-02-07
最后登录时间： 2023-08-18
-
-
hypermill9 发表于 2016/8/26 15:59:14
可是是步进点4楼 回复本楼
引用 hypermill9 2016/8/26 15:59:14 发表于4楼的内容
-
-
-
-
a1123 发表于 2016/8/27 17:25:05
Dim Input Do Input = InputBox("请输入运行的程序，提示：12356") If int(len(Input))>6 or int(len(Input))<=0 Else For a=1 to len(Input) if int(Mid(Input, a, 1))=1 call q1() ElseIf int(Mid(Input, a, 1))=2 call q2() ElseIf int(Mid(Input, a, 1))=3 call q3() ElseIf int(Mid(Input, a, 1))=4 call q4() ElseIf int(Mid(Input, a, 1))=5 call q5() ElseIf int(Mid(Input, a, 1))=6 call q6() End If Next Exit Do End If Loop Sub q1() MessageBox "运行q1" End Sub Sub q2() MessageBox "运行q2" End Sub Sub q3() MessageBox "运行q3" End Sub Sub q4() MessageBox "运行q4" End Sub Sub q5() MessageBox "运行q55楼 回复本楼
引用 a1123 2016/8/27 17:25:05 发表于5楼的内容
-