以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不允许输入中文  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82664)
--  作者：kao_go
--  发布时间：2016/3/22 15:01:00
--  不允许输入中文
怎么在代码里设置窗口表（sqltable表）中列，不允许输入中文
--  作者：大红袍
--  发布时间：2016/3/22 15:06:00
--  

 你在ValidateEdit事件处理

 

Dim str As String = e.text
Dim reg As new System.Text.RegularExpressions.Regex("[\\u4e00-\\u9fa5]+")
If reg.Ismatch(str) Then
    msgbox("有中文")
    e.cancel = True
End If
--  作者：kao_go
--  发布时间：2016/3/22 15:07:00
--  
或者用代码设置掩码
--  作者：kao_go
--  发布时间：2016/3/22 15:09:00
--  
可以像设置列属性那样，直接关闭中文输入法吗?
--  作者：大红袍
--  发布时间：2016/3/22 15:57:00
--  

你可以用代码切换输入法

 

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    output.show(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang
        Exit For
    End If
Next

msgbox("切换到搜狗输入法成功")
--  作者：kao_go
--  发布时间：2016/3/22 17:12:00
--  
谢谢老师