首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

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

2012-09-18 
请教一个text1值传递的问题我有一个表单,表单中有个文本框,和一个按钮。想将文本框的值传递到按钮的运行代

请教一个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)

热点排行