0  

Based on your last comment, what you are looking for is not just a bullet point in your textbox but indentation as well. So here is an attempt at it:

根據您的上一條評論，您所尋找的不僅僅是文本框中的項目符號，還有縮進項。所以這是一個嘗試：

First add the below in your <textbox>_KeyUp function:

首先在 _KeyUp函數中添加以下內容：

Private Sub txtBulletPoints_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim STRING_LENGTH As Long: STRING_LENGTH = 49
    Dim aLine() As String
    Dim aLineSpace() As String
    Dim iC As Integer
    Dim sText As String
    Dim bUpdate As Boolean

    ' Only do this if there is a string to work with
    If Len(Me.txtBulletPoints.Text) > 0 Then

        ' Set initial values
        aLine = Split(Me.txtBulletPoints.Text, vbCrLf)
        bUpdate = False

        ' First lets indent the last line if we need to
        If Left(aLine(UBound(aLine)), 2) = "- " Then
            For iC = LBound(aLine) To UBound(aLine)
                If iC = UBound(aLine) Then
                    sText = sText & vbTab & aLine(iC)
                Else
                    sText = sText & aLine(iC) & vbCrLf
                End If
            Next

            Me.txtBulletPoints.Text = sText

        End If

        ' Now the tricky bit. Check if we have reached the end of the
        ' line so that we can indent the text into the next line
        If (Len(aLine(UBound(aLine))) >= STRING_LENGTH) And (InStr(1, aLine(UBound(aLine)), vbTab) = 1) Then
            For iC = LBound(aLine) To UBound(aLine)
                If iC = UBound(aLine) Then
                    aLineSpace = Split(aLine(iC), " ")

                    ' As we have to indent the last bullet point line, call the finction to do that
                    sText = sText & SetIndentsInString(aLine(iC), STRING_LENGTH)

                Else
                    sText = sText & aLine(iC) & vbCrLf
                End If
            Next

            Me.txtBulletPoints.Text = sText

        End If

    End If

End Sub

Now add the below UDF where your form code is (essentially at the same place where your <textbox>_KeyUp function is):

現在在表單代碼所在的位置添加以下UDF（基本上與 _KeyUp函數所在的位置相同）：

Function SetIndentsInString(ByVal sString As String, ByVal iIndentLen As Long) As String
    Dim iC As Long
    Dim iLastTab As Long: iLastTab = 0
    Dim aSpace() As String
    Dim aTab() As String
    Dim sCurString As String

    ' Check if the string is the same as what it was last
    ' time (sLastString is a private module variable initialised
    ' to "" when the form is activated)
    If Replace(sString, vbTab, "") = Replace(sLastString, vbTab, "") Then
        ' Its the same string so lets return it as is
        SetIndentsInString = sString
    Else
        ' Its not the same string so set initial values
        sLastString = sString
        SetIndentsInString = ""

        ' Loop to see how many lines we have based on number of TABs in the string
        Do While InStr(iLastTab + 1, sString, vbTab) > 0
            iLastTab = iLastTab + InStr(iLastTab + 1, sString, vbTab)
        Loop

        ' If there is only 1 TAB, simply indent the line
        If iLastTab = 1 Then
            aSpace = Split(sString, " ")
            SetIndentsInString = Mid(sString, 1, Len(sString) - Len(aSpace(UBound(aSpace)))) & vbTab & "  " & aSpace(UBound(aSpace))
        Else

            ' More then 1 TAB.. damn!. Ok well lets work it
            aTab = Split(sString, vbTab)
            sCurString = aTab(UBound(aTab))

            ' Check if the last line of our bullet point has more characters then allowed in a line
            If Len(sCurString) >= iIndentLen Then

                ' It does. Now loop through all the lines in our bullet point and set the last character in a new line with indent
                aSpace = Split(sCurString, " ")
                For iC = LBound(aTab) To UBound(aTab)
                    If iC = UBound(aTab) Then
                        SetIndentsInString = SetIndentsInString & Mid(sCurString, 1, Len(sCurString) - Len(aSpace(UBound(aSpace)))) & vbTab & "  " & aSpace(UBound(aSpace))
                    Else
                        SetIndentsInString = SetIndentsInString & aTab(iC) & vbTab
                    End If
                Next

            Else

                ' It doesnt. Loop through and send the string back
                SetIndentsInString = sString

            End If

        End If

    End If

End Function

Now in the same module, make the following declaration at the top:

現在在同一個模塊中，在頂部進行以下聲明：

Private sLastString As String

Essentially the above will act like a bullet point as it would be in a Rich Text box. Things to remember is that you will have to set STRING_LENGTH to the number of characters your textbox will take in a given bullet point line (you will have to play around with that). Below is a screen print of how it worked for me

從本質上講，上面的內容就像一個子彈點，就像在富文本框中一樣。要記住的是，您必須將STRING_LENGTH設置為文本框在給定項目符號線中所占用的字符數（您必須使用它）。下面是它如何為我工作的絲網印刷