张志峰的博客

水滴石川,积少成多。

导航

2012年4月11日

摘要: Public Sub EditInterval_KeyPress(KeyAscii As Integer)If ((KeyAscii >= 48) And (KeyAscii <= 57)) Or (KeyAscii = 46) Or (KeyAscii = 8) Then ElseKeyAscii = 0 Exit SubEnd IfEnd SubPublic Sub EditWarning_Click()End SubPublic Sub EditWarning_KeyPress(KeyAscii As Integer)If ((KeyAscii >= 48) And ( 阅读全文

posted @ 2012-04-11 18:27 ╰★张志峰★╮ 阅读(473) 评论(0) 推荐(0) 编辑

摘要: http://wenku.baidu.com/view/a2f1d430eefdc8d376ee32dc.html 阅读全文

posted @ 2012-04-11 17:00 ╰★张志峰★╮ 阅读(409) 评论(0) 推荐(0) 编辑