Visual FoxPro数据库程序设计实训指导 第二版 高职计算机应用技术 焦凤红实验8 表单设计.ppt

8.2　实验内容 8.2.4　表单控件的使用 命令按钮组的使用 2 (3)添加命令按钮组控件，并设置其属性。 8.2　实验内容 8.2.4　表单控件的使用 命令按钮组的使用 2 (4)命令按钮组Commandgroup1中各按钮的事件代码如下： Command1的Click事件代码： THISFORM.Width=THISFORM.Width+20 Command2的Click事件代码： THISFORM.Width=THISFORM.Width—20 Command3的Click事件代码： THISFORM.Height=THISFORM.Height+20 Command4的Click事件代码： THISFORM.Height=THISFORM.Height—20 8.2　实验内容 8.2.4　表单控件的使用 命令按钮组的使用 2 (5)表单Example的相关事件代码如下： Example的Click事件代码： THISFORM.BackColor=RGB(0,0,0) Example的RightClick事件代码： THISFORM.BackColor=RGB(192,192,192) (6)保存、运行表单。 8.2　实验内容 8.2.4　表单控件的使用 标签和文本框的使用 3 　　【例8\|7】设计一个能接受口令的表单。文本框用来输入口令（口令在屏幕上显示为相同个数的*号），如口令正确，则显示“欢迎使用!”，并出现一个关闭按钮；否则显示“对不起，口令错！”。 8.2　实验内容 8.2.4　表单控件的使用 标签和文本框的使用 3 设计步骤如下： (1)执行命令CREATE FORM，打开“表单设计器”窗口。 (2)在表单上添加控件：1个文本框、2个标签和1个命令按钮控件。 (3)属性设置：见表。 .F. Visible .F. TabStop 关闭(\\Q) Caption Command1 按钮访问键为Q 输入口令 Caption Form1 说明 属性值 属性 对象 对象属性设置表 8.2　实验内容 8.2.4　表单控件的使用 标签和文本框的使用 3 18 FontSize 18 FontSize .T. FontBold 隶书 FontName .T. AutoSize Label2 .T. FontBold 黑体 FontName .T. AutoSize 请输入您的口令： Caption Label1 说明 属性值 属性 对象 对象属性设置表 8.2　实验内容 8.2.4　表单控件的使用 标签和文本框的使用 3 14 FontSize 宋体 FontName (无) Value 内容显示为*号 * PasswordChar Textl 说明 属性值 属性 对象 对象属性设置表 (4)编写事件代码。 (5)保存、运行表单，运行后的表单。 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 　　【例8-8】设计一个表单，表单运行后的窗口。可利用两个选项按钮组来控制输入文本的字体颜色和背景颜色，利用复选框来控制字体风格。 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 　　设计步骤如下： 　　(1)执行命令CREATE FORM，打开“表单设计器”窗口。 　　(2)为表单添加控件：1个文本框控件、2个标签控件、2个选项按钮组控件、3个复选框控件以及1个命令按钮控件。 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 (3)设置属性：见表。 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 (4)Optiongroupl的Click事件代码： DO CASE CASE THIS.Value=1 THISFORM.Text1.ForeColor=THIS.Option1.BackColor CASE THIS.Value=2 THISFORM.Text1.ForeColor=THIS.Option2.BackColor CASE THIS.Value=3 THISFORM.Text1.ForeColor=THIS.Option3.BackColor ENDCASE 8.2　实验内容 8.2.4　表单控件的使用 选项按钮组和复选框的使用 4 (5)Optiongroup2的相关事件代码： Option1的Click事件代码： THISFORM.Text1.BackColor=THIS.BackColor Option2的Click事件代码： THISFORM.Text1.BackColor=THIS.BackColor Option3的Cl