VB中选择性粘贴

wolad_22 2008-04-01 03:34:00
假设某一文本为
xxx:yyy
VB程序中有两个文本框,暂且叫做左文本框和右文本框
复制文本后
如何在VB中实现在左文本框中粘贴后xxx被粘贴到左文本框,yyy被粘贴到右文本框,也就是说“:”被去掉
...全文
99 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Paro 2008-04-02
DING
回复
cbm6666 2008-04-02
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

回复
Tiger_Zhao 2008-04-02
Dim i As Long
i = InStr(1, Text, vbCr)
If i <> 0 Then MsgBox "有回车"
回复
wolad_22 2008-04-01
谢谢,请问如何判别换行回车
回复
Tiger_Zhao 2008-04-01
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-01 03:34
社区公告
暂无公告