第4章 赋值与输入

第4章赋值与输入/输出

4.1赋值语句4.2常用的简单语句4.3数据输出4.4数据输入4.5形状、容器和图像控件4.1赋值语句

赋值语句的一般格式为：STORE〈表达式〉TO〈名称列表〉或〈名称〉=〈表达式〉例如：STORE2+3TOx,y,zTHISFORM.Caption="学生成绩管理软件"例如：today={^2005/11/10}today=CTOD("12/08/2005")例如：THISFORM.Label1.Caption="计算机可以接受数据和处理数据，"+;"并可将处理完的数据以完整有效的方式提供给用户。"4.2常用的简单语句

4.2.1程序注释语句1.行首注释语法格式为：

NOTE[注释内容]

或*[注释内容]2.行尾注释语法格式为：&&[〈注释内容〉]4.2常用的简单语句

4.2.1程序注释语句【例4-1】注释语句使用示例。NOTE该程序计算圆面积r=10 &&r为圆半径pi=3.1415926 &&pi为圆周率s=pi*r^2 &&计算圆面积的值THISFORM.Label1.Caption=s &&将结果显示在标签上4.2常用的简单语句4.2.2程序暂停语句

WAIT语句用来暂停程序的执行并显示提示信息，按任意键或单击鼠标后继续执行程序。其语法格式为：

WAIT[〈提示信息〉][TO〈内存变量〉][WINDOW[AT行,列]][TIMEOUTn]

4.2常用的简单语句4.2.2程序暂停语句【例4-2】WAIT语句使用示例。

WAIT"我累了，要休息10秒"WINDOWAT10,10TIMEOUT10

代码窗口及程序运行结果如图4-1所示。4.2常用的简单语句4.2.3程序结束语句

RELEASE语句的格式为：

RELEASE〈THISFORM〉Release方法的格式为：〈THISFORM|THISFORMSET〉Release4.3数据输出

4.3.1使用标签实现数据输出1.标签的外观

【例4-3】

2.使标签适应内容

Label提供了两种属性AutoSize和WordWrap，来改变控件尺寸以适应较长或较短的标题。

【例4-4】4.3数据输出4.3.2使用对话框实现数据输出

MESSAGEBOX函数的语法格式为：[〈变量名〉]=MESSAGEBOX(〈信息内容〉[,〈对话框类型〉[〈对话框标题〉]])

以下是一些需要说明的事项。〈对话框类型〉指定对话框中出现的按钮和图标，一般有3个参数，这3个参数值可以相加以达到所需要的样式，其取值和含义见表4-3。4.3数据输出4.3.2使用对话框实现数据输出下述代码将显示图4-6所示的信息对话框：

msg=MESSAGEBOX("请确认输入的数据是否正确！",3+48+0,"数据检查")4.3数据输出4.3.2使用对话框实现数据输出

MESSAGEBOX()返回的值指明了在对话框中选择哪一个按钮，见表4-4。

【例4-5】4.4数据输入

4.4.1使用文本框通过读Value属性，能在运行时检索文本框的当前内容。若要用文本框显示不希望用户更改的文本，可以把文本框的ReadOnly属性设置为.T.，或将文本框的Enabled属性设为.F.。

【例4-6】

【例4-7】4.4数据输入

4.4.2编辑框在默认情况下，ScrollBars属性为2-垂直，编辑框具有一个垂直方向的滚动条。把ScrollBars属性设为0-无，编辑框就像一个多行的文本框，如图4-13所示。

【例4-8】4.4数据输入4.4.3焦点与〈Tab〉键序1.焦点当控件接收焦点时，会引发GotFocus事件；当控件失去焦点时，会引发LostFocus事件。可以用SetFocus方法在代码中设置焦点。例如，使得程序开始时光标（焦点）位于输入框Text1中：

THIS.Text1.SetFocus2.〈Tab〉键序

TabIndex属性决定控件接收焦点的顺序，TabStop属性则决定焦点是否能够停在该控件上。4.5形状、容器和图像控件

4.5.1形状控件形状（Shape）控件可以在表单中产生圆、椭圆以及圆角或方角的矩形。在本章中，只利用“形状”对程序的界面做一定的修饰。

【例4-9】4.5形状、容器和图像控件

4.5.2容器控件容器的封装性是指，像表单一样，可以在容器（Container）控件上面加上一些其他控件。

【例4-10】4