以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  全角字符怎么转半角  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=660)
--  作者：jimmylzt
--  发布时间：2008/9/22 16:30:00
--  全角字符怎么转半角
请问怎样才能把输入的全角字符自动转半角？
[此贴子已经被作者于2008-9-22 16:41:39编辑过]
--  作者：czy
--  发布时间：2008/9/22 16:34:00
--  
现在在代码编辑器中已经自动转换了。
--  作者：jimmylzt
--  发布时间：2008/9/22 16:42:00
--  
我是要在输入内容时候自动转换，因为我同事整天用全角来输入数字，例如金钱什么的，我要统一！！
--  作者：jimmylzt
--  发布时间：2008/9/22 16:45:00
--  
If e.Col.Name = "产品" Then
    If e.Text = "tv" Then
        e.Text = "电视机"
    ElseIf e.Text = "tel"
        e.Text = "电话机"
    End If
End If


用这个不行...

[此贴子已经被作者于2008-9-22 16:45:28编辑过]
--  作者：贺老六
--  发布时间：2008/9/22 16:56:00
--  
以下是引用jimmylzt在2008-9-22 16:45:00的发言：
是要在输入内容时候自动转换，因为我同事整天用全角来输入数字，例如金钱什么的，我要统一！！


什么意思，不明白啊。
如果是数值列，根本就不能输入全角

[此贴子已经被作者于2008-9-22 16:56:36编辑过]
--  作者：jimmylzt
--  发布时间：2008/9/22 17:21:00
--  
例如我要输入一个尺寸，列的属性时char

但是他会输入１２*１２，但是我要的是12*12
--  作者：贺老六
--  发布时间：2008/9/22 17:34:00
--  

呵呵，好办，我公开全角转半角的函数即可。
--  作者：jimmylzt
--  发布时间：2008/9/22 17:49:00
--  
函数是什么？
--  作者：贺老六
--  发布时间：2008/9/22 18:08:00
--  
下面的语句，将全角转换为半角。

StrConv("１２３", VbStrConv.Narrow, 0)

"１２３"是要转换的内容。
--  作者：jimmylzt
--  发布时间：2008/9/22 18:34:00
--  
貌似不行噢～