在我自己正在做的项目中,试用了一下忘了是哪位老师发在论坛里的小东西,运行后,再也无法清除,好像永驻内存。计划代码如下:
Static ib As Boolean
Dim f As WinForm.Form = Forms("新消息")
Dim fw As Integer = 250
Dim fh As Integer = 500
Dim k As Integer = 1
If k > 0 AndAlso f.Opened = False Then
f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If
If f.Opened Then
Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
For i As Integer = 1 To h
f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
Next
End If
End If
大家给个清除方案
http://www.foxtable.com/bbs/viewFile.asp?BoardID=2&ID=31706