妙！VB编程快速得到任意汉字拼音的首字母

很多时候，我们需要用到一个句子中每个汉字的首字母。人工去做，当然可以实现，但是相当费时费力。不仅需要用脑去思考每个汉字的读音，而且结合起来还非常容易搞错。

于是，今天就给大家分享如何用VB编程快速得到任意汉字拼音的首字母。

用到的主要是VB的核心知识内容。

程序实际运行图

程序实现过程及源码

首先需要设计窗体界面，在窗体上添加两个文本框、两个命令按钮。然后编写对应的事件代码，实现程序功能。

用的的主要知识：

1、VB数据类型、常量变量、内部函数；

2、VB控制结构语句；

3、VB数组与函数过程。

程序主要代码

Private Sub Command1_Click()Text2 = UCase(GetStringZM(Text1))End Sub
Public tyChinaPos(26) As TypePos Public sSecondPos As StringPublic Function GetStringZM(strS As String) As String Dim I As Integer Dim strRet As String strRet = '' For I = 1 To Len(strS) If CharFilter(Mid(strS, I, 1)) = False Then strRet = strRet + LCase(Mid(strS, I, 1)) ElseIf Asc(Mid(strS, I, 1)) < 0 Then '        strRet = strRet + GetChinaChar(Mid(strS, I, 1))  ElseIf Mid(strS, I, 1) >= '0' And Mid(strS, I, 1) <= '9' Then         strRet = strRet + LCase(Mid(strS, I, 1)) ElseIf Mid(strS, I, 1) >= 'A' And Mid(strS, I, 1) <= 'Z' Then        strRet = strRet + LCase(Mid(strS, I, 1)) ElseIf Mid(strS, I, 1) >= 'a' And Mid(strS, I, 1) <= 'z' Then        strRet = strRet + LCase(Mid(strS, I, 1)) End If Next I GetStringZM = strRet End Function

Public Function CharFilter(strS As String) As Boolean Dim I As Integer Dim bRet As Boolean  bRet = True If sFilter = '' And Trim(sFilter) = '' Then bRet = True Else For I = 1 To Len(sFilter) If Mid(sFilter, I, 1) = strS Then bRet = False Exit For End If Next I End If CharFilter = bRetEnd Function
Public Function GetChinaChar(strSt As String) As String Dim I As Integer Dim iPos As Long Dim strRetF As String strRetF = '' If Asc(strSt) >= -20319 And Asc(strSt) <= -10247 Then For I = 0 To 25 If Asc(strSt) >= tyChinaPos(I).Min And Asc(strSt) <= tyChinaPos(I).Max Then strRetF = tyChinaPos(I).cFirst Exit For End If    Next I ElseIf Asc(strSt) >= -10079 And Asc(strSt) < -2050 Then iPos = Asc(strSt) + 10080 - ((Asc(strSt) + 10079) \ 256) * 162 strRetF = LCase(Mid(sSecondPos, iPos, 1)) End If GetChinaChar = strRetF End Function'Public Sub ZhuJiInit() Dim I As Integer  sSecondPos = 'CJWGNSPGCGNE[Y[BTYYZDXYKYGT[JNMJQMBSGZSCYJSYY[PGKBZGY[YWJKGKLJYWKPJQHY[W[DZLSGMRYPYWWCCKZNKYYGTTNJJNYKKZYTCJNMCYLQLYPYQFQRPZSLWBTGKJFYXJWZLTBNCXJJJJTXDTTSQZYCDXXHGCK[PHFFSS[YBGXLPPBYLL[HLXS[ZM[JHSOJNG' & _ 'HDZQYKLGJHSGQZHXQGKEZZWYSCSCJXYEYXADZPMDSSMZJZQJYZC[J[WQJBYZPXGZNZCPWHKXHQKMWFBPBYDTJZZKQHYLYGXFPTYJYYZPSZLFCHMQSHGMXXSXJ[[DCSBBQBEFSJYHXWGZKPYLQBGLDLCCTNMAYDDKSSNGYCSGXLYZAYBNPTSDKDYLHGYMYLCXPY[JNDQJ' & _ 'WXQXFYYFJLEJPZRXCCQWQQSBNKYMGPLBMJRQCFLNYMYQMSQYRBCJTHZTQFRXQHXMJJCJLXQGJMSHZKBSWYEMYLTXFSYDSWLYCJQXSJNQBSCTYHBFTDCYZDJWYGHQFRXWCKQKXEBPTLPXJZSRMEBWHJLBJSLYYSMDXLCLQKXLHXJRZJMFQHXHWYWSBHTRXXGLHQHFNM[Y' & _ 'KLDYXZPYLGG[MTCFPAJJZYLJTYANJGBJPLQGDZYQYAXBKYSECJSZNSLYZHSXLZCGHPXZHZNYTDSBCJKDLZAYFMYDLEBBGQYZKXGLDNDNYSKJSHDLYXBCGHXYPKDJMMZNGMMCLGWZSZXZJFZNMLZZTHCSYDBDLLSCDDNLKJYKJSYCJLKWHQASDKNHCSGANHDAASHTCPLC' & _ 'PQYBSDMPJLPZJOQLCDHJJYSPRCHN[NNLHLYYQYHWZPTCZGWWMZFFJQQQQYXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMSSJZLDBYD[FCXYHLXCHYZJQ[[QAGMNYXPFRKSSBJLYXYSYGLNSCMHZWWMNZJJLXXHCHSY[[TTXRYCYXBYHCSMXJSZNPWGPXXTAYBGAJC' & _ 'XLY[DCCWZOCWKCCSBNHCPDYZNFCYYTYCKXKYBSQKKYTQQXFCWCHCYKELZQBSQYJQCCLMTHSYWHMKTLKJLYCXWHEQQHTQH[PQ[QSCFYMNDMGBWHWLGSLLYSDLMLXPTHMJHWLJZYHZJXHTXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSXYMJSHXPJXWMYQKSMYPLRTHBXFTP' & _ 'MHYXLCHLHLZYLXGSSSSTCLSLDCLRPBHZHXYYFHB[GDMYCNQQWLQHJJ[YWJZYEJJDHPBLQXTQKWHLCHQXAGTLXLJXMSL[HTZKZJECXJCJNMFBY[SFYWYBJZGNYSDZSQYRSLJPCLPWXSDWEJBJCBCNAYTWGMPAPCLYQPCLZXSBNMSGGFNZJJBZSFZYNDXHPLQKZCZWALSB' & _ 'CCJX[YZGWKYPSGXFZFCDKHJGXDLQFSGDSLQWZKXTMHSBGZMJZRGLYJBPMLMSXLZJQQHZYJCZYDJWBMYKLDDPMJEGXYHYLXHLQYQHKYCWCJMYYXNATJHYCCXZPCQLBZWWYTWBQCMLPMYRJCCCXFPZNZZLJPLXXYZTZLGDLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZLC' & _ 'LGJDJCSNZLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCTZHGYQTJQQLZXJYLYLBCYAMCSTYLPDJBYREGKLZYZHLYSZQLZNWCZCLLWJQJJJKDGJZOLBBZPPGLGHTGZXYGHZMYCNQSYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKQSBGBMMCJSSCLPQPD' & _ 'XCDYYKY[CJDDYYGYWRHJRTGZNYQLDKLJSZZGZQZJGDYKSHPZMTLCPWNJAFYZDJCNMWESCYGLBTZCGMSSLLYXQSXSBSJSBBSGGHFJLYPMZJNLYYWDQSHZXTYYWHMZYHYWDBXBTLMSYYYFSXJC[DXXLHJHF[SXZQHFZMZCZTQCXZXRTTDJHNNYZQQMNQDMMG[YDXMJGDHC' & _ 'DYZBFFALLZTDLTFXMXQZDNGWQDBDCZJDXBZGSQQDDJCMBKZFFXMKDMDSYYSZCMLJDSYNSBRSKMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJ[GYPZLTCSMCNBTJBQFKTHBYZGKPBBYMTDSSXTBNPDKLEYCJNYDDYKZDDHQHSDZSCTARLLTKZLGECLLKJLQJAQNBDKKGHPJTZQ' & _ 'KSECSHALQFMMGJNLYJBBTMLYZXDCJPLDLPCQDHZYCBZSCZBZMSLJFLKRZJSNFRGJHXPDHYJYBZGDLQCSEZGXLBLGYXTWMABCHECMWYJYZLLJJYHLG[DJLSLYGKDZPZXJYYZLWCXSZFGWYYDLYHCLJSCMBJHBLYZLYCBLYDPDQYSXQZBYTDKYXJY[CNRJMPDJGKLCLJBC' & _ 'TBJDDBBLBLCZQRPPXJCJLZCSHLTOLJNMDDDLNGKAQHQHJGYKHEZNMSHRP[QQJCHGMFPRXHJGDYCHGHLYRZQLCYQJNZSQTKQJYMSZSWLCFQQQXYFGGYPTQWLMCRNFKKFSYYLQBMQAMMMYXCTPSHCPTXXZZSMPHPSHMCLMLDQFYQXSZYJDYJZZHQPDSZGLSTJBCKBXYQZJ' & _ 'SGPSXQZQZRQTBDKYXZKHHGFLBCSMDLDGDZDBLZYYCXNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLTXZCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLZZNZJCDGZYGCTXMZYSCTLKPHTXHTLBJXJLXSCDQXCBBTJFQZFSLTJBTKQBXXJJLJCHCZDBZJDCZJDCPRNPQCJ' & _              'PFCZLCLZXZDMXMPHJSGZGSZZQLYLWTJPFSYASMCJBTZKYCWMYTCSJJLJCQLWZMALBXYFBPNLSFHTGJWEJJXXGLLJSTGSHJQLZFKCGNNNSZFDEQFHBSAQTGYLBXMMYGSZLDYDQMJJRGBJTKGDHGKBLQKBDMBYLXWCXYTTYBKMRTJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ' I = 0 '字母a tyChinaPos(I).cFirst = Chr(97) tyChinaPos(I).Min = -20319 tyChinaPos(I).Max = -20284 I = I + 1 '字母b tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -20283 tyChinaPos(I).Max = -19776 I = I + 1 'c tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -19775 tyChinaPos(I).Max = -19219 I = I + 1 'd tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -19218 tyChinaPos(I).Max = -18711 I = I + 1 'e tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -18710 tyChinaPos(I).Max = -18527 I = I + 1 'f tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -18526 tyChinaPos(I).Max = -18240 I = I + 1 'g tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -18239 tyChinaPos(I).Max = -17923 I = I + 1 'h tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -17922 tyChinaPos(I).Max = -17418 I = I + 2 'j tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -17417 tyChinaPos(I).Max = -16475 I = I + 1 'k tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -16474 tyChinaPos(I).Max = -16213 I = I + 1 'l tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -16212 tyChinaPos(I).Max = -15641 I = I + 1 'm tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -15640 tyChinaPos(I).Max = -15166 I = I + 1 'n tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -15165 tyChinaPos(I).Max = -14923 I = I + 1 'o tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -14922 tyChinaPos(I).Max = -14915 I = I + 1 'p tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -14914 tyChinaPos(I).Max = -14631 I = I + 1 'q tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -14630 tyChinaPos(I).Max = -14150 I = I + 1 'r tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -14149 tyChinaPos(I).Max = -14091 I = I + 1 's tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -14090 tyChinaPos(I).Max = -13319 I = I + 1 't tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -13318 tyChinaPos(I).Max = -12839 I = I + 3 'w tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -12838 tyChinaPos(I).Max = -12557 I = I + 1 'x tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -12556 tyChinaPos(I).Max = -11848 I = I + 1 'y tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -11847 tyChinaPos(I).Max = -11056 I = I + 1 'z tyChinaPos(I).cFirst = Chr(I + 97) tyChinaPos(I).Min = -11055 tyChinaPos(I).Max = -10247 End Sub
Public Function GetString() As String Select Case Myt.ConnectionType Case 0: GetString = Myt.Cstring1 Case 1: GetString = Myt.Cstring2 Case Else: GetString = Myt.Cstring3 End SelectEnd Function


旅途中尽量

Private Sub Command1_Click()

Text2 = UCase(GetStringZM(Text1))

End Sub

Public tyChinaPos(26) As TypePos

Public sSecondPos As String

Public Function GetStringZM(strS As String) As String

Dim I As Integer

Dim strRet As String

strRet = ''

For I = 1 To Len(strS)

If CharFilter(Mid(strS, I, 1)) = False Then

strRet = strRet + LCase(Mid(strS, I, 1))

ElseIf Asc(Mid(strS, I, 1)) < 0 Then '

strRet = strRet + GetChinaChar(Mid(strS, I, 1))

ElseIf Mid(strS, I, 1) >= '0' And Mid(strS, I, 1) <= '9' Then

strRet = strRet + LCase(Mid(strS, I, 1))

ElseIf Mid(strS, I, 1) >= 'A' And Mid(strS, I, 1) <= 'Z' Then

strRet = strRet + LCase(Mid(strS, I, 1))

ElseIf Mid(strS, I, 1) >= 'a' And Mid(strS, I, 1) <= 'z' Then

strRet = strRet + LCase(Mid(strS, I, 1))

End If

Next I

GetStringZM = strRet

End Function

Public Function CharFilter(strS As String) As Boolean

Dim I As Integer

Dim bRet As Boolean

bRet = True

If sFilter = '' And Trim(sFilter) = '' Then

bRet = True

Else

For I = 1 To Len(sFilter)

If Mid(sFilter, I, 1) = strS Then

bRet = False

Exit For

End If

Next I

End If

CharFilter = bRet

End Function

Public Function GetChinaChar(strSt As String) As String

Dim I As Integer

Dim iPos As Long

Dim strRetF As String

strRetF = ''

If Asc(strSt) >= -20319 And Asc(strSt) <= -10247 Then

For I = 0 To 25

If Asc(strSt) >= tyChinaPos(I).Min And Asc(strSt) <= tyChinaPos(I).Max Then

strRetF = tyChinaPos(I).cFirst

Exit For

End If

Next I

ElseIf Asc(strSt) >= -10079 And Asc(strSt) < -2050 Then

iPos = Asc(strSt) + 10080 - ((Asc(strSt) + 10079) \ 256) * 162

strRetF = LCase(Mid(sSecondPos, iPos, 1))

End If

GetChinaChar = strRetF

End Function

Public Sub ZhuJiInit()

Dim I As Integer

sSecondPos = 'CJWGNSPGCGNE[Y[BTYYZDXYKYGT[JNMJQMBSGZSCYJSYY[PGKBZGY[YWJKGKLJYWKPJQHY[W[DZLSGMRYPYWWCCKZNKYYGTTNJJNYKKZYTCJNMCYLQLYPYQFQRPZSLWBTGKJFYXJWZLTBNCXJJJJTXDTTSQZYCDXXHGCK[PHFFSS[YBGXLPPBYLL[HLXS[ZM[JHSOJNG' & _

'HDZQYKLGJHSGQZHXQGKEZZWYSCSCJXYEYXADZPMDSSMZJZQJYZC[J[WQJBYZPXGZNZCPWHKXHQKMWFBPBYDTJZZKQHYLYGXFPTYJYYZPSZLFCHMQSHGMXXSXJ[[DCSBBQBEFSJYHXWGZKPYLQBGLDLCCTNMAYDDKSSNGYCSGXLYZAYBNPTSDKDYLHGYMYLCXPY[JNDQJ' & _

'WXQXFYYFJLEJPZRXCCQWQQSBNKYMGPLBMJRQCFLNYMYQMSQYRBCJTHZTQFRXQHXMJJCJLXQGJMSHZKBSWYEMYLTXFSYDSWLYCJQXSJNQBSCTYHBFTDCYZDJWYGHQFRXWCKQKXEBPTLPXJZSRMEBWHJLBJSLYYSMDXLCLQKXLHXJRZJMFQHXHWYWSBHTRXXGLHQHFNM[Y' & _

'KLDYXZPYLGG[MTCFPAJJZYLJTYANJGBJPLQGDZYQYAXBKYSECJSZNSLYZHSXLZCGHPXZHZNYTDSBCJKDLZAYFMYDLEBBGQYZKXGLDNDNYSKJSHDLYXBCGHXYPKDJMMZNGMMCLGWZSZXZJFZNMLZZTHCSYDBDLLSCDDNLKJYKJSYCJLKWHQASDKNHCSGANHDAASHTCPLC' & _

'PQYBSDMPJLPZJOQLCDHJJYSPRCHN[NNLHLYYQYHWZPTCZGWWMZFFJQQQQYXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMSSJZLDBYD[FCXYHLXCHYZJQ[[QAGMNYXPFRKSSBJLYXYSYGLNSCMHZWWMNZJJLXXHCHSY[[TTXRYCYXBYHCSMXJSZNPWGPXXTAYBGAJC' & _

'XLY[DCCWZOCWKCCSBNHCPDYZNFCYYTYCKXKYBSQKKYTQQXFCWCHCYKELZQBSQYJQCCLMTHSYWHMKTLKJLYCXWHEQQHTQH[PQ[QSCFYMNDMGBWHWLGSLLYSDLMLXPTHMJHWLJZYHZJXHTXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSXYMJSHXPJXWMYQKSMYPLRTHBXFTP' & _

'MHYXLCHLHLZYLXGSSSSTCLSLDCLRPBHZHXYYFHB[GDMYCNQQWLQHJJ[YWJZYEJJDHPBLQXTQKWHLCHQXAGTLXLJXMSL[HTZKZJECXJCJNMFBY[SFYWYBJZGNYSDZSQYRSLJPCLPWXSDWEJBJCBCNAYTWGMPAPCLYQPCLZXSBNMSGGFNZJJBZSFZYNDXHPLQKZCZWALSB' & _

'CCJX[YZGWKYPSGXFZFCDKHJGXDLQFSGDSLQWZKXTMHSBGZMJZRGLYJBPMLMSXLZJQQHZYJCZYDJWBMYKLDDPMJEGXYHYLXHLQYQHKYCWCJMYYXNATJHYCCXZPCQLBZWWYTWBQCMLPMYRJCCCXFPZNZZLJPLXXYZTZLGDLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZLC' & _

'LGJDJCSNZLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCTZHGYQTJQQLZXJYLYLBCYAMCSTYLPDJBYREGKLZYZHLYSZQLZNWCZCLLWJQJJJKDGJZOLBBZPPGLGHTGZXYGHZMYCNQSYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKQSBGBMMCJSSCLPQPD' & _

'XCDYYKY[CJDDYYGYWRHJRTGZNYQLDKLJSZZGZQZJGDYKSHPZMTLCPWNJAFYZDJCNMWESCYGLBTZCGMSSLLYXQSXSBSJSBBSGGHFJLYPMZJNLYYWDQSHZXTYYWHMZYHYWDBXBTLMSYYYFSXJC[DXXLHJHF[SXZQHFZMZCZTQCXZXRTTDJHNNYZQQMNQDMMG[YDXMJGDHC' & _

'DYZBFFALLZTDLTFXMXQZDNGWQDBDCZJDXBZGSQQDDJCMBKZFFXMKDMDSYYSZCMLJDSYNSBRSKMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJ[GYPZLTCSMCNBTJBQFKTHBYZGKPBBYMTDSSXTBNPDKLEYCJNYDDYKZDDHQHSDZSCTARLLTKZLGECLLKJLQJAQNBDKKGHPJTZQ' & _

'KSECSHALQFMMGJNLYJBBTMLYZXDCJPLDLPCQDHZYCBZSCZBZMSLJFLKRZJSNFRGJHXPDHYJYBZGDLQCSEZGXLBLGYXTWMABCHECMWYJYZLLJJYHLG[DJLSLYGKDZPZXJYYZLWCXSZFGWYYDLYHCLJSCMBJHBLYZLYCBLYDPDQYSXQZBYTDKYXJY[CNRJMPDJGKLCLJBC' & _

'TBJDDBBLBLCZQRPPXJCJLZCSHLTOLJNMDDDLNGKAQHQHJGYKHEZNMSHRP[QQJCHGMFPRXHJGDYCHGHLYRZQLCYQJNZSQTKQJYMSZSWLCFQQQXYFGGYPTQWLMCRNFKKFSYYLQBMQAMMMYXCTPSHCPTXXZZSMPHPSHMCLMLDQFYQXSZYJDYJZZHQPDSZGLSTJBCKBXYQZJ' & _

'SGPSXQZQZRQTBDKYXZKHHGFLBCSMDLDGDZDBLZYYCXNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLTXZCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLZZNZJCDGZYGCTXMZYSCTLKPHTXHTLBJXJLXSCDQXCBBTJFQZFSLTJBTKQBXXJJLJCHCZDBZJDCZJDCPRNPQCJ' & _

'PFCZLCLZXZDMXMPHJSGZGSZZQLYLWTJPFSYASMCJBTZKYCWMYTCSJJLJCQLWZMALBXYFBPNLSFHTGJWEJJXXGLLJSTGSHJQLZFKCGNNNSZFDEQFHBSAQTGYLBXMMYGSZLDYDQMJJRGBJTKGDHGKBLQKBDMBYLXWCXYTTYBKMRTJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ'

I = 0 '字母a

tyChinaPos(I).cFirst = Chr(97)

tyChinaPos(I).Min = -20319

tyChinaPos(I).Max = -20284

I = I + 1 '字母b

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -20283

tyChinaPos(I).Max = -19776

I = I + 1 'c

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -19775

tyChinaPos(I).Max = -19219

I = I + 1 'd

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -19218

tyChinaPos(I).Max = -18711

I = I + 1 'e

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -18710

tyChinaPos(I).Max = -18527

I = I + 1 'f

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -18526

tyChinaPos(I).Max = -18240

I = I + 1 'g

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -18239

tyChinaPos(I).Max = -17923

I = I + 1 'h

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -17922

tyChinaPos(I).Max = -17418

I = I + 2  'j

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -17417

tyChinaPos(I).Max = -16475

I = I + 1 'k

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -16474

tyChinaPos(I).Max = -16213

I = I + 1 'l

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -16212

tyChinaPos(I).Max = -15641

I = I + 1 'm

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -15640

tyChinaPos(I).Max = -15166

I = I + 1 'n

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -15165

tyChinaPos(I).Max = -14923

I = I + 1 'o

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -14922

tyChinaPos(I).Max = -14915

I = I + 1 'p

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -14914

tyChinaPos(I).Max = -14631

I = I + 1 'q

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -14630

tyChinaPos(I).Max = -14150

I = I + 1 'r

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -14149

tyChinaPos(I).Max = -14091

I = I + 1 's

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -14090

tyChinaPos(I).Max = -13319

I = I + 1 't

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -13318

tyChinaPos(I).Max = -12839

I = I + 3 'w

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -12838

tyChinaPos(I).Max = -12557

I = I + 1 'x

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -12556

tyChinaPos(I).Max = -11848

I = I + 1 'y

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -11847

tyChinaPos(I).Max = -11056

I = I + 1 'z

tyChinaPos(I).cFirst = Chr(I + 97)

tyChinaPos(I).Min = -11055

tyChinaPos(I).Max = -10247

End Sub

Public Function GetString() As String

Select Case Myt.ConnectionType

Case 0:

GetString = Myt.Cstring1

Case 1:

GetString = Myt.Cstring2

Case Else:

GetString = Myt.Cstring3

End Select

End Function