vb如何加一个清除文本框内容的按钮？

在 VB 中，可以通过添加一个按钮来实现清除文本框内容的功能。下面是一个简单的示例：

在 VB 中，打开窗体设计器，将一个按钮控件添加到窗体中。

右键单击按钮控件，选择“属性”。

在“属性”窗口中，找到“Text”属性，并将其更改为“清除”。

双击按钮控件，在代码编辑器中打开“Click”事件处理程序。

在事件处理程序中，添加以下代码来清除文本框内容：

TextBox1.Text = ""

其中，TextBox1 是要清除内容的文本框的名称。

运行程序，单击“清除”按钮，可以看到文本框的内容被清空了。

这样就完成了在 VB 中添加一个清除文本框内容的按钮的过程。可以将上述步骤用于任何文本框，只需将代码中的文本框名称替换为需要清空的文本框的名称即可。

一、只删框，保留文本。

1、选中文本框，右击，选择“设置文本框格式”2、选择“颜色和线条”对话框，设置“无填充颜色”、“无线条颜色”即可。二、删除文本框及文本。

右击文本框，点击“剪切”即可。选中文本框，点击“Delete”键亦可。

三、删除组合中的文本框。1、选中组合对象，右击，选择“组合”－“取消组合”。

2、取消组合后，就可以对单一的文本框进行“删除”了。

$(document).ready(function () {

//input加上删除按钮

    var $inputText =$("input[type='text'][name='name'],input[name='awardName'],input[name='typeName'],input[name='qutoaFormulateName'],input[name='userName'],input[name='unitName']")

    $inputText.wrap('<span></span>')

    $inputText.parent().css({

"position":"relative"

    })

    $inputText.keyup(function() {

$(this).change()

    })

    $inputText.change(function() {

if ($(this).val() !="" &&$(this).parent().find("i").length <=0) {

// console.log("改变了")

            var $mThis =this

            $(this).parent().append("<i class='Hui-iconfont clear_btn' style='display:blockposition: absolutetop: 0right:5%'></i>")

            $(".clear_btn").click(function() {

$(this).parent().find("input").val("")

                $(this).remove()

})

        }else if ($(this).val() =="" &&$(this).parent().find("i").length >0) {

$(this).parent().find("i").remove()

        }

})

})

---