• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录

dovcn

  • 博客园
  • 联系
  • 订阅
  • 管理

公告

View Post

控件输入判断问题,VB.NET的请帮助!

  Private Sub rkd_cp_num_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rkd_cp_num.KeyDown
        If e.KeyValue = 110 Or e.KeyValue = 190 Then
            If Len(Me.rkd_cp_num.Text) = 0 Then
                Me.rkd_cp_num.Text = "0."
                Exit Sub
            End If
        End If
        If e.KeyValue > 95 And e.KeyValue < 106 Then

            Exit Sub
        End If
        If e.KeyValue > 47 And e.KeyValue < 58 Then

            Exit Sub
        End If
        rkd_cp_num.Text = ""
        rkd_cp_num.Focus()

    End Sub

在第一个字符输入小数点时 输出 .0. 是什么问题 谢谢大家!

posted on 2006-03-23 15:57  dov_cn  阅读(312)  评论(0)    收藏  举报

刷新页面返回顶部
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3