none
如何VB6中输入德语字符"öäüß"? RRS feed

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票
    我在windows"Reginal and Language Options"里安装了德语键盘,可是还是不能在VB6的"Code Windows"里输入这些字符.

    谢谢!
    2009年2月2日 9:30
    |

答案

  • Question
    登录进行投票
    0
    登录进行投票

    这个情况我一般求助vbs
    自己建立一个a.vbs
    里面写上如下代码

    dim ch  
    ch="ö" 
    msgbox lenb(ch),0,"这个字符有多长？" 
     
    for i=1  to lenb(ch)  
    msgbox  ascb(midb(ch,i,1)) ,0,"第" & i & "位"   
    next  
     
     


    运行这个脚本　　就可以看到　在　vb chararray 里面　这个字符是什么

    然后你可以　　把这些字符位转化为　　int 

    （应该是　左1  ＋　　　左２* 256 ）

    用chr 就能得到你要的字符

    Guitar Hero IV -- Singing Rock & Roll.
    2009年2月7日 15:48
    |

全部回复

  • Question
    登录进行投票
    0
    登录进行投票

    vb6 的多语言支持做得相当的差
    当年我帮俄罗斯的部门做一个软件  不得已装了一套 俄文的vb6

    最近30天回答问题被论坛清除了 大家踊跃提问 踊跃标记正确 帮我重回top10阿~~~5555
    2009年2月2日 9:54
    |
  • Question
    登录进行投票
    0
    登录进行投票
    你用的vb6 要是中文的话  装个英文版本看看 也许就好了
    最近30天回答问题被论坛清除了 大家踊跃提问 踊跃标记正确 帮我重回top10阿~~~5555
    2009年2月2日 9:55
    |
  • Question
    登录进行投票
    0
    登录进行投票
     Reginal and Language Options--advance--language for non-unicode--German
    http://feiyun0112.cnblogs.com/
    2009年2月2日 10:28
    |
    版主
  • Question
    登录进行投票
    0
    登录进行投票
     "Reginal and Language Options"的方法我试过了,在其他文本编辑器(eg:ultraedit)下是可以输入的,但到了VB6就不行了.我想这就是韦说的"多语言支持做得相当的差"了.其实我是为了实现字符串的比较.不知有没有类似unicode码转换的函数可以变通解决一下的.谢谢大家了.
    2009年2月3日 1:31
    |
  • Question
    登录进行投票
    0
    登录进行投票

    这个情况我一般求助vbs
    自己建立一个a.vbs
    里面写上如下代码

    dim ch  
    ch="ö" 
    msgbox lenb(ch),0,"这个字符有多长？" 
     
    for i=1  to lenb(ch)  
    msgbox  ascb(midb(ch,i,1)) ,0,"第" & i & "位"   
    next  
     
     


    运行这个脚本　　就可以看到　在　vb chararray 里面　这个字符是什么

    然后你可以　　把这些字符位转化为　　int 

    （应该是　左1  ＋　　　左２* 256 ）

    用chr 就能得到你要的字符

    Guitar Hero IV -- Singing Rock & Roll.
    2009年2月7日 15:48
    |