有关opdcl 的问题

wanzeguilai

按照猫老师课程上面写的一个简单的代码
单机那个按钮就是不执行

• 
  

1. (defun c:tt ()
   
2.   (command "opendcl") ;加载ＤＣＬ控件
   
3.   　(dcl_project_load "d:\\test.odcl")
   
4.     (dcl_project_import ())
   
5.     (dcl_form_show test_form1)
   
6. 
   
7. 
   
8. 
   
9.   
   
10.   )
    
11. (defun c:test_Form1_TextButton1_OnClicked (/)
    
12.   (dcl_MessageBox "To Do: code must be added to event handler\r\nc:test_Form1_TextButton1_OnClicked" "To do")
    
13.    (setq w (dcl_Control_GetText test_Form1_TextBox1))
    
14.    (print w)
    
15. )
    

(defun c:tt ()<br />   (command "opendcl") ;加载ＤＣＬ控件<br />   　(dcl_project_load "d:\\test.odcl")<br />     (dcl_project_import ())<br />     (dcl_form_show test_form1)<br /> <br /> <br /> <br />   <br />   )<br /> (defun c:test_Form1_TextButton1_OnClicked (/)<br />   (dcl_MessageBox "To Do: code must be added to event handler\r\nc:test_Form1_TextButton1_OnClicked" "To do")<br />    (setq w (dcl_Control_GetText test_Form1_TextBox1))<br />    (print w)<br /> )<br />

pengfei2010

dcl_project_import这个后面怎么是空？你这句错了，删掉就可以