有关opdcl 的问题
本帖最后由 wanzeguilai 于 2015-9-22 21:54 编辑按照猫老师课程上面写的一个简单的代码
单机那个按钮就是不执行
[*]
(defun c:tt ()
(command "opendcl") ;加载ＤＣＬ控件
(dcl_project_load "d:\\test.odcl")
(dcl_project_import ())
(dcl_form_show test_form1)
)
(defun c:test_Form1_TextButton1_OnClicked (/)
(dcl_MessageBox "To Do: code must be added to event handler\r\nc:test_Form1_TextButton1_OnClicked" "To do")
(setq w (dcl_Control_GetText test_Form1_TextBox1))
(print w)
)
dcl_project_import这个后面怎么是空？你这句错了，删掉就可以
页:
[1]