| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1034 人关注过本帖
标题:向老师们求助
取消只看楼主 加入收藏
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:8 
向老师们求助
我用代码建立了一个表单'Form',其中有两个editbox 即edit1  edit2
建立了一个命令按钮,'command1'  当我按下'command1'时,执行一过程
文件chaxun.prg  其结果得到一字符串,如:aaaa='测试结果'。
问题是:如何将这结果显示在 'edit2' 中?
先谢谢!
搜索更多相关主题的帖子: 老师 如何 字符串 测试结果 表单 
2012-10-20 22:22
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
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
谢谢各位老师!
我发现好象aaa没有传递回来,怎么传递回来呢?
2012-10-20 23:01
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
当执行到
 frmMyForm.Edit2.Value = aaa
时,提示“找不到变量aaa”
2012-10-20 23:24
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
我明白了一个问题,就是我在edit1中录入的内容没有成功的赋值给一个变量如aaa
在手工的表单中是在属性中设置的,

那么在代码中怎么做呢?

还请老师赐教!谢谢!

2012-10-21 00:20
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
谢谢!
现在是edit不让我编辑 如初始aaa = "1234",
当我在edit中输入‘66666’时,执行后 aaa还是等于‘1234’


[ 本帖最后由 jsyg 于 2012-10-21 01:13 编辑 ]
2012-10-21 00:48
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
谢谢老师们了,尤其谢谢版主TonyDeng

我好象没分,也不知道怎么结帖子。
2012-10-21 01:53
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
以下是引用TonyDeng在2012-10-21 11:47:52的发言:


看来你还是没弄清楚程序的流程、每一步动作的次序和效果。有时间慢慢跟你说吧。

谢谢!以后少麻烦不了你的!
2012-10-21 21:53
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
以下是引用taifu945在2012-10-21 19:27:38的发言:

你在prg里给aaa赋值,然后又在表单的按钮click事件里用到了aaa。但你忽略了一个问题:内存变量的作用域!你的prg文件被按钮调用的时候,是作为click事件程序的子程序的,aaa未经定义赋值,默认的作用域是本程序或下级子程序。而你在上级click事件程序里调用aaa,当然就“找不到”了。不知道你明白我的话了没有。如果明白作用域的问题了,我现在告诉你解决的方法:在prg文件里或表单的init/load事件里(两个事件选其一)写上句:PUBLIC aaa,把aaa的作用域扩大到所有程序即可。
谢谢!
明白了,问题也解决了.
2012-10-21 21:54
快速回复:向老师们求助
数据加载中...
 
   



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

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