重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、按以下顺序“启动→所有程序→MicrosoftVisualBasic6.0中文版→MicrosoftVisualBasic6.0中文版”打开VB6.0。
成都创新互联公司长期为上千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为新荣企业提供专业的成都网站设计、成都网站制作,新荣网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
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进行交流!
把所有文本都删掉的代码如下:
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = "" ‘这里设置需要清空的文本,""的意思是清空
End Sub
清空所有窗口的话,直接就是把所有的东西都划掉就可以了,很简单的。