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

③ 编写代码。 编写表单的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属