关于VFP结构体的讨论 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于VFP结构体的讨论

我的收件箱(0)

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

共有 1665 人关注过本帖

标题：关于VFP结构体的讨论

取消只看楼主加入收藏

有容就大

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

楼主

已结贴√ 问题点数：100 回复次数：8

关于VFP结构体的讨论

如下程序我定义了一个结构体 St 然后定义一个Cbtn按钮类并通过St给他赋值
最后在主Form里调用addObject()函数动态添加控件
为什么提示这个？我是照T版给的那个模板写的为什么出错？

图片附件: 游客没有浏览图片的权限，请登录或注册

---

程序代码：

Clear All
Public ga_Struct[2]
ga_Struct[1] = CreateObject("St", 50, "this is a" )
ga_Struct[2] = CreateObject("St", 200, "this is b" )

Main()
Clear All
Return


Procedure Main()
    Local lo_MainForm

    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
EndProc 


Define Class St as Custom
    a = 0
    s = ""   

    Procedure Init(tn_a, tc_s)
        a = tn_a
        s = tc_s
    EndProc      

EndDefine


Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            k = St_k
             .Width = .k.a
             .Caption = .k.s
        EndWith

    EndProc

EndDefine



Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
   

    Procedure Init
        With This
            .AddObject("xx", "Cbtn", ga_Struct[1])
            .AddObject("oo", "TextBox")
            With This.oo
                .Left = 100
                .Top = 50
                .Visible = .T.
            EndWith

        EndWith

    EndProc

    Procedure destroy

        Clear Events       

    EndProc

EndDefine

俺被这个搞晕了放100分求救。。。

搜索更多相关主题的帖子: 动态　结构体　

2012-09-23 12:45

有容就大

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

第 2 楼

得分:0

以下是引用TonyDeng在2012-9-23 12:53:32的发言：

Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            k = St_k    && 漏了点(.)
             .Width = .k.a
             .Caption = .k.s
        EndWith

    EndProc

EndDefine

我真是欲哭无泪啊一个上午就为了一个小数点在打转转

不过我改成这样能行了但是为什么按钮没出现？

程序代码：

Clear All
Public ga_Struct[2]
ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )
ga_Struct[2] = CreateObject("St", 200, 100, "this is b" )

Main()
Clear All
Return


Procedure Main()
    Local lo_MainForm

    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
EndProc 


Define Class St as Custom
    a = 0
    b = 0
    s = ""   

    Procedure Init(tn_a, tn_b, tc_s)
        a = tn_a
        b = tn_b
        s = tc_s
    EndProc      

EndDefine


Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            .k = St_k
             .Width = .k.a
             .Height = .k.b
             .Caption = .k.s
        EndWith

    EndProc

EndDefine



Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
   

    Procedure Init
        With This
            .AddObject("xx", "Cbtn", ga_Struct[1])
            With This.xx
                .Left = 200
                .Top = 200
                .Visible = .T.
            EndWith

            .AddObject("oo", "TextBox")
              With This.oo
                .Left = 100
                .Top = 50
                .Visible = .T.
            EndWith

        EndWith

    EndProc

    Procedure destroy

        Clear Events       

    EndProc

EndDefine

----

图片附件: 游客没有浏览图片的权限，请登录或注册

只看到TextBox哦没见自己定义的Cbtn类按钮？有是哪里有问题？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:04

有容就大

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

第 3 楼

得分:0

以下是引用TonyDeng在2012-9-23 13:17:16的发言：

学会如下两个手法：
1.用debugger单步执行程序，即时观察运行画面；
2.逐个添加对象，确认无误后再添加新的。

老大我真是对你佩服的五体投地。。。
我去单步调试了下发现把结构体的初值改一下就能出来按钮

程序代码：

Define Class St as Custom
    a = 100
    b = 100
    s = ""   

    Procedure Init(tn_a, tn_b, tc_s)
        a = tn_a
        b = tn_b
        s = tc_s
    EndProc      

EndDefine

那么难道 .AddObject("xx", "Cbtn", ga_Struct[1])不能改变新添加按钮的width和height吗
不是ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )明明传的是50和100啊

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:26

有容就大

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

第 4 楼

得分:0

以下是引用bccn201203在2012-9-23 13:35:29的发言：

为什么要重新定义一个新的按钮(commandbutton)类，有必要吗？有画蛇添足之嫌。
问题在于ga_Struct[1]

害羞哥你说对了 ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )
无法改变ga_Struct[1]的值它只接收结构体St的初值。。。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:39

有容就大

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

第 5 楼

得分:0

知道原因啦我晕还是小数点的问题 NND 今天被这个坑惨了

程序代码：

Define Class St as Custom
    a = 100
    b = 100
    s = "haha"   

    Procedure Init(tn_a, tn_b, tc_s)
        With This
           [color=red][size=7].[/size][/color]a = tn_a
            [color=red][size=7].[/size][/color]b = tn_b
           [color=red][size=7].[/size][/color]s = tc_s
         EndWith        

    EndProc      

EndDefine

[ 本帖最后由有容就大于 2012-9-23 13:54 编辑 ]

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:45

有容就大

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

第 6 楼

得分:0

以下是引用bccn201203在2012-9-23 13:50:41的发言：

天外飞来的小数点，我佛照顾你啊

给他加N多帽子留作纪念。。。
嘿嘿一个小数点不吃论坛的Discuz代码那一套？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:52

有容就大

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

第 7 楼

得分:0

以下是引用TonyDeng在2012-9-23 13:55:56的发言：

这就是VFP允许未经声明就使用变量的毛病，与BASIC一样。BASCI后来有个开关，设置强制声明变量的，但VFP没有。这也是强类型语言的优点。虽然我们现在习惯在函数中写上LOCAL这样的声明符，但它其实不是声明变量，变量是在第一次使用时创建的。你的问题，就是创建了新的未定义变量a、b、s而不是使用已定义变量this.a、this.b、this.s，这种错误在C/C++中能够被编译器检查出来，但VFP不行。

确实是这样啊 a, b, s 没有点点编译器不管不顾叫俺情何以堪？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 13:58

有容就大

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

第 8 楼

得分:0

以下是引用TonyDeng在2012-9-23 14:16:34的发言：

定义一个按钮类，在逻辑上是为了封装一个概念，因为对计算器来说，那是具体带有某种功能的按键，除了标签和可以点击，它还有某种具体的不同于普通按钮的行为，所以命名为一种新的“类型”，而不是广泛的按钮。这是最主要的目的，纵使现在的这个自定义类很简单，在逻辑上也应该是这样构建出来的，面向对象编程，很多这种超简单的类，通过它们不断继承出新的具体类。如果我们构建了这样的概念，那么将来要扩展这个类的行为，就很容易了，不用到处改代码——面向对象之所以用编程结构复杂性取代面向过程的简单性，就是为了强化可扩展性和可维护性。

另一方面，对VFP8或VFP6这种没有BindEvent()功能的版本，要临时加挂某个对象的事件触发代码，是无能为力的，那就需要用这种自定义类来做。VFP9有这种功能，可以不需要，但考虑到上面的原则，在完美性上来说，构造新类不是坏事。

不过，对继承了CommandButton类的子类来说，它也继承了.Width和.Height这些父类的属性，不用自己另外定义属性再传递，也就是说，你这个新的代码，可以在Init的代码中，把宽、高、标签参数值直接赋值给.Width和.Height、.Caption，无需借助.a、.b、.s属性。我之前那个代码，是要拿KeyID来区分按钮的行为的，与你现在这个简化了的不同。

Ctbn类确实有用处我现在在考虑如何搞清楚他的动态性。。。
我先写简单的搞清楚他们都在干什么就OK了。

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

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 14:26

有容就大

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

第 9 楼

得分:0

以下是引用bccn201203在2012-9-23 14:14:26的发言：

问题解决了？天快黑了。

结了吧一人一半。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-23 14:28

快速回复：关于VFP结构体的讨论