0 Members and 1 Guest are viewing this topic.
Quote from: ASMI on October 04, 2007, 05:32:12 PMThere is short example.Can you post it as a ZIP instead of a RAR?
There is short example.
;;;; For the example, assume the ARX is loaded;;(defun c:swtest () (if (not (dcl_project_load "SWTest" t)) (progn (alert (strcat "SWTest ERROR!" "Can't load file: SWTest.odcl")) (quit) ) (progn (dcl_form_show SWTest_Form1)) ) (princ))(defun c:SWTest_Form1_TextButton4_OnClicked (/ rValue) (if (/= -1 (setq rValue (dcl_listbox_findstringexact SWTest_Form1_ListBox1 (dcl_control_gettext SWTest_Form1_TextBox2) ) ) ) (dcl_listbox_setcursel SWTest_Form1_ListBox1 rValue) (alert "There isn't that string!") ) (princ))
Can you post it as a ZIP instead of a RAR?