动画演示一例

浙江  朱 原 
1993-11-05

        调用该功能模块语句需传递的参数为：字符串显示所形成矩形框的左上角与右下角各自的横座标和列座标，以及色彩控制和需要显示的字符串共六个参数，且调用的语句仅为一条。例如，下面这条语句调用本模块将在屏幕上使一组蓝底黄字的中文字符串“电脑报是一份普及型的计算机报”围绕着第4行、第20行和第10列、第70列所组成的矩形框按顺时针方向滚动：
        DO  WINDOW  WITH  4，20，10，70，'GR＋/B'，
        '电脑报是一份普及型的计算机报'
        该功能块在多种型号的PC机，foxbase＋20以上版本中通过。
        WINDOW.PRG
        PARAX1，X2，Y1，Y2，C1，C2&&上、下横座标，左、右列座标，色彩控制，显示文字
        SET  TALK  OFF
        SET  COLOR  TO&C1.
        L=(X2-X1)2＋(Y2-Y1)
        C2=C2＋SPACE(L2-LEN(C2)＋2)
        L1=Y2-Y1
        L2=L1＋(X2-X1-1)2
        L3=L2＋L1
        KEY=.T.
        I1=0
        DO  WHILE  KEY
        IF  I1#0
        KEY=.F.
        LOOP
        ENDIF
        I=0
        DO  WHILE  I＜Y2-Y1
        @X1，Y1＋ISAYSUBS(C2，I＋1，2)
        I=I＋2
        E N D D O
        I=1
        DO  WHILE  I＜=X2-X1-1
        @X1＋I，Y2  SAYSUBS(C2，L1＋1＋I2，2)
        I=I＋1
        ENDDO
        I=2
        DO  WHILE  I＜=Y2-Y1＋2
        @X2，Y2-I＋2  SAYSUBS(C2，L2＋1＋I，2)
        I=I＋2
        ENDDO
        I=1
        DO  WHILE  I＜=X2-X1-1
        @X2-I，Y1SAYSUBS(C2，L3＋3＋I2，2)
        I=I＋1
        ENDDO
        C2=RIGHT(C2，2)＋LEFT(C2，LEN(C2)-2)
        I1=INKEY()
        ENDDO
        RETURN
        (浙江  朱原)
 
 