如何使用VBA将文本格式应用于Microsoft Access中的列表框？

我想删除逗号或句点，并将

姓氏

的第一个字母大写，我只能使用

文本框

，每次都必须插入

姓氏

这是我的

文本框的代码

：

Private Sub Command2_DblClick(Cancel As Integer)
  Text19 = Trim(Text19)

  If Right(Text19, 1) = "." Or Right(Text19, 1) = "," Then 
    Text19 = Left(Text19, Len(Text19) - 1)
  End If

  Text19 = UCase(Left(Text19, 1)) & Mid(Text19, 2)
End Sub

---

如果我想将代码应用于列表框，应如何更改代码？

为列表框使用而编辑

Public Sub CapitalizeListBox(PListBox As ListBox)

    Dim i, ListItem As Integer
    Dim Lname() As String
    Dim TempString As String

    For ListItem = 0 To PListBox.ListCount - 1

        Lname = Split(PListBox.ItemData(ListItem), " ") ' Break the name into words
        For i = LBound(Lname) To UBound(Lname) 'for each word, capitalize first letter
            Lname(i) = UCase(Left(Lname(i), 1)) & Mid(Lname(i), 2)
        Next i

        TempString = ""


        For i = LBound(Lname) To UBound(Lname) 'Reassemble the name in the textbox
            TempString = TempString & " " & UCase(Left(Lname(i), 1)) & Mid(Lname(i), 2)
        Next i
        TempString = Trim(TempString)
        PListBox.RemoveItem (ListItem)
        PListBox.AddItem TempString, ListItem
    Next ListItem

End Sub

---

谢谢Lybren，但我知道如何使用上面的代码编辑文本框，我想知道列表框中每个项目的列表框可以使用的代码？您必须删除问题代码中的所有空行，如果可能，缩进代码。我已重新格式化了您的代码，以便更容易阅读。请尽量方便其他用户回答您的问题。本页中有一些很棒的提示。我还添加了标签以提高可见性。这还允许堆栈溢出使用改进的代码语法高亮显示。最后，我更改了你的问题标题。好的标题往往会产生更多的视图。