求一个VB小程序代码。

微信公开课小程序热门讨论「求一个VB小程序代码。」最新回复-以下代码按你的界面写的，第一个界面按你控件顺序；第二个界面两个控件数组，编号从上往下从左到右递增，下边代码也有注释。二函数FunctionUTF8EncodeURI(szInput)转UTF8Dimwch,uch,szRet,xDimnAsc,nAsc2,nAsc3IfszInput=ThenGBtoUTF8=szInput:ExitFunction输入参数为空Forx=1ToLen(szInput)wch=Mid(szInput,x,1):nAsc=AscW(wch)IfnAsc0ThennAsc=nAsc+65536If(nAscAnd&HFF80)=0ThenszRet=szRet&wchElseIf(nAscAnd&HF000)=0Thenuch=%&Hex(((nAsc\2^6))Or&HC0)&Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchElseuch=%&Hex((nAsc\2^12)Or&HE0)&%&_Hex((nAsc\2^6)And&H3FOr&H80)&%&_Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchEndIfEndIfNextUTF8EncodeURI=szRetEndFunctionFunctionGBKEncodeURI(szInput)转GBKDimiAsLong,x()AsByte,szRetAsStringszRet=x=StrConv(szInput,vbFromUnicode)Fori=LBound(x)ToUBound(x)szRet=szRet&%&Hex(x(i))NextGBKEncodeURI=szRetEndFunction**********************************************PrivateSubcommand1_click()转换IfOption1.Value=TrueThenUTF8Text2.Text=UTF8EncodeURI(Text1.Text)Text5.Text=UTF8EncodeURI(Text3.Text)Text6.Text=UTF8EncodeURI(Text4.Text)ElseIfOption2.Value=TrueThenGB2312Text2.Text=GBKEncodeURI(Text1.Text)Text5.Text=GBKEncodeURI(Text3.Text)Text6.Text=GBKEncodeURI(Text4.Text)EndIfEndSub复制PrivateSubCommand2_Click()Clipboard.SetTextText2.TextEndSubPrivateSubCommand3_Click()Clipboard.SetTextText5.TextEndSubPrivateSubCommand4_Click()Clipboard.SetTextText6.TextEndSub***********************************************************************************************************第二个界面，上边俩函数此处省略PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexUTF8Case0Fori=5To9Text1(i).Text=UTF8EncodeURI(Text1(i5).Text)NextiCase1清除Fori=0To9Text1(i).Text=NextiCase2GB2312Fori=5To9Text1(i).Text=GBKEncodeURI(Text1(i5).Text)NextiCaseElse复制Clipboard.SetTextText1(Index+2).TextEndSelectEndSub
自己动手，丰衣足食。还是应该自己做，还能有更多的经验和体会。 更多有关「求一个VB小程序代码。」的疑问请扫码关注微信公开课+小程序！