答案:Private Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = Chr(Asc(Text1) - 1) Label2.Caption = Chr(Asc(text1) + 1) End Sub
其他:我有vf 是破解的 全是1 全是1 1111 111111
上一个:求助:foxpro批量替换问题下一个:Visual Foxpro如何制作管理信息系统的用户界面