我有一个表单,表单中有个文本框,和一个按钮。想将文本框的值传递到按钮的运行代码中。我是这么做的:
我在表单的int事件中定义了一个公共变量,来传递文本框的值。
PUBLIC aa
aa=""
然后在按钮的click的事件中写入:
aa=ALLTRIM(thisform.text1.Value)
Declare Integer ShellExecute In "Shell32.dll" Integer HWnd,String lpVerb,String lpFile,String lpParameters,String lpDirectory,Long nShowCmd
=Shellexecute(0,"Open","d:\fbinst.exe","(aa) format --force --raw","",1)
文本框中是字符。
但是实际运行中,aa并没有传递文本框的的内容。请问下这个代码什么地方有问题啊。
------解决方案--------------------------------------------------------
或者改写成下面的代码试试
cSTR="("+aa+") format --force --raw"
=ShellExecute(0,"Open","d:\fbinst.exe",cSTR,"",1)
再或者改写成下面的代码试试
cSTR‘=ShellExecute(0,"Open","d:\fbinst.exe",("+aa+") format --force --raw","",1)'
&cSTR
------解决方案--------------------------------------------------------
Declare Integer ShellExecute In shell32.Dll Integer HWnd,String lpszOP,String lpszFile,String lpszParams,String lpszDir,Integer fsshowcmd
=ShellExecute(0,"Open","d:\fbinst.exe","("+Alltrim(Thisform.text1.Value)+") format --force --raw","",1)