点击Msgbox 中的确定按钮清空文本中的内容

今天是第一天在这里写博客，也是我进步的一个起始点。

vb学过已经学了一年了，但是今天在做机房收费系统的时候才意识到，自己真的好多知识都没有扎扎实实的学会。今天就碰到了一个比较让我头疼的问题，就是点击Msgbox中的确定按钮，然后就将文本框中的内容清空，这个应该怎么来做呢。经过半个小时的艰苦卓绝的奋斗，终于把结果奋斗出来了。

 

If MsgBox("充值成功！", vbOKOnly, "提示") = vbOK Then
            txtCardID.Text = ""
            txtRMoney.Text = ""
            List1.Clear
            txtCardID.SetFocus
        End If

虽然代码很简单，但是真心的又学到了知识，很开心，希望对大家也有帮助。