VisualFoxPro程序设计教程刘瑞第6章课件教学.pptVIP

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 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 2. 下拉组合框 【例6-11】在上例中使用下拉组合框来代替文本框和列表框，实现同样的功能：输入数