以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙: 文本框中的文本转换成拼音?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20778)
--  作者：飞天
--  发布时间：2012/6/19 14:46:00
--  帮忙: 文本框中的文本转换成拼音?

窗口中有二个控件:TextBox1  和 TextBox2

 

当TextBox1 文本改变后 TextBox2 将TextBox1 的内容转换为拼音,例如 北京=BJ

 
--  作者：don
--  发布时间：2012/6/19 16:30:00
--  
TextBox1設ValueChanged代碼:

Dim t1 as string = e.sender.Value
if  t1.sender.Value  isnot nothing then 
   e.form.Controls("TextBox2").Value = GetPY(t1, True).Touuper
End if