<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>
<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