Howto: 正确显示标注的大小写

摘要： 本文介绍了如何正确显示标注大小写的步骤。例如，一个表示城市名称的字段'PORT HOPE'会被标为'Port Hope'。
内容：
1. 在“标注”工具条上点击“标注管理器”。
2. 勾选要标注的图层。
3. 在图层下级菜单选择一个标注类。 
4. 点击“表达式”按钮。 
5. 勾选“高级”。 
6. 输入以下代码来替换原有代码。 

Function FindLabel ( [LABELFIELD] )

     FindLabel = PCase( [LABELFIELD] )

End Function

 

Private Function PCase(byVal string)

            Dim Tmp, Word, Tmp1, Tmp2, firstCt, a, sentence, c, i

            If IsNull(string) Then

                    PCase = Null

                    Exit Function

            Else

                    string = CStr( string )

            End If

            a = Split( string, vbCrLf )

            c = UBound(a)

            i = 0

            For each sentence in a

                    Tmp = Trim( sentence )

                    Tmp = split( sentence, " " )

                               For Each Word In Tmp

                                          Word = Trim( Word )

                                          Tmp1 = UCase( Left( Word, 1 ) )

                                          Tmp2 = LCase( Mid( Word, 2 ) )

                                          PCase = PCase & Tmp1 & tmp2 & " "

                               Next

                               PCase = Left( PCase, Len(PCase) - 1 )

                               If i = c then

                               Else

                                          PCase = PCase & vbCrLf

                               End If

                               i = i + 1

            Next

End Function

当输入代码时，注意将所有出现LABELFIELD的地方更改为表中的正确名称。 
7. 点击确定。
8. 在“标注管理器”对话框是点击应用，并点击确定。





创建时间：2005-11-01
最近更新： 2011-05-03


【原文链接】
http://support.esrichina.com.c ... .html