要在VB.NET中清屏已经不再是象是在VB6中那么简单使用一条Cls就能搞定的,因为现在的VB.NET已经是完全面向对象的语言了,方法就不能和以前那样了,下面给出清空窗体的源代码,通过单击按钮清空,如下:
十余年的盐都网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整盐都建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“盐都网站设计”,“盐都网站推广”以来,每个客户项目都认真落实执行。
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进行交流!
这个问题我以前也遇到过,好像是显卡或显卡的驱动问题,在更换显卡(比较好一点的显卡)后问题解决了。
因为数据类型的不同,VB.NET调用系统API函数和VB6不太一样,VB6是这样:
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
在VB.NET中是这样调用:
DllImport("user32.dll", SetLastError:=True) _
Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As SetWindowPosFlags) As Boolean
End Function
参考:
vb.net 中没有了 time() 函数。
可以通过 Now().TimeOfDay 截取当前的系统时间。
Now()函数取当前的系统日期时间,TimeOfDay 方法取日期时间中的时间部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
变量s 就是 从午夜到现在经过的秒数。