十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
把所有文本都删掉的代码如下:
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了吴堡免费建站欢迎大家使用!
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = "" ‘这里设置需要清空的文本,""的意思是清空
End Sub
清空所有窗口的话,直接就是把所有的东西都划掉就可以了,很简单的。
1、按以下顺序“启动→所有程序→MicrosoftVisualBasic6.0中文版→MicrosoftVisualBasic6.0中文版”打开VB6.0。
2.在窗体zd的“属性”窗口中,将“标题”和“名称”属性的值更改为“测试”,可以看到项目的标题栏和主体被更改为“测试”。
3.双击“测试”表单,弹出“编程”框。在编程框的“process”框中,选择“Click”点击事件,编写程序“test.print”。
4.关闭通用编程框,按“F5”或单击“start”按钮运行窗体程序。点击表单,文字“百度体验欢迎您”出现,每次点击一次,文字出现一次。
5.继续在“测试”窗体的“过程”框中选择“点击”事件,编写程序“测试”。宽度=测试。宽度+500”。
6.关闭编程框,点击工具栏上的“开始”按钮,运行窗体程序。我们发现,每次我们点击表单,它就会增加500个。
要在VB.NET中清屏已经不再是象是在VB6中那么简单使用一条Cls就能搞定的,因为现在的VB.NET已经是完全面向对象的语言了,方法就不能和以前那样了,下面给出清空窗体的源代码,通过单击按钮清空,如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = Me.CreateGraphics
g.Clear(Me.BackColor)
g.Dispose()
'释放对象g所占用的资源
End Sub
OK,程序已经成功实现你要的功能,运行环境VS.NET2003+Windows 2003 Server
欢迎你加入群:30538950进行交流!