| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1665 人关注过本帖
标题:关于VFP结构体的讨论
只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
结帖率:99.34%
收藏
已结贴  问题点数:100 回复次数:21 
关于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
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:50 
Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            k = St_k    && 漏了点(.)
             .Width = .k.a
             .Caption = .k.s
        EndWith

    EndProc

EndDefine

授人以渔,不授人以鱼。
2012-09-23 12:53
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分: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
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
学会如下两个手法:
1.用debugger单步执行程序,即时观察运行画面;
2.逐个添加对象,确认无误后再添加新的。

授人以渔,不授人以鱼。
2012-09-23 13:17
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分: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
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:50 
为什么要重新定义一个新的按钮(commandbutton)类,有必要吗?有画蛇添足之嫌。
问题在于ga_Struct[1]
2012-09-23 13:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
我没调试你的代码,自己多试验找规律呗,都是这样总结的。

授人以渔,不授人以鱼。
2012-09-23 13:35
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分: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
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
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
.k 或者St_k 返回的是什么值
直接在此处赋实值最好,不要用变量
也可以用 .H 文件

[ 本帖最后由 bccn201203 于 2012-9-23 13:44 编辑 ]
2012-09-23 13:40
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
那是你没有执行到赋值过程

授人以渔,不授人以鱼。
2012-09-23 13:41
快速回复:关于VFP结构体的讨论
数据加载中...
 
   



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

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