做一个按钮，一个TEXT框。
简单的说就是按钮去除空行（如果该行不为空就不用退格）
比如：
123

456
按钮作用：
123
456
而不是：123456

自己写了下，帮忙看下错在哪里。貌似实现不了。

Private Sub Command6_Click()
S = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(S)
If Len(S(i)) > 0 Then
S(i) = Replace(Text1.Text, vbCrLf, Chr(8))
End If
Next i
End Sub

Private Sub Command6_Click()
  Dim a As String, b As String
  a = Text1
  Do
    b = a
    a = Replace(a, vbCrLf & vbCrLf, vbCrLf)
  Loop Until a = b
  Text1 = a
End Sub


[ 本帖最后由 lowxiong 于 2013-4-17 22:23 编辑 ]