主题：[求助]TextBox控件问题【20160327版】

DataParse 被触发了两次导致的。

static ptime As Date = Nothing

Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
    e.value = e.text
Else
    ptime = Date.now
    If e.Value IsNot Nothing Then
        e.Value = EncryptText(e.Value, "123", "123")
    End If
End If

或者，你把代码写到ValueChanged事件

If e.sender.Value IsNot Nothing Then   
    e.sender.Value = EncryptText(e.sender.Value, "123", "123")
End If

再说一次，测试没有问题啊。看3楼的方法，不要写DataParse事件啊