如何將文本格式應用於使用VBA的Microsoft Access中的列表框？

-1

我想刪除逗號或句號和利用的last name的第一個字母，我只能用一個textbox我必須做的每一次如何將文本格式應用於使用VBA的Microsoft Access中的列表框？

這裏插入last name是我的textbox代碼：

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

如果我想申請listbox，應如何更改代碼？

來源

2016-12-01 james

您必須刪除問題代碼中的所有空白行，並在可能的情況下刪除縮進代碼。 – Lybren

我已經重新格式化了您的代碼，因此它更易於閱讀。請儘量讓其他用戶儘可能簡單地回答您的問題。 [問]頁面有一些很棒的提示。我還添加了[tag：vba]標籤以提高可見度。這也可以讓Stack Overflow使用改進的代碼語法高亮顯示。最後，我改變了你的問題標題。一個好的標題往往會產生更多的意見。 – Chris

編輯列表框使用。

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

來源

2016-12-02 13:23:44 Lybren

感謝Lybren，但我知道如何用上面的代碼編輯文本框，我想知道可用於列表框的代碼 – james

對於列表框中的每個項目？ – Lybren

如何將文本格式應用於使用VBA的Microsoft Access中的列表框？

回答

相關問題