vfp表单控件课件

60
登陆按钮COMMAND1的CLICK事件代码如下：
i=i+1 if thisform.text1.value="user1" and thisform.text2.value='123456' messagebox('欢迎进入本系统') do form "作业4 封面.scx" thisform.release else if i<3 messagebox("密码错，请重试") thisform.text2.value='' thisform.text2.setfocus else messagebox('密码错，禁止进入本系统') thisform.release endif endif
连接类：Active X控件、Active X绑定控件、
超级链接
3
第一节 标签和 命令按钮控件
5
属 性
功
能
caption
autosize alignment forecolor fontsize fontname
显示文本内容，最多允许256个字符
指定标签是否可随其中的文本的 大小而改变 指定文本在标签中的对齐方式 0-左 1-右 2-居中 指定标签中文本的颜色 标签中文本的字号大小 标签中文本的字体
25
“改变大小”按钮COMMAND2的CLICK事件程序代码如下： IF This.Caption="改变大小" bel1.FontSize=18 This.Caption="恢复大小" ELSE bel1.FontSize=24 This.Caption="改变大小" ENDIF
编辑框与文本框的功能类似，都是用于显示，输 入和修改数据。它们之间的区别是文本框是在一行中 显示数据，输入的内容放不下，会自动向左移动；而 编辑框为若干行的一个区域，当编辑框的scrollbars 属性设为.T.，还可包含滚动条，适合编辑较多内容的 文本。此外，编辑框的integraheight属性可控制编辑
“Interval”属性用于定义两次计时器事件触发的
时间间隔（毫秒级）。
30
属性名称 Enabled
功能 控制计时器控件是否挂起
取值
指定计时器控件的Timer事件之间的 Interval 时间间隔，单位为毫秒。通常将时 间间隔设置为所需精度的一半。
0-（默认值， 不响应） 1-n 响应
31
作业10 计时器和容器
if bel1.left + bel1.width>0 bel1.left=bel1.left-5 else bel1.left= this.parent.width endif
CLICK事件
中分别写入
了不同的程 序代码，控
表单名.对象名.属性名＝属性值
制文本和按
钮的显示和 消失。
16
本例制作的 关键，是在 两个按钮的
“清除文本”按钮CLICK事件的程序代码： bel1.visible = .f. mand1.visible = .t. mand2.visible = .f.
CLICK事件
中分别写入
了不同的程 序代码，控
表单名.对象名.属性名＝属性值
制文本和按
钮的显示和 消失。
17
作业8 按钮组
请制作如下所示的一个表单，点击不同的按钮， 会出现不同的背景颜色。
18
1、打开表单设计器，插入一个按钮组。
19
2、在按钮组上右键单击，在弹出菜单上选择“编 辑”。
20
3、此时按钮组背景出现一个蓝色虚线框，就可以对每个按钮 的属性和事件进行单独的设置了。
按钮（command1） caption
按钮（command2） Caption
‘你好’
‘退出’
11
3、按钮事件代码设置
Command2的click事件代码：
thisform.release
表单名.对象名.属性名＝属性值
12
3、按钮事件代码设置
表单名.对象名.属性名＝ command1的click事件代码： if bel1.caption='hello' bel1.caption='你好' mand1.caption="hello"
value
buttoncount
命令按钮组中被选中的命令按钮的序号
命令按钮组中的命令按钮的个数
8
作业6 标签和按钮—你好！
请制作如下所示的一个表单，点击“你好”按 钮，标语和按钮上的文字会互换。
9
1、打开表单设计器，插入两个标签，再插入两个按钮。
10
对象属性设置如表所示
对象 标签（label1） 属性 Caption 属性值 ‘hello’
46
第三节 文本框 和编辑框
48
49
作业13 判断素数
请制作一个表单，输入一个数值，点击判断按钮，
会显示出该数是否是素数。
50
打开表单设计器，插入三个标签、一个文本框和两个按钮
51
n=thisform.text1.value y='它是素数！！'
for i=2 to n-1
if mod(thisform.text1.value,i)=0 y='它不是素数！'
endif
endfor bel2.caption=y
52
作业14 制作登录界面
请制作一个表单，输入用户名和密码正确以 后，点击登陆按钮，会进入作业4的封面系统。
53
如果登陆错误，则显示下图：
54
重试三次不成功，则显示：
55
如果点击退出按钮，则显示下图：
56
插入三个标签“用户名”、“口令”和“张大民制 作”，插入两个文本框和两个按钮。
《计算机应用技术基础》
第三章I 表单控件
本章目录
第一节 标签和命令按钮控件 第二节 计时器和容器控件 第三节 文本框控件
2
表单控件按主要功能分为五类：
输出类控件：标签、图象、线条、形状 输入类控件：文本框、编辑框、微调控件、 列表框、组合框 控制类控件：命令按钮、命令按钮组、复选框 选项按钮组、计时器 容器类控件：表格、页框、容器
21
以红色背景 按钮为例，将
thisform.backcolor=this.forecolor
前景色属性 FORECOLOR设 为255,0,0 ， 将CLICK事件
写入如图所示
的代码：
22
作业9 标签变化
请制作一个表单，点击两个按钮，“欢迎各 位读者”标语和按钮都会发生相应的变化。
23
24
“改变颜色”按钮COMMAND1的CLICK事件程序代码如下： IF This.Caption="改变颜色" bel1.ForeColor=RGB(0,255,0) This.Caption="恢复颜色" ELSE bel1.ForeColor=RGB(0,0,255) This.Caption="改变颜色" ENDIF
57
在表单form1的caption属性中 输入日期函数：
= dtoc(date())
其中：
date()为系统当前日期
dtoc()为将日期性日期转换为
字符型日期
58
public i &&计算输入次数 i=0
59
注意TEXT2文本框中的 PASSWORDCHAR属性设置为
*号，以防密码被别人看
到。
多个命令按钮时，可以使用命令按钮组，这样可
使事件代码更简洁，界面更加整洁和美观。命令 按钮组中各命令按钮的排列方向和位置可根据用 户的需要进行调整。
7
属 性 caption
功
能
标题文本。含“\<”字符，输入该字符可选 择该命令按钮
picture default cancel
标题图像 为.t.时，按回车键可选择此命令按钮 为.t.时，按esc键可选择此命令按钮
13
14
作业7 标签和按钮—隐藏按钮
请制作一个表单，当点击“显示文本”按钮 时，该按钮会自动消失；而当点击“清除文本” 按钮时，该按钮和文字一起消失，而“显示文 本”按钮重新出现。
15
本例制作的 关键，是在 两个按钮的
“显示文本”按钮CLICK事件的程序代码： bel1.visible = .t. mand1.visible = .f. mand2.visible = .t.
bel1.fontbold=.t. bel1.fontitalic=.t.
属性值
else
bel1.caption='hello'
mand1.caption='你好' bel1.fontbold=.f. bel1.fontitalic=.f. endif
44
45
bel2.caption=time() bel2.left=mod((bel2.left20+375),375) if bel1.fontsize<=72 bel1.fontsize=bel1.fontsize+12 else bel1.fontsize=12 endif
fontbold
left width visible
杯签中文本是否加粗
标签左边界与表单左边界的距离 设定对象的宽度。 指定标签是否可见
6
命令按钮和命令按钮组控件
1．命令按钮(commandbutton)：通常用来完成某
些功能，例如确认、撤销、执行、完成等操作。
2．命令按钮组(commandgroup)：当一个表单需要