第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 编写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) T