Saturday, November 5, 2011

membersihkan textbox

<table border="”1″"><tbody>
<tr><td>
cara 1 

Sub kosong()
Text1.Text = ""
Text2.Text = ""
End Sub

tinggal panggil di commend buten yang di inginkan

cara 2
Public Sub ClearTextBoxes(frmClearMe As Form)
Dim txt As Control
For Each txt In frmClearMe
If TypeOf txt Is TextBox Then txt.Text = ""
Next
End Sub


panggil  call ClearTextBoxes(me)
</td></tr>
</tbody></table>

0 comments:

Post a Comment