vb.netgdi清空,清空显示内容

请问vb.net中如何实现窗体的清空

要在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进行交流!

相关问答

Q1: vb.net清空所有窗口

清空所有窗口的话，直接就是把所有的东西都划掉就可以了，很简单的。

Q2: vb.net 画图对象问题

参考一下下面这段代码：

‘ 首先picturebox1 加载一张图像

FolderBrowserDialog1.Description = "选择图片文件夹导入图片"

FolderBrowserDialog1.ShowDialog()

path = FolderBrowserDialog1.SelectedPath()

If path = "" Then Return

strSrcFile = Dir(path  "\*.tif")

PictureBox1.Image = Image.FromFile(path  "\"  strSrcFile)

’  然后再在picturebox1中用graphic画图而不清空原图像

' 建立一个画图对象

Dim g As Graphics = Me.PictureBox1.CreateGraphics

‘ 定义画笔

Dim myPen As System.Drawing.Pen = New System.Drawing.Pen(Color.Blue)

’ 画出矩形框并且填充颜色（颜色保持50%的透明度，使得下面原来的图片背景能看得到）

g.DrawRectangle(myPen, New System.Drawing.Rectangle(50, 50, 30, 20))

g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.YellowGreen)), New System.Drawing.Rectangle(50, 50, 30, 20))

' 最后释放画图对象

g.Dispose()

效果大致如下图所示：

Q3: vb.net combobox 如何清空数据

（1）如果ComboBox中的不是通过数据绑定得到的，用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项。

'清除所有项

ComboBox1.Items.Clear()

'清除ComboBox1显示

ComboBox1.ResetText()

（1）如果ComboBox中的是通过数据绑定得到的，在用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项之前，先断开绑定的数据源。

'断开数据源

ComboBox1.DataSource = Nothing

'清除所有项

ComboBox1.Items.Clear()

'清除ComboBox1显示

ComboBox1.ResetText()