象VFP8一样，VFP9的许多改进建议也是来自全球的各个VFP社区。（大大小小的建议，很难知道是谁提出了这些好建议）。不过尽管改进很多，我们也必须承认，VFP的很多方面还没被照顾到。
总的看来，VFP9带给我们的是：修补了很多BUG；弥补了一些功能的缺陷或实现了过去曾提出过的一些设想；某些功能被重写发生了翻天覆地的变化……当然，你所渴望的某些功能或许在或许不在这个版本里面，但可以确定你能从那个“What's New”文档中发现一些有价值的东西。记住，尝试测试版总要带点探险精神的。 我写这篇文章的时候，是在VFP测试版发布前的几个星期，VFP文档有些地方跟不上VFP软件的更新，这就意味着你拿到的测试版拷贝会和文档有些出入，所以很自然，尝试测试版软件总要带点探险精神的，呵呵。
如何在BROWSE窗口显示MEMO提示（移动鼠标到MEMO字段上面显示4095个字符）；如何禁止打开表对话框并返回一个错误（SET TABLEPROMPT OFF）；如何用 SET REFRESH 指定更快的刷新率；如何在 命令按钮/选项按钮/检查框 中隐藏CAPTION后还能使用热键/图像（通过设置一个新的属性PicturePosition=14-No Text）。嗯……或者我应该介绍这个？：为CURSOR对象提供的新属性 OrderDirection ，在数据环境中将它设为 升序 或 降序；工具栏纵横向改变时动态调整分隔对象；用 Listbox.AutoHideScrollBar 属性来隐藏滚动条。
VFP6.0 中文版下载：http://www.cr173.com/k/vfp/
我苦思冥想，因为我要从这个万众瞩目的VFP9.0中选出10个典型的特性来阐述。 注：因为这篇文章基于VFP9的一个早期测试版，所以有的特征可能和现在有点出入。
1、 文本框自动完成
你是否曾梦想过给文本框添加一种看起来更流行的“输入常用的单词或短语就出现一个下拉列表”的外观？通过使用 VFP 智能感知的核心引擎，VFP 开发组给了我们这样一种很酷的新功能，并且不但令人惊讶的易于使用，而且完全可以扩充。 让我们来尝试一下，将一个文本框拖放到表单上（或者打开一个有文本框的任何一个表单），将文本框新的 AutoComplete 属性设置为一个非零值，这样就搞定了！运行几次这个表单，在文本框里输入一些内容，然后就看魔术表演吧！你也可以用下面这样的代码来让表格中的文本框支持 AutoComplete: THISFORM.Grid1.Column1.Text1.AutoComplete = 1 AutoComplete 属性控制着自动完成的行为表现，可用的值如下：
※ 0 —— 不使用自动完成；
※ 1 —— 按字母顺序；
※ 2 —— 最常用的；
※ 3 —— 最近使用的；
※ 4 —— 用户自定义的加权排序（Weighted Order）；
这些选项中的最后一个需要特别注意一下。当 AutoComplete 的值在 1－3 之间的时候，自动完成的功能是系统自维护的，而用户自定义加权排序的值4则让你可以通过给 AutoComp.DBF 表中的 Weight 字段赋以一个数值型值来指定各个数据项的显示顺序（最大的 Weight值显示在下拉列表的顶部）。 默认的 AutoComp.DBF 表位于 HOME(7) 目录下（译者注：使用参数7，该函数返回用户应用程序的数据目录。），但你可以通过在全局的层次上设置 _SCREEN.AutoCompTable、或者在单个文本框的层次上设置 Text1.AutoCompTable来覆盖默认的设置。不管你在哪个属性中指定一个表，如果这个表不存在，则系统会自动为你新建一个。你可以同时拥有多个AutoComp表，而每个表也可以服务于一个或多个文本框，VFP会管理这些在一个隐藏的数据工作期内的表的打开和关闭。 在 AutoComp 表中，除非你给文本框设置了 AutoCompSource 属性，否则这个文本框的 Name 将作为决定显示哪些数据项的查询关键字，反之，则使用 AutoCompSource 属性指定的值。要想让多个文本框共享自动完成提供的值的话，只要简单的把这些文本框的 AutoCompSouce 属性设置为相同的值就可以里，例如设置为 NameAutoComp或者Cities。 通过在运行时将 AutoCompSource 动态的设置为一个代表某个用户的特定代码的字符串、或者在属性表中设置如下的代码，你甚至可以为你所在组织中的每个人启用独特的自动完成列表： = "Custs_" + LoginName 不过，如果采用了这种办法，你需要注意的是在 AutoComp 表中作为搜索关键字的 Source 字段只有 20个字符大小。当然，你可以自己建一个有着更大长度的 Source 字段的表作为 AutoComp 表，可是如果在为一个特定的文本框初次使用AutoComplete功能的时候你让 VFP 自动为你建立这个表，那么这个表中的 Source 字段的长度默认就是 20个字符。 要在测试的时候看看 AutoComp 表中发生了什么事情，你可以从 VFP 的另一个数据工作期内共享打开这个表来浏览它的内容，或者也可以在命令窗口中执行如下代码：
USE HOME(7) + "autocomp.dbf" SHARED IN 0
SELECT autocomp
BROWSE
2、 使用新的报表引擎来建立 HTML 或者 XML
** 取得一个对 HTMLListener 类的引用
DO (_reportoutput) WITH 5, olistener ** 在执行下面的命令后会关闭用户界面的返回和提示
olistener.quietmode = .T. ** 指定自己的文件名和目录
olistener.targetfilename = "c:\htmltest.htm" ** 运行一个将会引用我们已经设置好了的 listener 的报表
REPORT FROM (_samples + "solution\reports\ledger.frx") ;
OBJECT olistener ** 在浏览器中显示结果
RUN /n Explorer.exe c:\htmltest.htm 你可以用类似的途径来使用 XMLListener 以建立一个带有所有数据的 XML 文件。 注意：由于 _reportoutput 也许并非总是指向默认的 ReportOutput.app，所以，更安全的办法是从FFC基础类库中新的 _reportlistener.vcx 类库来建立 XMLListener 或者 HTMLListener 的实例，入下面的示例所示： ** 在我手里的 Beta 版需要 Set safety off
SET SAFETY OFF
LOCAL olistener
** 获得对 FFC 基础类库中的 _Reportlistener.vcx
** 类库中的 XMLListener 类的一个引用
olistener = NEWOBJECT("XMLListener", ;
HOME(0) + "ffc\_reportlistener.vcx")
** 在执行下面的命令后会关闭用户界面的返回和提示
olistener.quietmode = .T. ** 只包含数据，不带布局信息
olistener.xmlmode = 0 && 只包含数据 ** 指定自己的文件名和路径
olistener.targetfilename = "c:\xmltest.xml" ** 运行一个将会引用已经设置好了的 listener 的报表
REPORT FROM (_samples + "solution\reports\ledger.frx") ;
OBJECT olistener ** 在浏览器中显示结果
RUN /n Explorer.exe c:\xmltest.xml 当 XML 数据弹出在浏览器中的时候，注意它的 段，其中包含着许多表示报表中原有的带区的标志，例如
3、 组合多个 ReportListener 以提供多种输出
从前面的例子上再走远一点，让我们来看看你可以怎样通过组合多个 ReportListener 来实现在同一个运行中的报表上提供多种输出方案。在默认的 ReportOutput.app(以及在新的 _reportListerer.vcx FFC 基础类库中)提供的 ReportListener 的子类有一个属性叫 Successor，可以用这个属性记录下对另一个个 ReportListener 实例的引用，而个被引用的实例将被挂钩到报表生成引擎上，因而是起着主导作用的“主控 Listener”。 在下面的示例中，我通过执行 DO (_reportoutput) 两次来建立两个 listener，每次执行的时候都传递给它一个变量，以返回一个对带有正确的输出类型的Listener的对象引用，输出类型是 （_reportoutput）程序决定的。在下面的代码中，olistener 接收到一个对一个输出类型为 0 （打印输出）的 listener 的对象引用，而 olistener2 则接收到一个输出类型为4的 XMLListener对象的引用。 现在，我们有一个全局的集合（_oReportOutput）,该集合中拥有对缓存中的打印和XML两个Listener的引用，而我们则将这两个 Listener 引用为 olistener 和 olistener2。现在，为了演示从 ReportOutput.app 来取得一个 ReportListener 的引用的另一种办法，我们象这样给集合添加另一个将被放入缓存中的 HTMLListener 的实例：DO (_reportoutput) WITH 5 注意，现在我们可以通过集合引用的办法来操作 HTMLListener 的属性，象这样： _ReportOutput("5").targetfilename = "c:\htmltest2.htm" 现在剩下的活是将这三个 Listener 象链条一样的串连起来，输出类型为0的打印Listener放在链条的最前面。
这个 Listener 将是我们在使用 REPORT FROM 命令的时候放在 OBJECT 子句里面去的那个，这样一来，它就变成了一个“驱动，或者主控”listener，而它会与另外两个与它在一条链条上的 listener 进行通讯。将它们链接起来的代码是： olistener.successor = olistener2
olistener2.successor = _oReportOutput("5") 就是这样。现在，运行这个报表，从同一次运行你就会获得三种类型的输出——在默认打印机上的一个报表、一个只带着数据的 XML 文件、以及一个显示着报表的 HTML 页面。 LOCAL olistener, olistener2 * 获得一个对打印类的引用
DO (_reportoutput) WITH 0, olistener * 获得一个对 XMLListener 类的引用
DO (_reportoutput) WITH 4, olistener2 * 关闭用户界面的返回和提示
olistener2.quietmode=.T. * 只包含数据，不带布局信息
olistener2.xmlmode=0 * 指定文件名和路径，并关闭文件名提示
olistener2.targetfilename = "c:\xmltest2.xml"
olistener2.quietmode=.T. * 现在为 HTML 输出做准备，但使用另一种办法来从全局的
* _oreportoutput 集合中获得一个对listener 的引用
DO (_reportoutput) WITH 5 * 通过集合引用来设置 HTMLListener 的属性
_oReportOutput("5").targetfilename = "c:\htmltest2.htm"
_oReportOutput("5").quietmode=.T. * 把三个 listeners 象链条一样的链接在一起
* 其中，用打印 listener 作为驱动
olistener.successor = olistener2
olistener2.successor = _oReportOutput("5") * 运行一个雇员电话号码列表，引用在列表中的第一个 listener
REPORT FORM (_samples+"solution\reports\ledger.frx") ;
OBJECT olistener * 在浏览器中显示 XML 和 HTML 结果
* 并在打印机上打印报表
RUN /n Explorer.exe c:\xmltest2.xml
RUN /n Explorer.exe c:\htmltest2.htm
VFP9.0 中文汉化版下载：http://www.cr173.com/k/vfp/
4、 将报表保存为图形文件
ReportListener 的另一种很大的用途是通过在你专门的子类中覆盖 OutputPage 方法来将一个报表保存为图形文件。可以保存的图形文件格式包括 EMF、JPEG、GIF、PNG、BMP、TIFF、以及多页的 TIFF(这种格式对于用传真发送报表来说特别有用)。 注意，在这个示例的代码中，我将 ListenerType 属性设置为了2，这意味着让你自己来控制输出，每次用参数 nDeviceType = -1 调用 OutputPage 方法就打印一页，但并不将输出发送到一个打印设备。MyReportListener 有一个自定义的 OutputPage 方法，它先检查 nDeviceType 的参数是否为 -1，然后再次调用 OutputPage 方法（给方法传递一个文件名和图形文件类型），再执行一个 NODEFAULT。这个示例在生成第一页的时候建立一个 TIFF 文件，然后将其它的页添加到同一个图形文件中去。 LOCAL olistener * 建立一个 ReportListener 的实例
olistener = CREATEOBJECT("MyTiffListener")
olistener.tifffilename = "c:\tifftest.tif" * 运行一个将会引用我们设置好了的 Listener的 报表
REPORT FORM (_samples+"solution\reports\invoice.frx") ;
OBJECT olistener RANGE 1,2 * 在浏览器中显示结果
RUN /n Explorer.exe c:\tifftest.tif DEFINE CLASS MyTiffListener AS ReportListener
tifffilename = []
listenertype = 2 && 一次一页，不输出 FUNCTION OutputPage(nPageNo, eDevice, nDeviceType)
* 由于 ListenerType 指定了 "不打印输出"
* 在报表引擎调用这个方法的时候，nDeviceType 将会是 -1
* 而我们现在则捕捉这个条件，然后自己来调用
* OutputPage 方法，调用时带上文件名和图形类型参数
IF nDeviceType = -1 ;
AND NOT EMPTY(THIS.tifffilename)
IF nPageNo = 1
* 如果是第一页，则建立TIFF文件
THIS.OutputPage(nPageNo, THIS.tifffilename, 101)
ELSE
* 否则，则向 TIFF 文件添加剩下的页
* (这段代码要运行，首先 TIFF 文件必须已经存在)
THIS.OutputPage(nPageNo, THIS.tifffilename, 201)
ENDIF
* 我们已经用需要的设置调用过 OutputPage 方法了
NODEFAULT
ENDIF
ENDDEFINE
5、 使用新的超小型二进制索引
VFP9引进了一个新的索引类型---二进制索引，它可以在任何逻辑表达式中被使用。据一些测试者讲，这种新型索引的访问速度和一般索引差不多，但是它的大小比一般索引要小90％，插入记录时要快80％。
要建二进制索引标志，你要在表设计器中设置索引类型为二进制，或者在Index命令中加入关键字BINARY：
INDEX ON MyNonNullableLogicalExpression TAG MyBinary BINARY
INDEX ON DELETED() TAG DELETED BINARY
要注意的是，你建二进制索引或索引TAG的时候，不要 包含FOR子句 或 INDEX ON一个会得出NULL值的表达式。你也不能在SEEK或SET ORDER TO语句中使用二进制索引。不过你可以在优化的FILTER条件和SQL SELECT的WHERE子句中使用并得到好处。
为了配合新的二进制索引，VFP9.0在SET DELETED ON环境中优化了DELETED()。因为二进制索引已经是“位”级了，VFP可以在内存中更快地建立Rushmore，并且使用更少的局域网数据流量，从而大大提高了查询的性能。现在你可以拿几个变量和别人讨论下在索引中使用DELETED()究竟会降低还是提高性能了。
6、 用新的ICASE()函数一行搞定
当一个判断点出现在你的程序中（特别是SQL SELECT命令），你以前只能用一连串的IIF()来解决。
新的ICASE()函数可以让你建立更可靠更优雅的代码，它允许你使用包括OTHERWISE在内的100个条件。比如，在你的SQL SELECT查询中要用到一个字符串，这个字符串是根据销售员的业绩得出的一系列结果，代码如下： CREATE TABLE lineitems (custcode I, purchases N)
FOR i = 1 TO 10
INSERT INTO lineitems valueS (i,800*(i-2))
E□□□OR
SELECT li.custcode, li.purchases, ;
PADR( ;
ICASE( li.purchases <= 0, "Drag on Profits", ;
li.purchases < 500, "Bread and Butter", ;
li.purchases < 2000, "Send Gift Box", ;
li.purchases < 5000, "Take to Ballgame", ;
"Trip to Hawaii" ;
), 20) AS CustStatus ;
FROM lineitems li 我指定了4个条件组，最后的那个"Trip to Hawaii"是OTHERWISE段。而且我把返回值用空格填充到固定的20个字符，因为在SQL SELECT中有时需要这么做。另外，不管你有偶数个参数还是奇数个参数，每个CASE段的最后一个参数就是OTHERWISE的值。
7、 停靠你的表单
你现在可以用新的表单Dockable属性把停靠行为加入到你的程序中。默认的Dockable值是0，跟以前版本的行为一致。然而，如果你把Dockable设为1或2，表单的标题栏高度就会变成原来的一半，这时表单就支持停靠了（设为1表示表单已停靠）。
表单支持停靠（Dockable设为1或2）后，你可以用WINDOWS菜单的Dockable项或在表单的标题栏点击鼠标右键来切换这2种设置。当Dockable=1时，你可以将表单拖放到可停靠的位置，你也可以用以下代码实现停靠： * 1=top, 2=left, 3=right, 4=bottom
THISFORM.Dock(nPosition)
* tab-dock to another form
THISFORM.Dock(4, oFormTarget)
* tab-dock to a window
DOCK NAME oFormRef POSITION 4 WINDOW WindowName 一个已停靠的表单也可以通过WINDOWS菜单的Dockable项或在表单的标题栏点击鼠标右键来终止停靠，或用以下的代码： * set form to "supports docking, but not docked"
THISFORM.Dockable = 2
* or call the form's dock method
THISFORM.Dock(-1) 你可以运行下面的代码看看停靠的过程。这些代码建了3个表单，并设定了TOP/LEFT，然后把它们停靠到COMMAND窗口上。你可以用上面的Dock/Undock按钮来实现表单的停靠/不停靠，点击3个中任一一个表单的X按钮会关闭演示。
选中一个表单后，你可以用菜单来切换它的Dockable属性，当表单处于可停靠状态时，你可以把它拖放到屏幕上的任一个可停靠的位置。图2显示了3个可互相切换的已停靠表单。
图二：
LOCAL oform1 as Myform
oform1=CREATEOBJECT("Myform")
oform1.Caption="Customers"
oform1.lblName.Caption = "Customers"
oform1.top = 100
oform1.left = 0
LOCAL oform2 as Myform
oform2=CREATEOBJECT("Myform")
oform2.Caption="Employees"
oform2.lblName.Caption = "Employees"
oform2.top = 100
oform2.left = 325
LOCAL oform3 as Myform
oform3=CREATEOBJECT("Myform")
oform3.Caption="Invoices"
oform3.lblName.Caption = "Invoices"
oform3.top = 275
oform3.left = 0
DOCK NAME oform1 POSITION 4 WINDOW Command
DOCK NAME oform2 POSITION 4 WINDOW Command
DOCK NAME oform3 POSITION 4 WINDOW Command
oform1.show()
oform2.show()
oform3.Show()
READ EVENTS
DEFINE CLASS MyForm AS Form
Dockable = 1 && supports docking and is dockable
Height = 150
Width = 300
ADD OBJECT lblName AS MyLabel
ADD OBJECT btnUndock AS MyUndockButton
FUNCTION Destroy()
CLEAR EVENTS
ENDDEFINE DEFINE CLASS MyUndockButton AS CommandButton
Height = 25
Width = 100
Left = 180
Top = 100
Anchor = 12 && fixed distance bottom/right
Caption = "Dock/Undock"
FUNCTION Click()
IF THISFORM.Docked
THISFORM.Dock(-1)
ELSE
IF THISFORM.Dockable = 1
* error if not dockable
DOCK NAME THISFORM POSITION 4 WINDOW Command
ENDIF
ENDIF
ENDDEFINE
DEFINE CLASS MyLabel AS Label
FontSize= 18
Height = 50
Width = 150
Top = 50
Left = 75
Alignment = 2
Anchor = 240 && relative on all sides
Caption = []
FontSize = 14
FontBold = .T.
FontName = "Verdana"
ENDDEFINE
8、 使用新的数据浏览面板
VFP9增加了一个新的而且非常有用的数据浏览面板（如图3），通过这个面板，你就可以来配置一些你常用的VFP数据库、自由表以及SQL SEVER数据库.你可以很容易的找到这一项，点击[TOOLS]菜单里的[Task Pane]，然后选择[Data Explorer](也许你必须通过点击">>"按钮才能看到)。点击[Add Connection]按钮，然后指定数据源，完后就可以浏览了。右键点击每个数据库或表，在弹出菜单中包含一个[RUN QUERY]项，点击这一项会出现查询界面，这样就可以进行数据查询及浏览了。 图表3说明：
数据浏览面板显示了VFP的[Tastrade]数据库的细节信息，同时右边的查询界面部分(通过右键点击Northwind数据库可以调出)则显示了SQL SERVER数据库Northwind的查询结果。
9、 在事务处理中可以包含自由表和cursors
现在通过使用心得MAKETRANSACTABLE()函数，你可以在一个具有完善回滚能力的事务处理中包含自有表和CURSOR，运行下列代码，在每一个等待窗口后按回 键，注意事务处理在最后一步从cursor完全恢复期间的记录插入。
如果已经调用 MAKETRANSACTABLE()对表进行事务处理，那么使得这个表不被处理的唯一方法就是在所有的数据工作器中关闭并重新打开这个表，当在一个数据工作期中开始事务处理以后，这个表就会变得在所有的工作期中都可以进行处理，直到关闭。 CREATE CURSOR MyCursor (id i, name c(20))
WAIT WINDOW "Table is "+ ;
IIF(ISTRANS (),[],[not ])+"transactable. " +;
TRANSFORM(RECCOUNT())+" records."
MAKETRANSACTABLE()
BEGIN TRANSACTION
INSERT INTO MyCursor valueS (1, "Fox")
WAIT WINDOW "Table is "+ ;
IIF(ISTRANS (),[],[not ])+"transactable. " +;
TRANSFORM(RECCOUNT())+" records."
ROLLBACK
WAIT WINDOW "Table is "+ ;
IIF(ISTRANS (),[],[not ])+"transactable. " +;
TRANSFORM(RECCOUNT())+" records."
10、 为了能使用户更好的对数据类型进行控制
VFP增加了CAST()函数， 无论是作为单独的函数使用还是内嵌入SQL语句中他都可以对不同的数据类型进行转换，他很简单，这似乎难以置信，不过在应用情况下它却是非常的强大。 SELECT unit_price, ;
CAST(unit_price AS Integer) AS IntPrice, ;
CAST(unit_price AS N(12,6)) AS NumPrice ;
FROM (_samples+"tastrade\data\products")
11、 超级SYS(1037,1)
USE report1.frx
SYS(1037,1) &&自动读取report1.frx里面的打印环境
确定一下看看,**!
SYS(1037,1)的设置自动保存到report1.frx里面呢
哎,红雨的打印设置表单又白做呢
12、 在WITH … ENDWITH 和FOR EACH … OR中支持智能感应
为在WITH ... ENDWITH 和FOR EACH ... E□□□OR中支持IntelliSense，这两个命令的语法格式增加了AS Type子句，如下所示：
WITH ObjectName [AS Type [OF ClassLibrary]]
Commands
ENDWITH
FOR EACH ObjectName [AS Type [OF ClassLibrary]] IN Group
Commands
[EXIT]
[LOOP]
OR
Type 可以引用任何有效类型，包括数据类型、类类型或ProgID，如果类名称无法找到，Visual FoxPro将忽略该类名称并不显示IntelliSense。
注意：Type引用不影响运行时应用程序的实际功能，这种引用仅是为了使用IntelliSense。ObjectName 表达式可以引用一个内存变量或数组。
ClassLibrary参数指定的类库需要在可以被Visual FoxPro发现的路径中，如果指定的类库不能发现，IntelliSense不显示。
输入特定的ProgIDs和类库不需要引号围住它们，除非在名称中包含有空格。当输入了一个关键词， IntelliSense将显示一个在FoxCode (Type="T")中注册的类型列表。如果指定了一个有效类型，在WITH ... ENDWITH 或FOR EACH ... E□□□OR中输入一个圆点，将显示对于该对象的IntelliSens。
必须指定一个有效类库，对已存在对象引用则无效，例如下面的语句不支持IntelliSense：
WITH THISFORM AS APPLICATION
ENDWITH
WITH THISFORM AT THIS
ENDWITH
有效的书写方式如下：
WITH This AS Form &&在一个表单事件中书写
.Caption="标题"
ENDWITH
又如：
WITH This.Pageframe1.Page1 AS Page
.Caption="页框1"
ENDWITH
Visual FoxPro支持嵌套WITH ... ENDWITH和FOR EACH ... E□□□OR命令，下面是在一个叫Program1.prg的.prg中定义类中的嵌套WITH ... ENDWITH命令。在做这个示例前，首先需要在磁盘中保存一下Program1.prg文件，然后重新打开，可以在WITH和ENDWITH之间输入一个圆点，然后就可以看见IntelliSense，如图5所示。
DEFINE CLASS f1 AS form
MyVar1 = 123
ADD OBJECT t1 AS mytext
PROCEDURE Init
WITH THIS AS f1 OF program1.prg
WITH .t1 AS mytext OF program1.prg
ENDWITH
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS mytext as textbox
MyVar2 = 123
ENDDEFINE
13、 报表可以有多个细节区了
14、 控件的Anchor属性
Anchor属性的意思，它有0-9十种值，各自代表的意思如下：
以下是我做测试的结果：
DH:表单高度的增量
DW:表单宽度的增量
测试过程：用代码把按钮的left和top各加80，长和高各加10后，再调整表单大小，再观察按钮的位置和大小
old值
oldtop=50
oldleft=50
oldheight=27
oldwidth=84
new值
newtop=130
newleft=130
newheight=37
newwidth=94
0：NULL
1：height和top变回old值,left和width为130和94(而且在再度移动按钮位置和改变大小前，再调整表单，按钮不再受影响)
2：和1相反，是left和width变回old值，height和top为37、130(而且在再度移动按钮位置和改变大小前，再调整表单，按钮不再受影响)
3：left、top、height、width都变为原来的值
4：height为oldheight，width、left为new值，top为oldtop+DH，即保持和表单底部的距离保持在设计阶段的值
5：top为oldtop，left、width为new值，height为oldheight+DH，即表单的高度增加多少，控件的高度也增加多少
6：left、width、height均为old值，只是height为oldheight+DH，即表单的高度增加多少，控件的高度也增加多少
7：top、left、widht均为OLD值，只是height为oldheight+DH，即表单的高度增加多少，控件的高度也增加多少
8：top、height均为new值，width就为old值，left就是oldleft+DW，就是控件保持和表单右边的距离不变
9：top、height、width均为old值，left就是oldleft+DW，就是控件保持和表单右边的距离不变
注意：它的十个可用的值要加起来用的，比如，现在我有一个Listview，我要让它在表单缩放时，Top和left保持不变，右边界和底部边界跟随表单一起缩放，那么就要用到Anchor中的四个值：
1——顶部绝对，即距表单顶部的距离保持不变；
2——左边绝对，即距表单左边的距离保持不变；
4——底部绝对，即距表单底部的距离保持不变；
8——右边绝对，即距表单右边的距离保持不变；
现在，把Listview的anchor设置为15（1+2+4+8），缩放表单时Listview就跟着自动缩放了。
15、 自定义Memo编辑窗口
textbox.openwindow=.t.
textbox.memowidow="窗口名"
二个属性的意思是：
如果这个textbox是关联到一个memo字段时，双击这个控件，会自动跳到memowindow中指定的窗口中去。条件是该窗口必须事先打开。
用此功能我们可以自定义Memo编辑窗口，而不是使用默认的那个土土的。
16、 画多边形
Shape和Line控件的PolyPoint属性用来画多边形
定义一个二维数组，(x,y)代表每个顶点的x,y值，然后把数组名放进PolyPoint属性，这二个控件就会画一个多边形了，还可以使用Rotation进行旋转。但此时只能是Plain而不能是3D了。
比如：
DIMENSION poly[5,2]
poly[1,1]= 0
poly[1,2]= 50
poly[2,1]= 50
poly[2,2]= 100
poly[3,1]= 100
poly[3,2]= 50
poly[4,1]= 50
poly[4,2]= 0
poly[5,1]=0
poly[5,2]=50
这个数组就会画一个菱形
17、
18、 q
19、 q
20、 q
21、
下载 
下载 
下载 
下载 
下载 
喜欢 
顶
难过
囧
围观
无聊
