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

  • 问题

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

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

答案

  • 这个情况我一般求助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  +   左2* 256 )

    用chr 就能得到你要的字符


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

全部回复

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


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

    用chr 就能得到你要的字符


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