XP计算器？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → XP计算器？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 4388 人关注过本帖， 1 人收藏

标题：XP计算器？

取消只看楼主加入收藏

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 11 楼

得分:0

以下是引用TonyDeng在2012-9-18 22:43:57的发言：

出现大量重复代码了！

那怎么办我也考虑过这个情况但是一个命令按钮组里的单独按钮的caption ,left, top ，forecolor 都是不一样的啊

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:47

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 12 楼

得分:0

回复 25楼 sdta

无限挑逗啊
求真相

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:48

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 13 楼

得分:0

回复 25楼 sdta

擦貌似不是caption = ‘M’而是 value
但是又有个问题怎么让TextBox里的字符出现的方框中央？
Rotation = 1貌似不太美观

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:50

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 14 楼

得分:0

以下是引用sdta在2012-9-18 22:53:05的发言：

按钮[M]CLICK EVENT
THISFORM.CONTAINER1.LABEL1.CAPTION=ALLTRIM(THISFORM.ACTIVECONTROL.CAPTION)
THISFORM.CONTAINER1.LABEL1.LEFT=(THISFORM.CONTAINER1.Width-THISFORM.CONTAINER1.LABEL1.Width)/2

把文本框换成标签

Rotation ？不认识

聪明啊我怎么没想到

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:58

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 15 楼

得分:0

以下是引用TonyDeng在2012-9-18 22:53:33的发言：

用参数！

很想去看下你那个代码又压制住了。。。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:59

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 16 楼

得分:0

以下是引用sdta在2012-9-18 22:58:13的发言：

别听T版的，你现在就要这个过程，等写代码熟练了，再慢慢精简。
一口是吃不成胖子的。

是啊刚开始很原汁原味啊

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 22:59

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 17 楼

得分:0

以下是引用TonyDeng在2012-9-18 23:01:22的发言：

碰到问题多了，才知道需要什么。

我有一个想法不知道对不对头
就是在ButtonGroup里如我那个数字和加减乘除符号的框框（他本质是个类吧）写一个赋值函数（自定义方法）然后调用20次给每个按钮用参数赋值

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 23:16

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 18 楼

得分:0

回复 36楼 sdta

恩多练练基本功确是有好处

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 23:17

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 19 楼

得分:0

以下是引用TonyDeng在2012-9-18 23:22:07的发言：

呵呵，干嘛不去偷看代码？我不知道的。

对对碰

再说你已经给了迟早逃不出俺的法眼嘿嘿

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-18 23:25

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 20 楼

得分:0

以下是引用TonyDeng在2012-9-18 23:22:07的发言：

呵呵，干嘛不去偷看代码？我不知道的。

还真被我搞出来了不过依然不尽如人意
为什么控件名不能做参数写成

程序代码：

 procedure Arrange
       parameters  btn_name, btn_top, btn_left, btn_caption, btn_forecolor
      with this.btn_name
             .Themes = .F.
             .Height = 27
             .Width = 35
             .Top = btn_top
             .Left = btn_left
             .Caption = btn_caption
             .ForeColor = btn_forecolor     

    endproc

会提示没有btn_name这个东西？

程序代码：

    procedure Arrange
       parameters   btn_top, btn_left, btn_caption, btn_forecolor
             .Themes = .F.
             .Height = 27
             .Width = 35
             .Top = btn_top
             .Left = btn_left
             .Caption = btn_caption
             .ForeColor = btn_forecolor      
    endproc      

    procedure init
          local sp as Integer
          sp = 4
          store Rgb(255, 0, 0) to R
          store Rgb(0, 0, 255) to B
        with (0, 0, '7', Rgb(0, 0, 255))
        endwith
       
        with (Top, Left +  + sp, '8', B)
        endwith
       
        with (Top, Left +  + sp, '9', B)
        endwith
       
        with (Top, Left +  + sp, '/', R)
        endwith
        
        with (Top, Left +  + sp, 'sqrt', B)
        endwith
       
        with (Top +  + sp, Left, '4', B)
        endwith
        
        with (Top, Left +  + sp, '5', B)
        endwith
        
        with (Top, Left +  + sp, '6', B)
        endwith                 

        with (Top, Left +  + sp, '/', R)
        endwith                 

        with (Top, Left +  + sp, '%', B)
        endwith
    endproc

算了偷看代码去貌似瞄到一眼给按钮赋值很简洁忍不住了啊

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

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-19 00:32

快速回复：XP计算器？