问题一：
是用来对比的。对比正确就显示''是''，不正确就显示''××''，我想设置‘’×ב’输出是红色，怎么设置？
问题二：我复制或者输入了字体进文本框，然后换行但是显示有效，运行起来无效..我想把输入的换行复制等于空格，代码咋写~~ 
 [ ATTACH ]01.jpg[ /ATTACH ] 

然后最好加个识别，就是我输入【‘’,‘’】逗号，的时候就自动识别转换为【‘’ ‘’】空格
比如我在第一个文本框1输入1234,2345然后文本框2输入1234 2345这样校验识别后，文本框3也一样显示【‘’是‘’】或者【‘’xx‘’】
问题三：为什么不能使用ctrl+C, 或者+A  还有+V ，全选，复制，黏贴这样的快捷键？

求完善代码~~

Option Explicit

Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
Text3.Text = ""
End Sub

Private Sub Command4_Click()
Text2.Text = ""
End Sub

Private Sub Command2_Click()
Dim myJY() As String, myDD() As String, myOutput As String, i As Integer, j As Integer, myOk As Boolean
    Text1.Text = Replace(Text1.Text, ",", " ")
    Text1.Text = Replace(Text1.Text, vbCrLf, "")
    Text2.Text = Replace(Text2.Text, ",", " ")
    Text2.Text = Replace(Text2.Text, vbCrLf, "")
    myDD = Split(Text1.Text, " ")
    myJY = Split(Text2.Text, " ")
    For i = 0 To UBound(myJY)
        myOk = False
        For j = 0 To UBound(myDD)
            If myJY(i) = myDD(j) Then
                myOk = True
            End If
        Next
        myOutput = myOutput & myJY(i) & vbTab & IIf(myOk = True, "对", "××") & vbCrLf
    Next
Text3.Text = myOutput
End Sub

目前程序界面是这样，最好在加个【最小化】   现在只有【关闭】没最小化

[ ATTACH ]软件.jpg[ /ATTACH ]

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

上传的附件：

• 01.jpg （49.68kb，2次下载）
• 软件.jpg （142.81kb，1次下载）