blocks|key|4114406|text|像这样的东西应该可以做到，这是这个question的一部分答案|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|4114407|Private+Function+IsLetter(ByVal+character+As+String)+As+Boolean
++++IsLetter+=+UCase$(character)+<>+LCase$(character)
End+Function|code-block|syntax|javascript|4114408|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/a/62003^0|H|8|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

<p>Something like this should do it, part of an answer for this <a href="https://stackoverflow.com/a/62003">question</a></p>

<pre><code>Private Function IsLetter(ByVal character As String) As Boolean
    IsLetter = UCase$(character) &lt;&gt; LCase$(character)
End Function
</code></pre>


blocks|key|120765|text|​|type|unstyled|depth|inlineStyleRanges|entityRanges|data|120766|Option+Explicit

Private+Declare+Function+IsCharAlphaW+Lib+"user32"+(ByVal+cChar+As+Integer)+As+Long
Private+Declare+Function+IsCharAlphaNumericW+Lib+"user32"+(ByVal+cChar+As+Integer)+As+Long

Public+Property+Get+IsAlpha(character+As+String)+As+Boolean
++++IsAlpha+=+IsCharAlphaW(AscW(character))
End+Property

Public+Property+Get+IsAlphaNumeric(character+As+String)+As+Boolean
++++IsAlphaNumeric+=+IsCharAlphaNumericW(AscW(character))
End+Property

Public+Property+Get+IsNumeric(character+As+String)+As+Boolean
++++IsNumeric+=+IsAlphaNumeric(character)+And+Not+IsAlpha(character)
End+Property

Private+Sub+Form_Load()
+++Debug.Print+"a",+IsAlpha("a")
+++Debug.Print+"Z",+IsAlpha("Z")
+++Debug.Print+"0",+IsAlpha("0"),+IsNumeric("0")
+++Debug.Print+"ChrW$(&HFF21)",+IsAlpha(ChrW$(&HFF21))
+++Debug.Print+"ChrW$(&HFF10)",+IsAlpha(ChrW$(&HFF10)),+IsNumeric(ChrW$(&HFF10))
End+Sub|code-block|syntax|javascript|120767|120768|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|K|8|@]|9|@]|A|$E|F]]|$1|G|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|M|8|@]|9|@]|A|$]]]|I|$]]

<p><div class="snippet" data-lang="js" data-hide="false">
<div class="snippet-code">
<pre class="snippet-code-html lang-html prettyprint-override"><code>Option Explicit

Private Declare Function IsCharAlphaW Lib "user32" (ByVal cChar As Integer) As Long
Private Declare Function IsCharAlphaNumericW Lib "user32" (ByVal cChar As Integer) As Long

Public Property Get IsAlpha(character As String) As Boolean
    IsAlpha = IsCharAlphaW(AscW(character))
End Property

Public Property Get IsAlphaNumeric(character As String) As Boolean
    IsAlphaNumeric = IsCharAlphaNumericW(AscW(character))
End Property

Public Property Get IsNumeric(character As String) As Boolean
    IsNumeric = IsAlphaNumeric(character) And Not IsAlpha(character)
End Property

Private Sub Form_Load()
   Debug.Print "a", IsAlpha("a")
   Debug.Print "Z", IsAlpha("Z")
   Debug.Print "0", IsAlpha("0"), IsNumeric("0")
   Debug.Print "ChrW$(&amp;HFF21)", IsAlpha(ChrW$(&amp;HFF21))
   Debug.Print "ChrW$(&amp;HFF10)", IsAlpha(ChrW$(&amp;HFF10)), IsNumeric(ChrW$(&amp;HFF10))
End Sub</code></pre>
</div>
</div>
</p>


blocks|key|120790|text|这对我有用，但我做了一个非常快速的测试。它使用User32.dlAPI调用IsCharAlphaW，它应该可以在Windows2000Professional和up上使用。试一试，如果不对，我会删除答案，这样就不会让任何人感到困惑。|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|120791|注意:示例中没有错误处理。|120792|Private+Declare+Function+IsCharAlpha+Lib+"user32"+Alias+"IsCharAlphaW"+(ByVal+cChar+As+Long)+As+Long

Private+Sub+Command1_Click()

++++MsgBox+"IsLetter("+&+Text1.Text+&+")+=+"+&+IsLetter(Left$(Text1.Text,+1))

End+Sub

Private+Function+IsLetter(ByVal+vCharacter+As+String)+As+Boolean

++++IsLetter+=+IsCharAlpha(AscW(vCharacter))

End+Function|code-block|syntax|javascript|120793|entityMap^0|11|C|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|R|8|@]|D|@]|E|$]]|$1|H|3|I|5|J|7|S|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|T|8|@]|D|@]|E|$]]]|N|$]]

<p>This is working for me, but I did a VERY quick test. It uses the User32.dll API call <strong>IsCharAlphaW</strong> which should be available on Windows 2000 Professional and up. Try it out, and if it's not right I'll delete the answer so it doesn't confuse anyone. </p>

<p>Note: there is no error handling in the example.</p>

<pre><code>Private Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaW" (ByVal cChar As Long) As Long

Private Sub Command1_Click()

    MsgBox "IsLetter(" &amp; Text1.Text &amp; ") = " &amp; IsLetter(Left$(Text1.Text, 1))

End Sub

Private Function IsLetter(ByVal vCharacter As String) As Boolean

    IsLetter = IsCharAlpha(AscW(vCharacter))

End Function
</code></pre>


blocks|key|4114463|text|​|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4114464|Option+Explicit

Private+Declare+Function+IsCharAlphaW+Lib+"user32"+(ByVal+cChar+As+Integer)+As+Long
Private+Declare+Function+IsCharAlphaNumericW+Lib+"user32"+(ByVal+cChar+As+Integer)+As+Long

Public+Property+Get+IsAlpha(character+As+String)+As+Boolean
++++IsAlpha+=+IsCharAlphaW(AscW(character))
End+Property

Public+Property+Get+IsAlphaNumeric(character+As+String)+As+Boolean
++++IsAlphaNumeric+=+IsCharAlphaNumericW(AscW(character))
End+Property

Public+Property+Get+IsNumeric(character+As+String)+As+Boolean
++++IsNumeric+=+IsAlphaNumeric(character)+And+Not+IsAlpha(character)
End+Property

Private+Sub+Form_Load()
+++Debug.Print+"a",+IsAlpha("a")
+++Debug.Print+"Z",+IsAlpha("Z")
+++Debug.Print+"0",+IsAlpha("0"),+IsNumeric("0")
+++Debug.Print+"ChrW$(&HFF21)",+IsAlpha(ChrW$(&HFF21))
+++Debug.Print+"ChrW$(&HFF10)",+IsAlpha(ChrW$(&HFF10)),+IsNumeric(ChrW$(&HFF10))
End+Sub|code-block|syntax|javascript|4114465|4114466|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|K|8|@]|9|@]|A|$E|F]]|$1|G|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|M|8|@]|9|@]|A|$]]]|I|$]]

blocks|key|2454811|text|这将告诉您，根据Unicode标准，字符是什么。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2454812|Public+Const+CT_CTYPE1+=+&H1+++++++++'++ctype+1+information
Public+Const+CT_CTYPE2+=+&H2+++++++++'++ctype+2+information
Public+Const+CT_CTYPE3+=+&H4+++++++++'++ctype+3+information
Public+Const+C1_ALPHA+=+&H100+++'++any+letter
Public+Const+C1_BLANK+=+&H40++++'++blank+characters
Public+Const+C1_CNTRL+=+&H20++++'++control+characters
Public+Const+C1_DIGIT+=+&H4+++++'++decimal+digits
Public+Const+C1_LOWER+=+&H2+++++'++lower+case
Public+Const+C1_PUNCT+=+&H10++++'++punctuation+characters
Public+Const+C1_SPACE+=+&H8+++++'++spacing+characters
Public+Const+C1_TRANSPARENT+=+&H1+++++'++new+raster+cap
Public+Const+C1_UPPER+=+&H1+++++'++upper+case
Public+Const+C1_XDIGIT+=+&H80++++'++hex+digits
Public+Const+C1_DEFINED+=+&H200++++'++Other+defined+char

Public+Const+C2_ARABICNUMBER+=+&H6+++++'++Arabic+number
Public+Const+C2_BLOCKSEPARATOR+=+&H8+++++'++block+separator
Public+Const+C2_COMMONSEPARATOR+=+&H7+++++'++common+numeric+separator
Public+Const+C2_EUROPENUMBER+=+&H3+++++'++European+number,+digit
Public+Const+C2_EUROPESEPARATOR+=+&H4+++++'++European+numeric+separator
Public+Const+C2_EUROPETERMINATOR+=+&H5+++++'++European+numeric+terminator
Public+Const+C2_LEFTTORIGHT+=+&H1+++++'++left+to+right
Public+Const+C2_NOTAPPLICABLE+=+&H0+++++'++no+implicit+directionality
Public+Const+C2_OTHERNEUTRAL+=+&HB+++++'++other+neutrals
Public+Const+C2_RIGHTTOLEFT+=+&H2+++++'++right+to+left
Public+Const+C2_WHITESPACE+=+&HA+++++'++white+space
Public+Const+C2_SEGMENTSEPARATOR+=+&H9+++++'++segment+separator
Public+Const+C3_DIACRITIC+=+&H2+++++'++diacritic+mark
Public+Const+C3_NONSPACING+=+&H1+++++'++nonspacing+character
Public+Const+C3_NOTAPPLICABLE+=+&H0+++++'++ctype+3+is+not+applicable
Public+Const+C3_SYMBOL+=+&H8+++++'++symbols
Public+Const+C3_VOWELMARK+=+&H4+++++'++vowel+mark

Function+GetC1Type(B+As+String)+As+String
++++++++Dim+Ret+As+Long
++++++++Dim+A()+As+Integer
++++++++ReDim+A(1)
++++++++A(0)+=+0
++++++++A(1)+=+0
++++++++Ret+=+GetStringTypeEx(&HB,+CT_CTYPE1,+B,+-1,+A(0))
++++++++Dim+Alpha+As+Long
++++++++Dim+Blank+As+Long
++++++++Dim+Cntrl+As+Long
++++++++Dim+Digit+As+Long
++++++++Dim+LowerC+As+Long
++++++++Dim+UpperC+As+Long
++++++++Dim+Punct+As+Long
++++++++Dim+SpaceChar+As+Long
++++++++Dim+HexDigit+As+Long
++++++++Dim+DefinedChar+As+Long
++++++++Dim+CharTypeString
++++++++Dim+X+As+Long
++++++++Alpha+=+A(0)+And+C1_ALPHA
++++++++Blank+=+A(0)+And+C1_BLANK
++++++++Cntrl+=+A(0)+And+C1_CNTRL
++++++++Digit+=+A(0)+And+C1_DIGIT
++++++++LowerC+=+A(0)+And+C1_LOWER
++++++++UpperC+=+A(0)+And+C1_UPPER
++++++++Punct+=+A(0)+And+C1_PUNCT
++++++++SpaceChar+=+A(0)+And+C1_SPACE
++++++++HexDigit+=+A(0)+And+C1_XDIGIT
++++++++DefinedChar+=+A(0)+And+C1_DEFINED
++++++++If+Alpha+=+C1_ALPHA+Then+CharTypeString+=+CharTypeString+&+"Alpha+"
++++++++If+Blank+=+C1_BLANK+Then+CharTypeString+=+CharTypeString+&+"Blank+"
++++++++If+Cntrl+=+C1_CNTRL+Then+CharTypeString+=+CharTypeString+&+"Control+"
++++++++If+Digit+=+C1_DIGIT+Then+CharTypeString+=+CharTypeString+&+"Number+"
++++++++If+LowerC+=+C1_LOWER+Then+CharTypeString+=+CharTypeString+&+"Lower+"
++++++++If+UpperC+=+C1_UPPER+Then+CharTypeString+=+CharTypeString+&+"Upper+"
++++++++If+Punct+=+C1_PUNCT+Then+CharTypeString+=+CharTypeString+&+"Punct+"
++++++++If+SpaceChar+=+C1_SPACE+Then+CharTypeString+=+CharTypeString+&+"Space+"
++++++++If+Len(CharTypeString)+=+0+Then
++++++++++++If+DefinedChar+=+C1_DEFINED+Then+CharTypeString+=+CharTypeString+&+"Other_Defined+"
++++++++++++If+Len(CharTypeString)+=+0+Then+CharTypeString+=+CharTypeString+&+"Not_Defined+"
++++++++End+If
++++++++GetC1Type+=+CharTypeString
End+Function|code-block|syntax|javascript|2454813|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<p>This tells you what a character is according to the Unicode standard.</p>

<pre><code>Public Const CT_CTYPE1 = &amp;H1         '  ctype 1 information
Public Const CT_CTYPE2 = &amp;H2         '  ctype 2 information
Public Const CT_CTYPE3 = &amp;H4         '  ctype 3 information
Public Const C1_ALPHA = &amp;H100   '  any letter
Public Const C1_BLANK = &amp;H40    '  blank characters
Public Const C1_CNTRL = &amp;H20    '  control characters
Public Const C1_DIGIT = &amp;H4     '  decimal digits
Public Const C1_LOWER = &amp;H2     '  lower case
Public Const C1_PUNCT = &amp;H10    '  punctuation characters
Public Const C1_SPACE = &amp;H8     '  spacing characters
Public Const C1_TRANSPARENT = &amp;H1     '  new raster cap
Public Const C1_UPPER = &amp;H1     '  upper case
Public Const C1_XDIGIT = &amp;H80    '  hex digits
Public Const C1_DEFINED = &amp;H200    '  Other defined char

Public Const C2_ARABICNUMBER = &amp;H6     '  Arabic number
Public Const C2_BLOCKSEPARATOR = &amp;H8     '  block separator
Public Const C2_COMMONSEPARATOR = &amp;H7     '  common numeric separator
Public Const C2_EUROPENUMBER = &amp;H3     '  European number, digit
Public Const C2_EUROPESEPARATOR = &amp;H4     '  European numeric separator
Public Const C2_EUROPETERMINATOR = &amp;H5     '  European numeric terminator
Public Const C2_LEFTTORIGHT = &amp;H1     '  left to right
Public Const C2_NOTAPPLICABLE = &amp;H0     '  no implicit directionality
Public Const C2_OTHERNEUTRAL = &amp;HB     '  other neutrals
Public Const C2_RIGHTTOLEFT = &amp;H2     '  right to left
Public Const C2_WHITESPACE = &amp;HA     '  white space
Public Const C2_SEGMENTSEPARATOR = &amp;H9     '  segment separator
Public Const C3_DIACRITIC = &amp;H2     '  diacritic mark
Public Const C3_NONSPACING = &amp;H1     '  nonspacing character
Public Const C3_NOTAPPLICABLE = &amp;H0     '  ctype 3 is not applicable
Public Const C3_SYMBOL = &amp;H8     '  symbols
Public Const C3_VOWELMARK = &amp;H4     '  vowel mark

Function GetC1Type(B As String) As String
        Dim Ret As Long
        Dim A() As Integer
        ReDim A(1)
        A(0) = 0
        A(1) = 0
        Ret = GetStringTypeEx(&amp;HB, CT_CTYPE1, B, -1, A(0))
        Dim Alpha As Long
        Dim Blank As Long
        Dim Cntrl As Long
        Dim Digit As Long
        Dim LowerC As Long
        Dim UpperC As Long
        Dim Punct As Long
        Dim SpaceChar As Long
        Dim HexDigit As Long
        Dim DefinedChar As Long
        Dim CharTypeString
        Dim X As Long
        Alpha = A(0) And C1_ALPHA
        Blank = A(0) And C1_BLANK
        Cntrl = A(0) And C1_CNTRL
        Digit = A(0) And C1_DIGIT
        LowerC = A(0) And C1_LOWER
        UpperC = A(0) And C1_UPPER
        Punct = A(0) And C1_PUNCT
        SpaceChar = A(0) And C1_SPACE
        HexDigit = A(0) And C1_XDIGIT
        DefinedChar = A(0) And C1_DEFINED
        If Alpha = C1_ALPHA Then CharTypeString = CharTypeString &amp; "Alpha "
        If Blank = C1_BLANK Then CharTypeString = CharTypeString &amp; "Blank "
        If Cntrl = C1_CNTRL Then CharTypeString = CharTypeString &amp; "Control "
        If Digit = C1_DIGIT Then CharTypeString = CharTypeString &amp; "Number "
        If LowerC = C1_LOWER Then CharTypeString = CharTypeString &amp; "Lower "
        If UpperC = C1_UPPER Then CharTypeString = CharTypeString &amp; "Upper "
        If Punct = C1_PUNCT Then CharTypeString = CharTypeString &amp; "Punct "
        If SpaceChar = C1_SPACE Then CharTypeString = CharTypeString &amp; "Space "
        If Len(CharTypeString) = 0 Then
            If DefinedChar = C1_DEFINED Then CharTypeString = CharTypeString &amp; "Other_Defined "
            If Len(CharTypeString) = 0 Then CharTypeString = CharTypeString &amp; "Not_Defined "
        End If
        GetC1Type = CharTypeString
End Function
</code></pre>


<p>I am not so happy with MSDN about char.IsLetter description. I can't understand so well. 
From common sense, the Letter is :A-Z,a-z,Unicode string... From what I test, "~!@#$%^..." and 0-9 are not belong to IsLetter category. Yeah, the range is huge, How to simulate C# char.IsLetter (write similar code) in VB6?</p>


How to simulate C# char.IsLetter in VB6

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

关于char.IsLetter的描述，我对MSDN不太满意。我不太明白。从常识来看，字母是:a，a，Unicode字符串.根据我的测试，“~！@#$%^.”0-9不属于IsLetter范畴.是的，范围很大，如何在C# char.IsLetter (编写类似代码)中模拟VB6？

问如何在C# char.IsLetter中模拟VB6
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在C# char.IsLetter中模拟VB6EN