visual%20foxpro技巧与实例大全

visual%20foxpro技巧与实例大全

ID:13861805

大小:258.57 KB

页数:30页

时间:2018-07-24

visual%20foxpro技巧与实例大全_第1页
visual%20foxpro技巧与实例大全_第2页
visual%20foxpro技巧与实例大全_第3页
visual%20foxpro技巧与实例大全_第4页
visual%20foxpro技巧与实例大全_第5页
资源描述:

《visual%20foxpro技巧与实例大全》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、Visual FoxPro技巧与实例大全1。TreeView控件使用示例  以下代码是本演示的全部代码,你只要把它拷贝到任一PRG文件中,执行该文件你就可以看到相应的效果。该代码段在执行后会在目录下自动生成一个Xm.dbf文件,运行后可自行删除。CLEAR ALLCLOSE ALLCLEAR PROGRAMPUBLIC TreeViewCreate_Dbf()oForm = CREATEOBJECT("TreeView")oForm.show()RETURNDEFINE CLASS TreeView AS formHeight = 258Width = 388DoCreate = 

2、.T.AutoCenter = .T.Caption = "TreeView 控件示例"MaxButton = .F.MinButton = .F.WindowType = 1BackColor = RGB(128,128,255)Name = "TreeView"Key = 0ADD OBJECT label1 AS label WITH ;BackStyle = 0, ;Caption = "", ;Height = 102, ;Left = 198, ;Top = 16, ;Width = 180, ;Name = "Label1"ADD OBJECT command1 AS

3、 commandbutton WITH ;Top = 211, ;Left = 217, ;Height = 32, ;Width = 149, ;Caption = "退出演示", ;Name = "Command1"ADD OBJECT command2 AS commandbutton WITH ;Top = 173, ;Left = 217, ;Height = 32, ;Width = 67, ;Caption = "添加节点", ;Name = "Command2"ADD OBJECT command3 AS commandbutton WITH ;Top = 173,

4、 ;Left = 299, ;Height = 32, ;Width = 67, ;Caption = "删除节点", ;Name = "Command3"ADD OBJECT tree AS olecontrol WITH ;    OLECLASS="COMCTL.TreeCtrl.1",;    Top = 0,;    Left = 0,;    Width = 182,;    Height = 258,;    HideSelection = .F.PROCEDURE InitSelect xmo = This.TreeScan  If AllTrim(Node) = 

5、'0_'    o.Nodes.Add(, 1, AllTrim(Key), AllTrim(Text))  Else    o.Nodes.Add(AllTrim(Node), 4, AllTrim(Key), AllTrim(Text))  EndIfEndScan    This.Key = o.Nodes.Count    o.SetfocusENDPROCPROCEDURE Tree.Init    This.LabelEdit = 1    This.LineStyle = 1    This.Indentation = 18ENDPROCPROCEDURE comma

6、nd1.ClickCLOSE ALLRELEASE ThisFormENDPROCPROCEDURE command2.Clicko = ThisForm.TreeIF ISNULL(o.SelectedItem)  RETURNENDIFThisForm.Key = ThisForm.Key + 1nKey = ALLTRIM(STR(ThisForm.Key)) + "_"nNode = o.SelectedItem.KeynText = "新添加节点"o.Nodes.Add(nNode, 4, nKey, nText)o.SetfocusENDPROCPROCEDURE co

7、mmand3.Clicko = ThisForm.TreeIF ISNULL(o.SelectedItem)  RETURNENDIFIp = o.SelectedItem.Indexo.Nodes.Remove(Ip)o.SetfocusENDPROCPROCEDURE Tree.NodeClickLPARAMETERS nodeIF ISNULL(This.SelectedItem)  RETURNENDIFIp = OCCURS("", Node.FullPa

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。