Delete textbox current line

How to delete current line within a textbox using the "ctrl + y" keys?
rtpAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
lehketConnect With a Mentor Commented:
The following assumes each line ends with vbCrLf:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim bCtrlDown As Boolean
    Dim iLoc1 As Integer
    Dim iLoc2 As Integer
    Dim sText1 As String
    Dim sText2 As String
    bCtrlDown = (Shift And vbCtrlMask) > 0
    If KeyCode = vbKeyY And bCtrlDown Then
        With Text1
            iLoc1 = 1
            Do
                iLoc2 = InStr(iLoc1, .Text, vbCrLf)
                If iLoc2 = 0 Then
                    Exit Do
                Else
                    If iLoc2 > .SelStart Then
                        Exit Do
                    Else
                        iLoc1 = iLoc2 + 2
                    End If
                End If
            Loop
            sText1 = Left$(.Text, iLoc1 - 1)
            If iLoc2 = 0 Then
                sText2 = ""
            Else
                sText2 = Mid$(.Text, iLoc2 + 2)
            End If
            .Text = sText1 & sText2
        End With
        KeyCode = 0
    End If
End Sub
0
 
rtpAuthor Commented:
Edited text of question.
0
All Courses

From novice to tech pro — start learning today.