Temptation

寻道之路 , 与您同行 !
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  321 随笔 :: 0 文章 :: 175 评论 :: 3 引用
[原] access97中textbox类似vb的maxlength功能的实现
Private Sub txt文字_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = 13) Or (KeyCode = 9) Then
        
    End If
End Sub

Private Sub txt文字_KeyPress(KeyAscii As Integer)
    If (Len(txt文字.Text) > 3) And (KeyAscii <> 8) Then
        txt文字.SetFocus
        KeyAscii = 0
    End If
End Sub
posted on 2007-10-03 23:15 temptation 阅读(84) 评论(0)  编辑 收藏 所属分类: VB 数据库开发

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2007-10-04 10:57 编辑过


相关链接:

最新IT新闻:
Silverlight 2.0正式版下周发布
Wikipedia“变心”，力挺Ubuntu
“不可破解”的加密技术出
13款Firefox Gmail扩展
支持鼠标手势的Chrome中文修改版