当前位置: 代码迷 >> VFP >> 请问一个text1值传递的有关问题
  详细解决方案

请问一个text1值传递的有关问题

热度:2052   发布时间:2013-02-26 00:00:00.0
请教一个text1值传递的问题
我有一个表单,表单中有个文本框,和一个按钮。想将文本框的值传递到按钮的运行代码中。我是这么做的:

我在表单的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)