发布时间 : 星期五 文章vfp下例题汇总更新完毕开始阅读acff0def19e8b8f67c1cb97b
Vfp下例题汇总
件 COMMAND2的CLICK事件 THISFORM.TIMER1.ENABLED=.F. 37． 小球大小变化 要求：
(1)通过属性窗口设置以下属性：表单的标题属性,Timer1的时间间隔为100ms,Timer1控件不工作；小球的宽度和高度值初始值皆为50；
(2)新建属性b,当其值为.F.时，表示小球将逐渐变大，当其值为.T.时，表示小球将逐渐变小； (3)表单刚运行时，“暂停”按钮不可用，如图2所示； (4)单击“开始”按钮，“暂停”按钮可用，小球直径以3为步长逐渐变大，当其直径大于或等于100时，小球直径以3为步长逐渐缩小，当其直径小于或等于40时，又一次开始逐渐变大,如此反复。 (5)单击“暂停”按钮，“开始”按钮可用，小球停止变化；整个过程不断重复，如图2、3所示。 (6)编写Form1的Init事件、Timer1的Timer事件、command1和command2的click事件的代码
图1 设计界面图 图2初始运行时界面
图3 单击“开始”按钮后运行界面
属性窗口设置 属性窗口设置： FORM1_CAPTION=小球缩放 SHAPE1_HEIGHT=50 SHAPE1_WIDTH=50 SHAPE1_BACKCOLOR=255,0,0 COMMAND1_CAPTION=开始 第 37 页 共 77 页
Vfp下例题汇总
COMMAND2_CAPTION=暂停 新建属性 事件 FORM1 的INIT事件 表单->新建属性 B 代码 THISFORM.TIMER1.ENABLED=.F. THISFORM.TIMER1.INTERVAL=100 THISFORM.COMMAND2.ENABLED=.F. THISFORM.B=.F. IF THISFORM.B THISFORM.SHAPE1.HEIGHT= THISFORM.SHAPE1.HEIGHT-3 THISFORM.SHAPE1.WIDTH= THISFORM.SHAPE1.WIDTH-3 ELSE THISFORM.SHAPE1.HEIGHT= THISFORM.SHAPE1.HEIGHT+3 THISFORM.SHAPE1.WIDTH= THISFORM.SHAPE1.WIDTH+3 ENDIF IF THISFORM.SHAPE1.HEIGHT>=100 THISFORM.B=.T. ENDIF IF THISFORM.SHAPE1.HEIGHT<=40 THISFORM.B= .F. ENDIF THISFORM.TIMER1.ENABLED=.T. THISFORM.COMMAND1.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. TIMER1的TIMER事件 COMMAND1的CLICK事件 COMMAND2的CLICK事件 38． 文字缩放
要求：(1)文字信息初始的位置在表单的正中央，表单执行后，第间隔20毫秒，文字自动以字号加1的幅度逐步向周边延伸变大，直到文字充满整个表单；
(2)然后每间隔20毫秒，文字会自动以字号加1的幅度逐步向中间回缩变小，直到文字复原为初始的状态；
(3)整个过程不间断地缩放(最小字号为4，最大学号为52)
(4)新建属性change,当其值为0时，表示文字将逐渐变大，当其值为1时，表示文字将逐渐变小。
图1 设计界面图 图2初始运行时界面
属性窗口设置 属性窗口设置： 新建属性 事件 FORM1_CAPTION=缩放文字 LABEL1_CAPTION=我是会缩放的文字 表单->新建属性 change 代码 第 38 页 共 77 页
Vfp下例题汇总
FORM1 的INIT事件 THIS.TIMER1.ENABLED=.T. THIS.TIMER1.INTERVAL=20 THIS.CHANGE=0 IF THISFORM.LABEL1.FONTSIZE=52 THISFORM.CHANGE=1 ENDIF IF THISFORM.LABEL1.FONTSIZE=4 THISFORM.CHANGE=0 ENDIF IF THISFORM.CHANGE=0 THISFORM.LABEL1.FONTSIZE=THISFORM.LABEL1.FONTSIZE+1 ENDIF IF THISFORM.CHANGE=1 THISFORM.LABEL1.FONTSIZE=THISFORM.LABEL1.FONTSIZE-1 ENDIF TIMER1的TIMER事件
39． 文字水平移动 要求：
要求：(1)文字信息(纵向)初始显示位置在表单的左边，表单执行后，每间隔20毫秒，文字会自动以间隔加1的幅度逐步向表单右边移动，直到文字到达表单最右边缘；
(2)然后，每间隔20毫秒文字会自动以间隔加1的幅度逐步向表单左边移动，直到文字回复到初始位置；
(3)整个过程不间断地来回移动
(4)新建属性B,当其值为?L?时，表示文字向左移动，当其值为?R?时，表示文字将向右移动。
图1 设计界面图 图2初始运行时界面
属性窗口设置 属性窗口设置： 新建属性 FORM1_CAPTION=水平移动的文字 FORM 1_BACKCOLOR=255,255,0 LABEL1_CAPTION=我是会移动的文字 LABEL1_WORDWRAP=.T. 表单->新建属性 B 第 39 页 共 77 页
Vfp下例题汇总
事件 FORM1 的INIT事件 TIMER1的TIMER事件 THISFORM.TIMER1.ENABLED=.T. THISFORM.TIMER1.INTERVAL=20 THIS.B=\代码 IF THISFORM.LABEL1.LEFT=THISFORM.WIDTH-THISFORM.LABEL1.WIDTH THISFORM.B=\ENDIF IF THISFORM.LABEL1.LEFT=0 THISFORM.B=\ENDIF IF THISFORM.B=\ THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT+1 ENDIF IF THISFORM.B=\ THISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-1 ENDIF
40． 时间信息平行移动 要求：
要求：(1)时间信息初始显示位置在表单的最上边，表单执行后，每间隔20毫秒，时间信息会自动以间隔加1的幅度逐步向表单下边移动，直到文字到达表单最下边缘；
(2)然后，每间隔20毫秒文字会自动以间隔加1的幅度逐步向表单上边移动，直到文字回复到初始位置；
(3)整个过程不间断地来回移动
图1 设计界面图 图2初始运行时界面
属性窗口设置 属性窗口设置： 事件 FORM1 INIT事件 的THISFORM.TIMER1.ENABLED=.T. THISFORM.TIMER1.INTERVAL=20 THISFORM.LABEL1.TOP=0 PUBLIC B B=.T. THISFORM.LABEL1.CAPTION=TIME() IF THISFORM.LABEL1.TOP>=THISFORM.HEIGHT- THISFORM.LABEL1.HEIGHT 第 40 页 共 77 页
FORM1_CAPTION=信息行动态平行移动表单 代码 TIMER1的TIMER事件