| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4388 人关注过本帖, 1 人收藏
标题:XP计算器?
取消只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
public ga_Keys[28]


梅尚程荀
马谭杨奚







                                                       
2012-09-19 00:43
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-19 00:55:36的发言:


这是可以从外部文件中读入的数据。

看了半天终于发现你是在这里添加的28个按钮
FOR ln_Index = 1 TO ALEN(ga_Keys,1)
            lc_KeyName = "Key_" + PADL(ln_Index, 2, '0')
            This.AddObject(lc_KeyName, "C_BUTTON", ga_Keys[ln_Index])
是不是啊 555 知道的函数多久是好啊

梅尚程荀
马谭杨奚







                                                       
2012-09-19 01:04
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
老大 看了几遍 有个地方没理解
程序代码:
DEFINE CLASS C_BUTTON AS CommandButton
    Width = 40
    Height = 32
    FontName = "Terminal"

 
    *- 键名属性
    Key = ""
  

    PROCEDURE Init(t_Key)
        WITH This
            .Key = t_Key
            .Caption = .Key.Caption
        ENDWITH
    ENDPROC
这个Key是个属性? 那么一个属性为什么还能有属性  .Key.Caption?

梅尚程荀
马谭杨奚







                                                       
2012-09-19 11:30
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-19 11:40:37的发言:

这里的Key是C_BUTTON的自定义属性,它被赋值为参数t_Key的值,即Key_t结构体的对象名,而.Key.Caption是那个结构对象中的字段。

这样一个类只要用自己的属性获取另一个类的对象名就能包含其他类的对象了 也太强悍了吧

看了下这个介绍 有点问题
程序代码:
addobject 方法 : 运行时,在容器对象中添加对象。

语法 : Object.AddObject(cName, cClass [, cOLEClass] [, aInit1, aInit2 ...])

参数
cName : 指定引用新对象的名称。
cClass : 指定添加对象所在的类。
cOLEClass : 指定添加对象的 OLE 类。
aInit1, aInit2 ... : 指定传给新对象的 Init 事件的参数
cOLEClass : 指定添加对象的 OLE 类。究竟怎么理解好 ?是不是比cClass : 指定添加对象所在的类还要高级的一个东西?

梅尚程荀
马谭杨奚







                                                       
2012-09-19 13:13
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 50楼 TonyDeng
那么现在这个程序的 This.AddObject(lc_KeyName, "C_BUTTON", ga_Keys[ln_Index])
ga_Keys[]算不算OLE类 

梅尚程荀
马谭杨奚







                                                       
2012-09-19 13:55
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 52楼 TonyDeng
这样啊 明白了
很奇怪啊 VFP的数组不用先指定他的类型 而是根据赋给他的值来确定他的类型
传参数时 竟然可以把一个大堆参数放到一个数组中

梅尚程荀
马谭杨奚







                                                       
2012-09-19 14:06
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 54楼 TonyDeng
哦 这样啊 

那你的程序里面变量的下划线前一般都有两个小写字符 如ga_, gc_, lo_, ln_, tc_......这些有什么具体所指吗
一时没领悟过来

梅尚程荀
马谭杨奚







                                                       
2012-09-19 14:24
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
还有就是变量动态变化有什么利弊 为什么C语言要把他固定起来?

梅尚程荀
马谭杨奚







                                                       
2012-09-19 14:26
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 57楼 TonyDeng
哦 好的
程序代码:
SET DECIMALS TO 4
ON ERROR DO errHandler WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
Main()
ON ERROR

CLEAR ALL
RETURN

SET DECIMALS TO 4这个是定小数点为4位 放这里有什么用处 ? 后面用到这个吗
 
为什么你的main()函数里不写个return而要把他放到这里?

梅尚程荀
马谭杨奚







                                                       
2012-09-19 14:46
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
还有救是
PROCEDURE errHandler(merror, mess, mess1, mprog, mlineno)
    MESSAGEBOX(Str(mlineno)+"表达式错误:" + mess)
ENDPROC
的参数mess在编辑环境里是有颜色的 貌似是系统规定过的标识符 不是说参数不能和系统的东西相同吗?
message()和message(1)的区别是什么啊


[ 本帖最后由 有容就大 于 2012-9-19 14:52 编辑 ]

梅尚程荀
马谭杨奚







                                                       
2012-09-19 14:51
快速回复:XP计算器?
数据加载中...
 
   



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

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