VB中选择性粘贴

[wolad_22]

假设某一文本为
xxx:yyy
VB程序中有两个文本框，暂且叫做左文本框和右文本框
复制文本后
如何在VB中实现在左文本框中粘贴后xxx被粘贴到左文本框，yyy被粘贴到右文本框，也就是说“：”被去掉

[Tiger_Zhao]

Option Explicit

Sub CheckText(ByVal Text As String)
    Dim a() As String
    
    If InStr(1, Text, ":") <> 0 Then
        a = Split(Text, ":")
        Text1 = a(0)
        Text2 = a(1)
    End If
End Sub

Private Sub Text1_Change()
    CheckText Text1.Text
End Sub

Private Sub Text2_Change()
    CheckText Text2.Text
End Sub

[wolad_22]

谢谢,请问如何判别换行回车

[Tiger_Zhao]

Dim i As Long
i = InStr(1, Text, vbCr)
If i <> 0 Then MsgBox "有回车"

[cbm6666]

vbcr回车 vblf换行 vbcrlf回车换行

Dim aa$
Private Sub Form_Load()
Open "c:\tt.txt" For Input As #1
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
MsgBox InStr(aa, vbNewLine)
'或 MsgBox InStr(aa,vbCrLf)
End Sub

[Paro]

DING