[转载]VF编程经验
VF编程经验
2005-12-7 (本文已被阅读1219次)
怎样制作自定义工具栏？(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
1、建立的方法
(1)建立新类别。在命令窗口中执行CREATE CLASS命令后，在新建类窗口中键入类别及类别库的名称，如下图：
（2）加入按钮对象。当进入类设计器时会发现Toolbar的窗口很小，因此你要仔细的建立按钮，如下图：
按下工具栏中的按钮，再在类设计器中的工具栏内单击鼠标左键，以加入一个按钮到该自定义工具栏中，并修改按钮的特性为：
Caption=''
Picture=Top1.bmp
如果发现图形不能完全显示，表示图形太大可以修改成小一点的图形或将按钮拉大，如果要在按钮之间加入空格，请按下按钮，并在按钮之间按下。
(3）编写按钮的事件过程。就是对每个按钮编写各自的Click过程，这与表单中按钮的Click事件建立过程一样。
(4)保存。按下Ctrl+W将该类别保存到LIBS.VCX类别库中。
2、类别的应用
此类别是一个Toolbar，而Toolbar事实上也是表格的一种，只是某些特性与表格不同，因此，如果显示数据的画面也是一个表格，便不能将其加入到数据显示表格中，因此我们要建立一个更大的对象以便同时加入表格和工具栏，此对象便是Formset。
(1)建立新表格。在命令窗口中执行：CREATE FORM
(2)建立表格集。请选定表单菜单中的创建表格集选项。
(3)建立工具栏对象。对于工具栏不是直接以视觉化方式加入到表格集中的，而是通过程序建立，在Formset的ini事件中编写如下程序：
SET CLASSLIB TO libs ADDITIVE
This.AddObject('mybar','move_rec')
This.mybar.show
This.mybar.dock(0)
关于dock()函数的说明：
值 常量 说明
- 1 TOOL_NOTDOCKED 不停放工具栏。
0 TOOL_TOP 在 Visual FoxPro 主窗口的顶部停放工具栏。
1 TOOL_LEFT 在 Visual FoxPro 主窗口的左边停放工具栏。
2 TOOL_RIGHT 在 Visual FoxPro 主窗口的右边停放工具栏。
3 TOOL_BOTTOM 在 Visual FoxPro 主窗口的底部停放工具栏。
(4)执行。在执行表单的同时工具栏会被自动打开，如下图：
启动EXE文件时如何隐藏VFP的主窗口显示？(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
用文本编辑器编辑一个CONFIG.FPW文件，写入一行“Screen=OFF”，将CONFIG.FPW保存到你的项目所在的目录，并将该文件加入到项目管理器中的其他项中，如下图：
背景音乐的实现(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
1、调用Windows的APT函数SndPlaySound播放声音文件（.WAV)。首先建立一个表单（FORM1），然后编写表单的 Activate过程： Public Sound
Set Library To Foxtool.FLL
Sound=Regfn("SndPlaySound","CI","I","Mmsystem")
=Callfn(Sound,"BACK.WAV",1)
再编写FORM1的Release过程：
=Callfn(Sound,"",10)
Set Library to
运行表单后，BACK.WAV就作为背景音乐在后台播放，关闭表单时音乐自动停止。如果想让音乐自动循环播放，将Activate过程中最后一句换为：
=Callfn(Soun,"BACK.WAV",1+8)即可。
注意：如果你的计算机没有声卡，运行以上程序时将出错。 （湖北 闫东）
2、用Set Bell To 响铃命令。编写表单的Activate过程：
Set Bell On
Set Bell To "BACK.WAV"
??CHR(7)
再编写表单的Release过程：
Set Bell To
注意：该种方法在运行时，不能进行循环播放，不能中断音乐的播放，但是在没有声卡的情况下，该种程序不会出错，只是进行PC喇叭的响铃一次。
移动字幕的制作？(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
1、首先用画图软件做一幅字幕图画。
2、建立一个表单(FORM1),单击工具栏中的计时器按钮，在表单中添加一个计时器控件(Timer1)；单击工具栏中的图象按钮，在表单中加入字幕图画(Image1)。
3、双击表单中的计时器控件，编写计时器的Timer过程：
If Thisform.image1.TOP<0-Thisform.image1.height
Thisform.image1.TOP=Thisform.height
Endif
Thisform.image1.TOP=Thisform.image1.top-1
指定计时器事件的间隔，以毫秒为单位：Interval=50
实例文件下载
进度条控件的插入?(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
1、单击表单工具栏中的OLE按钮，将出现插入对象窗口，单击插入控件单选按钮，选择Microsoft Progressbar控件。
2、设定该控件的最大值。在该控件的属性窗口中输入max的值，这样当该控件的value的值在变大时，进度条会自动进行移动。
把金额由数字变成大写的小程序（对编写财务软件非常的有用）(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
1、编写如下函数。该函数的返回值能够舍去数字之间的零，比较准确，符合会计准则，比较适合打印银行存单等。
PARA RMB
SET TALK OFF
XX=LTRIM(STR(RMB,11,2))
RMBLEN=LEN(XX)
DX='零'
C1='零壹贰叁肆伍陆柒捌玖'
C2='分角 元拾佰仟万拾佰仟'
*----------------
DO WHILE RMB>0.AND.RMBLEN>=1
DB=SUBS(XX,LEN(XX)-RMBLEN+1,1)
IF DB#'.'
DX1=SUBS(C1,VAL(DB)*2+1,2)
DX2=TRIM(SUBS(C2,(RMBLEN-1)*2+1,2))
IF DX1='零'
HZ=SUBS(DX,LEN(DX)-1,2)
IF HZ='零'
IF DX2='万'.OR.DX2='元'
DX=SUBS(DX,1,LEN(DX)-2)+DX2
ENDI
ELSE
IF DX2='万'.OR.DX2='元'
DX=SUBS(DX,1,LEN(DX))+DX2
ELSE
DX=DX+DX1
ENDIF
ENDIF
ELSE
DX=DX+DX1+DX2
ENDI
ENDIF
RMBLEN=RMBLEN-1
ENDDO
IF SUBS(DX,1,2)='元'
DX=SUBS(DX,3,LEN(DX)-2)
ENDI
IF SUBS(DX,1,2)='零'
DX=+SUBS(DX,3,LEN(DX)-2)
ENDI
IF SUBS(DX,LEN(DX)-1,2)='零'
DX=SUBS(DX,1,LEN(DX)-2)+'整'
ENDI
SET TALK ON
RETU DX
2、编写如下函数。该函数的返回值比较适合于一些单据的填空式打印，如增值税发票等。
para rmb
nDzs=strt(allt(str(rmb,15,2)),".","") &&把小数点去掉
hzdx="零壹贰叁肆伍陆柒捌玖"
nDW="分角元拾佰仟万拾佰仟亿拾佰仟"
rmbdx=""
nCd=len(nDzs)
for i=1 to len(nDzs)
NumS=substrc(hzdx,int(val(subs(nDzs,i,1))+1),1) && 数字转换
nDWs=substrc(nDW,nCd,1) &&----------要单位，如果不要单位可将此句改为：nDWs=spac(2)
rmbdx=rmbdx+NumS+nDwS
nCd=nCd-1
endfor
retu rmbdx
Visual FoxPro FAQ(注：对于摘自其他地方的编程经验，我们将注明出处及作者）
Visual Foxpro FAQ译作稿
以下的内容由四川的网友江明汉译自 Scot Becker 所作的Visual FoxPro FAQ，本译稿去掉了一些与技术关系不大的内容及VFP3.0 的内容。
问题1: 怎样从表单返加一个值？
答案1: 可以在模式表单的unload事件中用Return来返回一个值。
问题2: 怎样在表单设计器中把属性或方法添加到表单中？
答案2: 用表单设计器窗口或属性/事件/激活的方法窗口，从菜单中选择表
单。最初的两个选择是新属性和新方法。选择你想要加入的一个并填写属性
或方法的名称，新建的属性将出现在属性窗口的最底部。
问题3: 我把的工具条或设计窗口移出了屏幕，怎样把它移回来？
答案3: 工具条或窗口的位置保存在VFP主目录下的FOXUSER.DBF表中。如果
删除或修改该文件，你的工具条和窗口将恢复他们的默认位置或你指定的位置。
或从系统菜单的窗口菜单中选择重新安排全部。
问题4: 当从Valid事件返回.F.值时，如何避免'无效的的用户输入了'信息?
答案4: 用 0来替换.F.
当你从Valid事件返回数值时，也就是在设置可取得焦点的控件的Tab Order。
问题5: 模式表单和非模式表单的区别是什么？
答案5: 模式表单一般地被用来处理错误报告，或者请求用户确认操作等。
在模式表单中，菜单不能使用。如果需要，模式表单也提供应用'等待状态'。
非模式表单提供更多的灵活性,它允许用户通过菜单操作，在表单中移动。
问题6: 为什么编译后的程序运行时，屏幕一闪就退出了，为什么？
答案6: 你需要在你的程序中建立'等待状态'。可以用READ EVENTS命令来建
立等待状态。要清除等待状态，可使用CLEAR EVENTS命令。如果你只有一个屏
幕，把表单的WindowState属性设置为Modal。这也提供等待状态，但是不允许
你使用菜单。当模式表单被释放时，等待状态结束并返回至操作系统。
问题7: 为什么当我建立表单时，我用SET命令设置的环境变量返回到了它们的默认值。
答案7: 这是由于你的表单的数据会话期设置为私有数据工作期。很多"SET"
命令仅对当前数据工作期有效。当你拥有私有数据工作期时，你必须再次确立
那些设置值。要达到这一目的，你可以建立一个用于环境设置的类。在表单的
INIT事件中设置你的环境值而在表单的DESTROY事件中恢复其原始值。
问题8: 我在pageframe中的一个页中改变了记录指针，但我转到其他的页时，
其他的页中的数据仍然是原记录的值。为什么？
答案8: 你需要在你的每一页Activate()中放置代码来确信显示当前记录值。
如果你在某处执行了THISFORM.Refresh()命令，VFP仅刷新PageFrame的当前页
面上的内容。试着在每个页(Page)的Activate()中调用THIS.Refresh()。
问题9: 当我运行表单时，它什么也不显示。表单本身是显示了，但其中的任何对象都不可见。
答案9: 试着把LockScreen属性设置为.F.。
问题10: 表单上有一对象，但我看不见它，我怎样选择并修改它？
答案10: 打开属性窗口,该窗口中有一下拉列表，你可从中选择你想编辑的对象。
一但你想编辑的对象在下拉列表中高亮显示，你就可以修改该对象。要在表单设
计器中用鼠标调整它（或实际看到该对象），从菜单中选择"格式",然后选择"带到前面"。
问题11: 我怎样把一个类从一个类库复制到另一类库中？
答案11: 在专业版中，你可以两次打开类浏览器，从第二个类浏览器中类
型下拉列表框中拖动类的图标到第二个类浏览器中。确信拖动它到另一个类
浏览器的表单区中。你可以看到一个复制光标（带箭头的加号）。如果你是
使用项目管理器且在项目中有两个类库，你可以从一个类库中拖动一个类到
另一个类库中。但若目标类库中已有相同名字的类存在，则操作不会成功。
也可用VFP 命令来完成这一任务：
ADD CLASS MyTextBox OF MYLIB1.VCX TO MYLIB2.VCX.
如果MyLib2里有另一个同名的类，操作也不会成功。但若在命令后加OVERWRITE子句，原有的类将被代替。
问题12: 怎样能不使用属性窗口而进入容器？
答案12: 在对象上单击鼠标右键。从弹出菜单中选择"编辑"。如果你是在
网格上操作，你必须选择对象所在的列并使用属性窗口来选你想编辑的特定
的目的。如果你想选择header类或列的其他的目的，你必须使用属性窗口。
问题13: 如何把数组作为参数传递给表单？
答案13: 在FoxPro中，数组必须按址传递。SET UDFPARMS决定参数的传递方
式。在默认情况下，当你用DO...WITH调用过程或表单时，参数是按址传递。
在函数或方法中，参数是按值传递。
DIMENSION array[10]
DO FORM Form1 WITH array
在这种情况下，你必须用一个"@"符号强迫参数的传递为按址传递。
DIMENSION array[10]
MyForm = CREATEOBJECT("Form1", @myarray)
问题14: 如何在应用程序中避免出现VFP的窗口标题？
答案14: 在CONFIG.FPW文件中，加"TITLE = 你的标题"行。
另外， 也可以在主程序中加入：
_SCREEN.Caption="你的标题"
问题15: 如何避免VFP的欢迎屏幕？
答案15: 在你的快捷方式或图标的程序行中，在VFP.EXE后面加"-T"（ 不要引号）。
问题16: 在Win95中，所有窗口左上角的图标全部是Fox。我能代替它吗？
答案16: 在你的开始程序，加入：
_Screen.Icon="Vitus.ICO"
在你的表单的Load事件中，加入：
THISFORM.Icon ="Vitus.ICO"
或者在表单设计器的属性窗口中设置它的值。
问题17: 我怎样除掉表单标题条？
答案17: 把表单的Caption属性设置为任意串
把表单的MaxButton属性设置为.F.
把表单的MinButton属性设置为.F.
把表单的Movable属性设置为.F.
在表单的INIT中写入
THIS.CAPTION=''
问题18: 事件的触发顺序是怎样的？
答案18: 在帮助文件中查看 "VFP事件序列"。
另外，在VFPSAMPLESCONTROLSEVENTS目录中，有一个名为EVENTS.APP的
程序演示了不同对象的事件的触发顺序。
问题19: 我怎样检查变量是否存在？
答案19: 使用TYPE()函数来检查一个变量是否存在。
IF TYPE("Var") = .t.
MessageBox("It exists",0,"")
ENDIF
或你可以检查是否TYPE("Var")="U"，若是，则变量不存在。
问题20: VFP的表的最大容量是多少?
答案20: 2 GB，且在将来版本中该限制可能被取消。
