VB汉字转拼音以及getset用法.docx

VB汉字转拼音以及getset用法.docx

《VB汉字转拼音以及getset用法.docx》由会员分享，可在线阅读，更多相关《VB汉字转拼音以及getset用法.docx（21页珍藏版）》请在冰点文库上搜索。

VB汉字转拼音以及getset用法

VB.NET汉字转拼音，get、set理解

效果如下：

，可根据需求可以自己改！

学习用getset给属性赋值，网上找了个汉语转拼音的代码，加工下。

还有个是求和！

简单的例子。

直接上代码：

程序代码：

ClassMainWindow

PrivateSubbutton1_Click（senderAsObject,eAsRoutedEventArgs）Handlesbutton1.Click

DimzhAsNeweg_setget

zh.chinese=ch.Text

abc.Text=zh.pin

EndSub

PrivateSubbutton2_Click（senderAsObject,eAsRoutedEventArgs）Handlesbutton2.Click

DimsumABAsNeweg_setget

sumAB.int1=int1.Text

sumAB.int2=int2.Text

intsum.Text=sumAB.intsum

EndSub

EndClass

‘定义汉字转拼音类

PublicClassHtoP

PrivatehAsString

PrivatepAsString

PublicPropertyhtop（）AsString

Get

Returnp

EndGet

Set（valueAsString）

h=value

p=Getpy（h）

EndSet

EndProperty

PublicPropertypin（）AsString

Get

Returnp

EndGet

Set（valueAsString）

p=value

EndSet

EndProperty

‘汉字转拼音函数

PrivateFunctionGetpy（Txt）

Dimd,TmpTxt

Dimwzcode,i,TmpWZ,a,b,ii

d=CreateObject（"Scripting.Dictionary"）

d.Add（"a",-20319）

d.Add（"ai",-20317）

d.Add（"an",-20304）

d.Add（"ang",-20295）

d.Add（"ao",-20292）

d.Add（"ba",-20283）

d.Add（"bai",-20265）

d.Add（"ban",-20257）

d.Add（"bang",-20242）

d.Add（"bao",-20230）

d.Add（"bei",-20051）

d.Add（"ben",-20036）

d.Add（"beng",-20032）

d.Add（"bi",-20026）

d.Add（"bian",-20002）

d.Add（"biao",-19990）

d.Add（"bie",-19986）

d.Add（"bin",-19982）

d.Add（"bing",-19976）

d.Add（"bo",-19805）

d.Add（"bu",-19784）

d.Add（"ca",-19775）

d.Add（"cai",-19774）

d.Add（"can",-19763）

d.Add（"cang",-19756）

d.Add（"cao",-19751）

d.Add（"ce",-19746）

d.Add（"ceng",-19741）

d.Add（"cha",-19739）

d.Add（"chai",-19728）

d.Add（"chan",-19725）

d.Add（"chang",-19715）

d.Add（"chao",-19540）

d.Add（"che",-19531）

d.Add（"chen",-19525）

d.Add（"cheng",-19515）

d.Add（"chi",-19500）

d.Add（"chong",-19484）

d.Add（"chou",-19479）

d.Add（"chu",-19467）

d.Add（"chuai",-19289）

d.Add（"chuan",-19288）

d.Add（"chuang",-19281）

d.Add（"chui",-19275）

d.Add（"chun",-19270）

d.Add（"chuo",-19263）

d.Add（"ci",-19261）

d.Add（"cong",-19249）

d.Add（"cou",-19243）

d.Add（"cu",-19242）

d.Add（"cuan",-19238）

d.Add（"cui",-19235）

d.Add（"cun",-19227）

d.Add（"cuo",-19224）

d.Add（"da",-19218）

d.Add（"dai",-19212）

d.Add（"dan",-19038）

d.Add（"dang",-19023）

d.Add（"dao",-19018）

d.Add（"de",-19006）

d.Add（"deng",-19003）

d.Add（"di",-18996）

d.Add（"dian",-18977）

d.Add（"diao",-18961）

d.Add（"die",-18952）

d.Add（"ding",-18783）

d.Add（"diu",-18774）

d.Add（"dong",-18773）

d.Add（"dou",-18763）

d.Add（"du",-18756）

d.Add（"duan",-18741）

d.Add（"dui",-18735）

d.Add（"dun",-18731）

d.Add（"duo",-18722）

d.Add（"e",-18710）

d.Add（"en",-18697）

d.Add（"er",-18696）

d.Add（"fa",-18526）

d.Add（"fan",-18518）

d.Add（"fang",-18501）

d.Add（"fei",-18490）

d.Add（"fen",-18478）

d.Add（"feng",-18463）

d.Add（"fo",-18448）

d.Add（"fou",-18447）

d.Add（"fu",-18446）

d.Add（"ga",-18239）

d.Add（"gai",-18237）

d.Add（"gan",-18231）

d.Add（"gang",-18220）

d.Add（"gao",-18211）

d.Add（"ge",-18201）

d.Add（"gei",-18184）

d.Add（"gen",-18183）

d.Add（"geng",-18181）

d.Add（"gong",-18012）

d.Add（"gou",-17997）

d.Add（"gu",-17988）

d.Add（"gua",-17970）

d.Add（"guai",-17964）

d.Add（"guan",-17961）

d.Add（"guang",-17950）

d.Add（"gui",-17947）

d.Add（"gun",-17931）

d.Add（"guo",-17928）

d.Add（"ha",-17922）

d.Add（"hai",-17759）

d.Add（"han",-17752）

d.Add（"hang",-17733）

d.Add（"hao",-17730）

d.Add（"he",-17721）

d.Add（"hei",-17703）

d.Add（"hen",-17701）

d.Add（"heng",-17697）

d.Add（"hong",-17692）

d.Add（"hou",-17683）

d.Add（"hu",-17676）

d.Add（"hua",-17496）

d.Add（"huai",-17487）

d.Add（"huan",-17482）

d.Add（"huang",-17468）

d.Add（"hui",-17454）

d.Add（"hun",-17433）

d.Add（"huo",-17427）

d.Add（"ji",-17417）

d.Add（"jia",-17202）

d.Add（"jian",-17185）

d.Add（"jiang",-16983）

d.Add（"jiao",-16970）

d.Add（"jie",-16942）

d.Add（"jin",-16915）

d.Add（"jing",-16733）

d.Add（"jiong",-16708）

d.Add（"jiu",-16706）

d.Add（"ju",-16689）

d.Add（"juan",-16664）

d.Add（"jue",-16657）

d.Add（"jun",-16647）

d.Add（"ka",-16474）

d.Add（"kai",-16470）

d.Add（"kan",-16465）

d.Add（"kang",-16459）

d.Add（"kao",-16452）

d.Add（"ke",-16448）

d.Add（"ken",-16433）

d.Add（"keng",-16429）

d.Add（"kong",-16427）

d.Add（"kou",-16423）

d.Add（"ku",-16419）

d.Add（"kua",-16412）

d.Add（"kuai",-16407）

d.Add（"kuan",-16403）

d.Add（"kuang",-16401）

d.Add（"kui",-16393）

d.Add（"kun",-16220）

d.Add（"kuo",-16216）

d.Add（"la",-16212）

d.Add（"lai",-16205）

d.Add（"lan",-16202）

d.Add（"lang",-16187）

d.Add（"lao",-16180）

d.Add（"le",-16171）

d.Add（"lei",-16169）

d.Add（"leng",-16158）

d.Add（"li",-16155）

d.Add（"lia",-15959）

d.Add（"lian",-15958）

d.Add（"liang",-15944）

d.Add（"liao",-15933）

d.Add（"lie",-15920）

d.Add（"lin",-15915）

d.Add（"ling",-15903）

d.Add（"liu",-15889）

d.Add（"long",-15878）

d.Add（"lou",-15707）

d.Add（"lu",-15701）

d.Add（"lv",-15681）

d.Add（"luan",-15667）

d.Add（"lue",-15661）

d.Add（"lun",-15659）

d.Add（"luo",-15652）

d.Add（"ma",-15640）

d.Add（"mai",-15631）

d.Add（"man",-15625）

d.Add（"mang",-15454）

d.Add（"mao",-15448）

d.Add（"me",-15436）

d.Add（"mei",-15435）

d.Add（"men",-15419）

d.Add（"meng",-15416）

d.Add（"mi",-15408）

d.Add（"mian",-15394）

d.Add（"miao",-15385）

d.Add（"mie",-15377）

d.Add（"min",-15375）

d.Add（"ming",-15369）

d.Add（"miu",-15363）

d.Add（"mo",-15362）

d.Add（"mou",-15183）

d.Add（"mu",-15180）

d.Add（"na",-15165）

d.Add（"nai",-15158）

d.Add（"nan",-15153）

d.Add（"nang",-15150）

d.Add（"nao",-15149）

d.Add（"ne",-15144）

d.Add（"nei",-15143）

d.Add（"nen",-15141）

d.Add（"neng",-15140）

d.Add（"ni",-15139）

d.Add（"nian",-15128）

d.Add（"niang",-15121）

d.Add（"niao",-15119）

d.Add（"nie",-15117）

d.Add（"nin",-15110）

d.Add（"ning",-15109）

d.Add（"niu",-14941）

d.Add（"nong",-14937）

d.Add（"nu",-14933）

d.Add（"nv",-14930）

d.Add（"nuan",-14929）

d.Add（"nue",-14928）

d.Add（"nuo",-14926）

d.Add（"o",-14922）

d.Add（"ou",-14921）

d.Add（"pa",-14914）

d.Add（"pai",-14908）

d.Add（"pan",-14902）

d.Add（"pang",-14894）

d.Add（"pao",-14889）

d.Add（"pei",-14882）

d.Add（"pen",-14873）

d.Add（"peng",-14871）

d.Add（"pi",-14857）

d.Add（"pian",-14678）

d.Add（"piao",-14674）

d.Add（"pie",-14670）

d.Add（"pin",-14668）

d.Add（"ping",-14663）

d.Add（"po",-14654）

d.Add（"pu",-14645）

d.Add（"qi",-14630）

d.Add（"qia",-14594）

d.Add（"qian",-14429）

d.Add（"qiang",-14407）

d.Add（"qiao",-14399）

d.Add（"qie",-14384）

d.Add（"qin",-14379）

d.Add（"qing",-14368）

d.Add（"qiong",-14355）

d.Add（"qiu",-14353）

d.Add（"qu",-14345）

d.Add（"quan",-14170）

d.Add（"que",-14159）

d.Add（"qun",-14151）

d.Add（"ran",-14149）

d.Add（"rang",-14145）

d.Add（"rao",-14140）

d.Add（"re",-14137）

d.Add（"ren",-14135）

d.Add（"reng",-14125）

d.Add（"ri",-14123）

d.Add（"rong",-14122）

d.Add（"rou",-14112）

d.Add（"ru",-14109）

d.Add（"ruan",-14099）

d.Add（"rui",-14097）

d.Add（"run",-14094）

d.Add（"ruo",-14092）

d.Add（"sa",-14090）

d.Add（"sai",-14087）

d.Add（"san",-14083）

d.Add（"sang",-13917）

d.Add（"sao",-13914）

d.Add（"se",-13910）

d.Add（"sen",-13907）

d.Add（"seng",-13906）

d.Add（"sha",-13905）

d.Add（"shai",-13896）

d.Add（"shan",-13894）

d.Add（"shang",-13878）

d.Add（"shao",-13870）

d.Add（"she",-13859）

d.Add（"shen",-13847）

d.Add（"sheng",-13831）

d.Add（"shi",-13658）

d.Add（"shou",-13611）

d.Add（"shu",-13601）

d.Add（"shua",-13406）

d.Add（"shuai",-13404）

d.Add（"shuan",-13400）

d.Add（"shuang",-13398）

d.Add（"shui",-13395）

d.Add（"shun",-13391）

d.Add（"shuo",-13387）

d.Add（"si",-13383）

d.Add（"song",-13367）

d.Add（"sou",-13359）

d.Add（"su",-13356）

d.Add（"suan",-13343）

d.Add（"sui",-13340）

d.Add（"sun",-13329）

d.Add（"suo",-13326）

d.Add（"ta",-13318）

d.Add（"tai",-13147）

d.Add（"tan",-13138）

d.Add（"tang",-13120）

d.Add（"tao",-13107）

d.Add（"te",-13096）

d.Add（"teng",-13095）

d.Add（"ti",-13091）

d.Add（"tian",-13076）

d.Add（"tiao",-13068）

d.Add（"tie",-13063）

d.Add（"ting",-13060）

d.Add（"tong",-12888）

d.Add（"tou",-12875）

d.Add（"tu",-12871）

d.Add（"tuan",-12860）

d.Add（"tui",-12858）

d.Add（"tun",-12852）

d.Add（"tuo",-12849）

d.Add（"wa",-12838）

d.Add（"wai",-12831）

d.Add（"wan",-12829）

d.Add（"wang",-12812）

d.Add（"wei",-12802）

d.Add（"wen",-12607）

d.Add（"weng",-12597）

d.Add（"wo",-12594）

d.Add（"wu",-12585）

d.Add（"xi",-12556）

d.Add（"xia",-12359）

d.Add（"xian",-12346）

d.Add（"xiang",-12320）

d.Add（"xiao",-12300）

d.Add（"xie",-12120）

d.Add（"xin",-12099）

d.Add（"xing",-12089）

d.Add（"xiong",-12074）

d.Add（"xiu",-12067）

d.Add（"xu",-12058）

d.Add（"xuan",-12039）

d.Add（"xue",-11867）

d.Add（"xun",-11861）

d.Add（"ya",-11847）

d.Add（"yan",-11831）

d.Add（"yang",-11798）

d.Add（"yao",-11781）

d.Add（"ye",-11604）

d.Add（"yi",-11589）

d.Add（"yin",-11536）

d.Add（"ying",-11358）

d.Add（"yo",-11340）

d.Add（"yong",-11339）

d.Add（"you",-11324）

d.Add（"yu",-11303）

d.Add（"yuan",-11097）

d.Add（"yue",-11077）

d.Add（"yun",-11067）

d.Add（"za",-11055）

d.Add（"zai",-11052）

d.Add（"zan",-11045）

d.Add（"zang",-11041）

d.Add（"zao",-11038）

d.Add（"ze",-11024）

d.Add（"zei",-11020）

d.Add（"zen",-11019）

d.Add（"zeng",-11018）

d.Add（"zha",-11014）

d.Add（"zhai",-10838）

d.Add（"zhan",-10832）

d.Add（"zhang",-10815）

d.Add（"zhao",-10800）

d.Add（"zhe",-10790）

d.Add（"zhen",-10780）

d.Add（"zheng",-10764）

d.Add（"zhi",-10587）

d.Add（"zhong",-10544）

d.Add（"zhou",-10533）

d.Add（"zhu",-10519）

d.Add（"zhua",-10331）

d.Add（"zhuai",-10329）

d.Add（"zhuan",-10328）

d.Add（"zhuang",-10322）

d.Add（"zhui",-10315）

d.Add（"zhun",-10309）

d.Add（"zhuo",-10307）

d.Add（"zi",-10296）

d.Add（"zong",-10281）

d.Add（"zou",-10274）

d.Add（"zu",-10270）

d.Add（"zuan",-10262）

d.Add（"zui",-10260）

d.Add（"zun",-10256）

d.Add（"zuo",-10254）

TmpTxt=""

Fori=1ToLen（Txt）

wzcode=Asc（Mid（Txt,i,1））

Ifwzcode>0Andwzcode<160Then

TmpWZ=Chr（wzcode）

Else

Ifwzcode<-20319Orwzcode>-10247Then

TmpWZ=""

Else

a=d.Items

b=d.keys