程序很简单。设你的大文本框是text1(0),20个小文本框是text1(1)……text1(20)
for i=1 to 20
c=mid(text1(0),i,1)
text1(i)=pinyin(c)
next i
其中pinyin是一个函数:
private function pinyin(c as string)as string
for i=0 to n
if instr(hanzi(i),c)then
pinyin=duyin(i)
exit function
endif
next i
pinyin=“”
end function
这中间涉及到数组duyin()和hanzi()需要你一一对应的提前录入好,同一序号的数组的读音和汉字对应。汉字里面可以录入所有的同音字。
for i=1 to 20
c=mid(text1(0),i,1)
text1(i)=pinyin(c)
next i
其中pinyin是一个函数:
private function pinyin(c as string)as string
for i=0 to n
if instr(hanzi(i),c)then
pinyin=duyin(i)
exit function
endif
next i
pinyin=“”
end function
这中间涉及到数组duyin()和hanzi()需要你一一对应的提前录入好,同一序号的数组的读音和汉字对应。汉字里面可以录入所有的同音字。