| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2423 人关注过本帖, 1 人收藏
标题:难!难!难!
只看楼主 加入收藏
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
以下是引用cxzbzgz在2012-10-21 23:49:35的发言:

用纯代码编写似乎无法复制,用表单设计是可以复制的!
提取输入内容,等同于复制输出内容。

[ 本帖最后由 bccn201203 于 2012-10-22 00:14 编辑 ]
2012-10-22 00:12
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

授人以渔,不授人以鱼。
2012-10-22 01:24
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
程序代码:
#DEFINE CR_LF        CHR(13)+CHR(10)
#DEFINE WHITE        RGB(255,255,255)
#DEFINE BLACK        RGB(0,0,0)
#DEFINE GRAY         RGB(192,192,192)
#DEFINE DARKGRAY     RGB(128,128,128)
#DEFINE RED          RGB(255,0,0)
#DEFINE DARKRED      RGB(128,0,0)
#DEFINE YELLOW       RGB(255,255,0)
#DEFINE DARKYELLOW   RGB(128,128,0)
#DEFINE GREEN        RGB(0,255,0)
#DEFINE DARKGREEN    RGB(0,128,0)
#DEFINE CYAN         RGB(0,255,255)
#DEFINE DARKCYAN     RGB(0,128,128)
#DEFINE BLUE         RGB(0,0,255)
#DEFINE DARKBLUE     RGB(0,0,128)
#DEFINE MAGENTA      RGB(255,0,255)
#DEFINE DARKMAGENTA  RGB(128,0,128)

CLEAR ALL
Main()
RETURN 

PROCEDURE Main()
    LOCAL loForm
   
    loForm = NEWOBJECT("CForm")
    loForm.Show
    READ EVENTS

ENDPROC 

DEFINE CLASS CForm AS Form
    Caption = ""
    BorderStyle = 1
    Width = 600
    Height = 400
    AutoCenter = .T.
   
    ADD OBJECT PROTECTED Edit1 AS EditBox WITH FontSize = 12, Value = ""
    ADD OBJECT PROTECTED Container1 AS Container
   
    PROCEDURE Arrange
        WITH ThisForm.Edit1
            .Top = 5
            .Left = 5
            .Width = ThisForm.Width - .Left - 5
            .Height = 200
        ENDWITH
        WITH ThisForm.Container1
            .Top = ThisForm.Edit1.Top + ThisForm.Edit1.Height + 5
            .Left = 5
            .Width = ThisForm.Width - .Left - 5
            .Height = ThisForm.Height - .Top - 5
        ENDWITH
    ENDPROC
   
    PROCEDURE Edit1.InteractiveChange
        ThisForm.Container1.Refresh
    ENDPROC
   
    PROCEDURE Container1.Init
        WITH This
            .SpecialEffect = 1
            .AddProperty("aLabels[1]")
        ENDWITH
    ENDPROC
   
    PROCEDURE Container1.Clear
        WITH This
            DO WHILE .ControlCount > 0
                .RemoveObject(.Controls(.ControlCount).Name)
            ENDDO
        ENDWITH
    ENDPROC
   
    PROCEDURE Container1.Refresh
        LOCAL lcText, lnIndex, lnRow, lnCount
        LOCAL lcCharacter
       
        lcText = ThisForm.Edit1.Value
        IF !EMPTY(lcText)
            WITH This
                .Clear
                DIMENSION .aLabels[LENC(lcText)]
                lnRow = 0
                lnCount = 0
                FOR lnIndex = 1 TO LENC(lcText)
                    IF SUBSTRC(lcText, lnIndex, 2) != CR_LF
                        .AddObject(".aLabels[" + TRANSFORM(lnIndex) + "]", "Label")
                        WITH .aLabels[lnIndex]
                            .Caption = SUBSTRC(lcText, lnIndex, 1)
                            .FontName = "隶书"
                            .FontSize = 20
                            .Width = 30
                            .Height = 30
                            .Top = 5 + lnRow * (.Height + 10)
                            .Left = 5 + lnCount * .Width
                            .Visible = .T.
                        ENDWITH
                        lnCount = lnCount + 1
                    ELSE
                        lnRow = lnRow + 1
                        lnCount = 0
                        lnIndex = lnIndex + 1
                    ENDIF
                NEXT
                lcText = STRTRAN(lcText, CR_LF, "")
                FOR lnIndex = 1 TO LENC(lcText)
                    lcCharacter = SUBSTRC(lcText, lnIndex, 1)
                    IF ATC(lcCharacter, lcText, 2) != 0
                        WITH .Controls(lnIndex)
                            .BackColor = MAGENTA
                            .ForeColor = YELLOW
                        ENDWITH
                    ENDIF
                NEXT
            ENDWITH
        ENDIF
       
    ENDPROC
   
    PROCEDURE Activate
        ThisForm.Arrange
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE

授人以渔,不授人以鱼。
2012-10-22 01:33
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
回复 13楼 TonyDeng
谢谢!
我试了一下,好用!
可就是没解决复制的问题啊
2012-10-22 13:45
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
我不知道你复制哪个以及用到什么地方呀

授人以渔,不授人以鱼。
2012-10-22 13:46
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
回复 6楼 wjp456789
不管用什么办法能达到目的就好啊!
我不熟悉表单,所以用的笨办法。

[ 本帖最后由 jsyg 于 2012-10-22 14:06 编辑 ]
2012-10-22 13:49
jsyg
Rank: 2
等 级:论坛游民
威 望:1
帖 子:75
专家分:38
注 册:2012-10-20
收藏
得分:0 
回复 15楼 TonyDeng
图片附件: 游客没有浏览图片的权限,请 登录注册


复制这个。
2012-10-22 14:05
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
回复 17楼 jsyg
将编辑框中输入的内容提取后,赋予变量,这就相当于复制。
2012-10-22 14:12
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
又碰到一个不会水的游泳高手。
2012-10-22 14:13
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
不知楼主看明白T版的代码了吗?
2012-10-22 14:15
快速回复:难!难!难!
数据加载中...
 
   



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

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