| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1147 人关注过本帖
标题:验证系统?
取消只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
结帖率:99.34%
收藏
已结贴  问题点数:20 回复次数:11 
验证系统?
我按坛友wjp456789给的那个界面 也做了一个如下图
555 传不了图?
我现在的问题是 怎么删除一个已添加的对象?
可以看出 我先建立了一个容器类 里面有三个控件 我怎么在主程序里 删除一个容器对象里面的一个控件?
我试图用release方法 来做 但是失败了 那几段代码我注释掉了 按理说应该是用release 吧 可能是我不会用。
我的原始程序代码如下:
程序代码:
Clear   All

Public gn_HalfWndHeight as Integer
Public gn_HalfWndWidth as Integer
Public gn_Space
gn_HalfWndHeight = 280
gn_HalfWndWidth = 400
gn_Space = 30
*On Error do errHandler with Error(), Message(), Message(1), Program(), Lineno()
Main()
*On Error

Clear All
Return


*!*    Procedure errHandler(merror, mmess, mmess1, mprog, mlineno)
*!*         MessageBox(Str(mlineno) + "表达式错误:" + mmess)
*!*    EndProc


Procedure Main()
           Local lo_MainForm
           lo_MainForm = NewObject("C_Form")
           lo_MainForm.show
           Read EVENTS
           Return

EndProc

Define Class C_Container as Container
            BorderWidth = 2
            SpecialEffect = 0

            Width = 2 * (gn_HalfWndWidth - gn_Space) 

            Height = 50       

           

            Add Object lo_Label as Label With Caption = "记得改变我:", Alignment = 2 , Left = 10, Top = 10,;
                        Height = 30, Width = 150, FontSize = 16&&, BackColor = Rgb(255, 0, 0)
                       

            Add Object lo_Text as TextBox With Left = This.lo_Label.Left + This.lo_Label.Width + gn_Space,;
                        Top = This.lo_Label.Top, Height = This.lo_Label.Height, BorderWidth = 0,;
                        Width = 200, Alignment = 0, Value = 0, Alignment = 1
      Add Object lo_Button as CommandButton With Left =   This.lo_Text.Left + This.lo_Text.Width +;
                  gn_Space, Width = This.Width / 2 -  (This.lo_Text.Left + This.lo_Text.Width + ;
                  2 * gn_Space) / 2, Top =   This.lo_Label.Top, Caption =  "记得改变我", Themes = 0,;
                  Height = This.lo_Label.Height , FontSize = 16        

                             

*!*               Procedure Release
*!*                    Release this
*!*               EndProc                                                               

EndDefine


Define Class C_Form as Form
    MaxButton = .F.
    Caption = "身份证号检验系统"
    AutoCenter = .T.

    ShowWindow = 2
    BorderStyle = 2
   

    Add Object lo_Caption as Label with Top = 10, Caption = "身份证号检验系统",;
                  FontSize = 20, AutoSize = .T. , FontName = "楷体"                 

   Add Object lo_Number as C_Container with Top = This.lo_Caption.Top  + 40 +;
                          This.lo_Caption.Height, Left = gn_Space

*!*                              Procedure lo_Number.Init
*!*                                 Local i as Integer
*!*                                 i = This.Height
*!*                                 MessageBox(Str(i))
*!*                              EndProc

   Add Object lo_Province  as C_Container with Top = This.lo_Number.Top  +;
                          This.lo_Number.Height, Left = This.lo_Number.Left    

   Add Object lo_Area  as C_Container with Top = This.lo_Province.Top  +;
                          This.lo_Province.Height, Left = This.lo_Number.Left

   Add Object lo_City  as C_Container with Top = This.lo_Area.Top  +;
                          This.lo_Area.Height, Left = This.lo_Number.Left      

   Add Object lo_Date  as C_Container with Top = This.lo_City.Top  +;
                          This.lo_City.Height, Left = This.lo_Number.Left  

   Add Object lo_Sex as C_Container with Top = This.lo_Date.Top  +;
                          This.lo_Date.Height, Left = This.lo_Number.Left 

   Add Object lo_Address  as C_Container with Top = This.lo_Sex.Top  +;
                          This.lo_Sex.Height, Left = This.lo_Number.Left 

   Add Object lo_Result  as C_Container with Top = This.lo_Address.Top  +;
                          This.lo_Address.Height, Left = This.lo_Number.Left                                                                                                                                                                               

                                                 

    Procedure lo_Caption.Init
           With This
                   .Left = gn_HalfWndWidth - .Width / 2
           EndWith

    EndProc

          

    Procedure lo_Date.Init
           With This
                   .lo_Label.Caption = "出生年月日:"
                   .lo_Button.Caption = "干掉我"
           EndWith

    EndProc

   

     Procedure lo_Result.Init
           With This
                   .lo_Label.Caption = "最终结果:"
                   .lo_Button.Caption = "干掉我"                 

                   .Height = 100
                   .lo_Text.Width = 400
                   .lo_Text.Height = 50           

           EndWith

    EndProc

    

*!*         Procedure Release          

*!*             lo_Province.Release
*!*         EndProc

                                      

    Procedure Init
          With This

                   .Top = 100
                   .Left = 100
                   .Height = gn_HalfWndHeight * 2
                   .Width = gn_HalfWndWidth * 2                 

          EndWith
    EndProc

      

    Procedure Destroy
          Local ln_Confirm
          _screen.ActiveForm.Tag  = "0"

          ln_Confirm = MessageBox("你确定要退出验证系统吗?" , 4 + 32, "退出?")
          If ln_Confirm == 6
             Clear Events

          Else

             _screen.ActiveForm.Tag  = "1"
             ThisForm.Activate
             ThisForm.Show
          EndIf 

    EndProc

EndDefine     



搜索更多相关主题的帖子: color 主程序 release 
2012-09-21 23:25
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用sdta在2012-9-21 23:37:13的发言:

S版 我真是视你为神人也
我传不上的图竟然被你传上来啦?

梅尚程荀
马谭杨奚







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

不要误入歧途

什么意思?

梅尚程荀
马谭杨奚







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

VFP是面相对象编程,天天用代码编程,就失去它的意义。掌握方法就行了。
REMOVE 命令
REMOVE 方法

哈哈 谢谢你的指点 感觉你的理念和T版不太一样啊

梅尚程荀
马谭杨奚







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

T版可能不会用

有这个可能——————吗 。。。

梅尚程荀
马谭杨奚







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

最近系统上传图片有个问题,图片上传成功后,如果再修改文字,图片就没有了,修改完文字后,只有重新上传图片。

汗个 。。。

梅尚程荀
马谭杨奚







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

告诉你个秘密,T版重来没用过表单设计器,不要告诉别人啊

好的 我保守这个秘密

梅尚程荀
马谭杨奚







                                                       
2012-09-21 23:59
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
我被老大带坏了 每天不过零点 睡不着了

梅尚程荀
马谭杨奚







                                                       
2012-09-22 08:32
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
严重向两位老大求一个动态改变及增删自定义容器类里控件的方法。

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

梅尚程荀
马谭杨奚







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

有空看看帮助中的这些画面:

才发现这个东西是宝贝啊  

梅尚程荀
马谭杨奚







                                                       
2012-09-22 13:37
快速回复:验证系统?
数据加载中...
 
   



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

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