第6章节二级VFP演示课件.ppt

下载文档

14
0
约1.45万字
约 49页
2017-04-01 发布于北京
举报
版权申诉
保障服务

第6章节二级VFP演示课件.ppt

1、本文档共49页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

第6章节二级VFP演示课件

③ 编写代码。编写表单的Activate事件代码： PUBLIC a 变量的作用域 a = 1 THIS.Text1.SetFocus 编写Text1的KeyPress事件代码： LPARAMETERS nKeyCode, nShIFtAltCtrl IF nKeyCode = 13 IF !EMPTY(THIS.Value) THISFORM.Combo1.AddItem (THIS.Value) THISFORM.Combo1.DisplayValue = THIS.Value ENDIF THIS.SelStart = 0 THIS.SelLength = LEN(RTRIM(THIS.Text)) a = 0 ENDIF Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 编写Text1的Valid事件： IF a = 1 RETURN .T. ELSE a = 1 RETURN 0 ENDIF 编写Combo1的RightClick事件代码： IF THIS.ListIndex 0 THISFORM.Text1.Value = THIS.List(THIS.ListIndex) THIS.RemoveItem (THIS.ListIndex) THIS.Value = 1 ENDIF Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 2. 下拉组合框【例6-11】在上例中使用下拉组合框来代替文本框和列表框，实现同样的功能：输入数据，按〈Enter〉键后可添加到列表中，在列表中选定项目，单击鼠标右键可移去选定项，如图6-18所示。设计步骤如下： ① 表单界面的设计与控件属性的设置参见图6-18。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. ② 编写代码。编写Combo1的KeyPress事件代码： LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 IF !EMPTY(THIS. DisplayValue) THIS.AddItem (THIS.DisplayValue) THISFORM.Text1.Value = THIS.ListCount ENDIF THIS.SelStart = 0 THIS.SelLength = LEN(ALLT(THIS.Text)) THIS.Tag = N ENDIF RightClick事件： IF THIS.ListCount 0 THIS.RemoveItem (THIS.ListIndex) THIS.Value = 1 THISFORM.Text1.Value = THIS.ListCount ENDIF Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. Valid事件： IF THIS.Tag = Y RETURN .T. ELSE THIS.Tag = Y RETURN 0 ENDIF 【例6-12】“简易抽奖机”，在组合框中输入号码。按下“开始”按钮后，组合框中将不停变换随机得到的号码。单击“停止”按钮，号码停止变动，并得到中奖的号码，如图6-19。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 设计步骤如下： ① 表单界面的设计与控件属性的设置参见图6-19。在窗体中增加一个计时器控件Timer1，并将其Interval属性改为：50，Enabled属