| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]汉字转换成拼音首字母 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40942) |
| -- 作者：hzcaqjf -- 发布时间：2013/10/7 10:46:00 -- [求助]汉字转换成拼音首字母 在菜单的配置栏中有一个"文本框1" 为了在"文本框1"中输入汉字能即时翻译成拼音首字母. 在textchanged事件中编写了下面代码: Dim t As String = ConfigBar.Items("文本框1").text If t IsNot Nothing Then ConfigBar.Items("文本框1").text = GetPY(t, True).ToUpper ConfigBar.Items("文本框1").SelectionStart = ConfigBar.Items("文本框1").text.length End If 提示"SelectionStart"错误. 于是把该句代码换成Sendkeys.Send("{End}")后,对于单个汉字没问题,但是单字+词组就不行,字母顺序颠倒混乱. 请问有好的方法吗?
|
| -- 作者：tlliqi -- 发布时间：2013/10/7 10:47:00 -- 关注一下 |