| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1034 人关注过本帖
标题:向老师们求助
只看楼主 加入收藏
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:18 
向老师们求助
我用代码建立了一个表单'Form',其中有两个editbox 即edit1  edit2
建立了一个命令按钮,'command1'  当我按下'command1'时,执行一过程
文件chaxun.prg  其结果得到一字符串,如:aaaa='测试结果'。
问题是:如何将这结果显示在 'edit2' 中?
先谢谢!
搜索更多相关主题的帖子: 老师 如何 字符串 测试结果 表单 
2012-10-20 22:22
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:5 
Edit2.Value = aaa

授人以渔,不授人以鱼。
2012-10-20 22:23
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
先谢谢老师了!
我是菜鸟,不知道怎么加啊!现在把代码发上来,求帮助看看。
再次感谢!

frmMyForm = CREATEOBJECT('Form')  && 创建表单
frmMyForm.Closable = .F.  && 禁止窗口弹出菜单和"关闭"按钮

frmMyForm.Top = 55  && 指定 Form 表单所在行
frmMyForm.width = 555 && 指定 Form 表单宽度
frmMyForm.Height = 333
frmMyForm.left = 55   && 指定 Form 表单所在列


frmMyForm.AddObject('edit','EditBox')  && 在表单中添加一个 EditBox 控件
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && 添加 Up 命令按钮
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && 添加 Down 命令按钮
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && 添加 Quit 命令按钮

frmMyForm.edit.Visible = .T.  && 使 EditBox 控件可见
frmMyForm.edit.Top = 20  && 指定 EditBox 控件所在行
frmMyForm.edit.width = 140  && 指定 EditBox 控件宽度
frmMyForm.edit.Height = 20
frmMyForm.edit.left = 3   && 指定 EditBox 控件所在列

frmMyForm.AddObject('edit2','EditBox')  && 在表单中添加一个 EditBox 控件

frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见
frmMyForm.edit2.Top = 20  && 指定 EditBox 控件所在行
frmMyForm.edit2.width = 90  && 指定 EditBox 控件宽度
frmMyForm.edit2.Height = 20
frmMyForm.edit2.left = 211   && 指定 EditBox 控件所在列

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up 命令按钮可见
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down" 命令按钮可见
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit 命令按钮可见

frmMyForm.SHOW  && 显示表单
READ EVENTS  && 开始事件处理

DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON  && 创建命令按钮
   Caption = 'Slant \<Up'  && 命令按钮上的标题
   Left = 50  && 命令按钮所在列
   Top = 100  && 命令按钮所在行
   Height = 25  && 命令按钮的高度


   PROCEDURE Click
   SET PROCEDURE TO dl_pingze.prg
  frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见
ENDDEFINE

frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && 创建命令按钮
   Caption = 'Slant \<Down'  && 命令按钮的标题
   Left = 200  && 命令按钮所在列
   Top = 100  && 命令按钮所在行
   Height = 25  && 命令按钮的高度

   PROCEDURE Click
      ThisForm.edit2.Visible = .T.  && 显示 edit2 控件
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && 创建命令按钮
   Caption = '\<Quit'  && 命令按钮上的标题
   Cancel = .T.  && 默认的取消按钮 (Esc)
   Left = 125  && 命令按钮所在列
   Top = 150  && 命令按钮所在行
   Height = 25  && 命令按钮的高度

   PROCEDURE Click
      
      THISFORM.Release
      CLEAR EVENTS  && 停止事件处理, 关闭表单
ENDDEFINE
2012-10-20 22:35
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:5 
对T版的答案斗胆补充一下:这句也放在chaxun.prg中,可放在aaaa的赋值语句下面,也可用命令“STORE '测试结果' TO aaaa, Edit2.Value”一句话解决两件事。
2012-10-20 22:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
写在Command1按钮的Click事件代码中

授人以渔,不授人以鱼。
2012-10-20 22:39
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:5 
也可以得到aaa赋值后,直接在命令按钮的click事件中放代码:
this.Parent.edit1.Value=aaa

相互学习,互相交流,共同提高。
2012-10-20 22:44
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
谢谢各位老师!
我发现好象aaa没有传递回来,怎么传递回来呢?
2012-10-20 23:01
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
传递回来是什么意思?

授人以渔,不授人以鱼。
2012-10-20 23:09
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
当执行到
 frmMyForm.Edit2.Value = aaa
时,提示“找不到变量aaa”
2012-10-20 23:24
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你的代码根本就没有地方表明存在aaa这个变量,是你自己说按Command1时如何令Edit2显示aaa的内容,我们只告诉你怎么显示,至于aaa在哪里出现和获得,是你自己的事。

授人以渔,不授人以鱼。
2012-10-20 23:34
快速回复:向老师们求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035228 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved