汉字笔画数查询vb源码.doc

《汉字笔画数查询vb源码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途一共三个文件:1汉字笔画．ｖbｐ2　　Form1.frｍ3　dａt.ｔxt汉字笔画．vbpＴｙpe＝ＥxｅForm=Forｍ１.frmRｅｆｅrｅｎｃe=*＼Ｇ{000204３0-0000-000０-C０00－0００0０000０0４６}#２.0#０#．．＼..＼....windoｗｓ＼systｅm32stdole2.tlb#ＯLＥAｕtｏmationＩconFｏrm=＂Form1"Sｔarｔup="Ｆoｒm1"Commanｄ32=""Nａme=＂工程1＂HｅｌpContextID＝"０＂Ｃomｐatibｌe

2、Ｍｏde="0"ＭajoｒVer＝1ＭinｏrＶer=0ReｖiｓiｏnVer=０AｕｔoIncremeｎtＶer=0SｅrvｅrSupportＦiles=0VｅrsionＣoｍｐａnyＮame＝"jmｓｙｚ"CoｍpｉlatiｏnType=０ＯｐtimiｚatioｎType=0ＦavoｒＰeｎtｉumPro(tm)=0CｏdeＶiewＤｅbugInfo=0NｏAliasｉｎg=0BouｎｄsCheck=０ＯｖerflｏwChｅｃｋ＝0FlPｏintCheck=0FDIＶCheck=0ＵnroｕｎｄｅdＦＰ=０ＳtartMode=０Un

3、attｅｎded＝0Ｒetaｉned＝0ＴhreadPerObject=0MaxNuｍｂｅｒOfＴhreads=1[MS　TｒansactioｎSerｖｅr］AｕtoRefｒｅsh=1个人收集整理勿做商业用途Form1.fｒmVERＳION５.０0BeｇｉｎＶB.ＦormFoｒm１BordｅrStyle　　＝１'ＦiｘｅdＳinｇlｅＣaption=＂Ｆorm1＂ClｉentＨeight　＝　4455CｌienｔLｅfｔ＝　４5ＣlienｔTop　=3３0ＣlientWidtｈ　　＝　　8５80　　LinkToｐｉc　="Foｒm1"M

4、ａxBuｔｔｏn　　　　＝　　０'False　　MiｎＢuｔtｏｎ＝　　0'Fａlse　ＳｃaｌeHeight　=4４５５　　ScaleWidth　=　８580SｔartUｐPosition＝3　'窗口缺省　BｅginVＢ．ListBｏxLiｓt1　Heｉｇht　　　＝3120　　Ｌｅft　　　　=　0　　TaｂＩndex　　＝　2　　　　Top　　　　=　　132０　Width　　　＝　8５35　　EnｄＢeｇiｎ　VB.ＣomｍandButtonCｏmｍａｎd1　　Ｃapｔｉon　　="汉字笔画数查询＂Ｈeｉghｔ　　　　=　495

5、　　Leｆt　=0ＴabIndｅx　　　＝　　１　Ｔop　　　=　7２0　　　Widｔｈ　　　　　＝８535End　Begiｎ　VB.TexｔＢoxText1　　　BegｉnＰroｐerｔyFont　　　Name　　=　＂宋体"　　Size　　　=　15．75　　Ｃhaｒsｅt　　＝　　134　　　　Weｉght　＝400　　Underlｉｎe　　=　0　'Faｌse　　Itａliｃ　　=０　'Ｆalｓe　　Striｋethrough　=　　0　＇Faｌｓe　　EndPropｅrｔy　Heigｈt　　　＝6１5　Leｆt　　　=0　　T

6、abIndex　　=　0　　Ｔext　=　"汉字笔画数＂个人收集整理勿做商业用途　　Top　　=0　Width　=　85３5　　　EndEnｄAttributeVB_Name　＝　"Fｏrm１"AｔtｒibｕtｅVB＿ＧlobalNameＳpａce=FalseＡttributeＶB_Crｅatablｅ　＝ＦaｌｓeAttｒiｂutｅVB_ＰredeclaｒｅdId＝　ＴrｕeAｔtribｕteVB_Ｅxpｏｓed　=FaｌsePrｉvate　SubＣomｍａnd1＿Clｉck()List1.ＣｌearDimｃAs　StrinｇFori　

7、=１ToLen(Ｔext1.Texｔ)c　=Ｍid（Trim(Teｘt1.Tｅxt),　ｉ,1)IfＡｓcW(c)<408７0AndAｓｃW(c)>19967TｈeｎＬist1.AddIｔem　c&＂="&　cx（c）EndIfＮextCaptioｎ　＝"查询完毕＂＆TｉmeEndSubPriｖateFunctioncx(s　AsStrｉng)　AsＩntｅgｅrｉ　=１OｎErrｏr　RｅｓｕｍeNextOpｅnAｐp.Path&"＼dａt．txt＂FoｒInputAs　#1ＤoＷhileNotEOF(1)LｉｎｅInput　#1,ｓ

8、tr1i　=　ｉ+　1Iｆ　InStｒ(1,stｒ1,　s）＞０　ThｅnIｆi　Mod2=1　Thencx＝　Iｎｔ(i/2)Ｃlose　＃１ExｉｔFｕncｔiｏnＥｎdIfEndIｆLoｏｐClose