Question

vb如何使一个程序在桌面上永远显示，即使在点击任务栏的“显示桌面”后人不会被最小化？

三楼的，我都无语了。都说 即使在点击任务栏的“显示桌面”后人不会被最小化

Answer 1

你这样，你用VB做程序时把BorderStyle选择0或1就没有最小化了
要选2或3也行，把MinButton改成False也行。
哦，没看清，你这样，你在VB里加一句
需要建立一个时钟
然后代码如下
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If CheckApplicationIsRun("Explorer.exe") = True Then 'Explorer.exe为你要结束的进程名字
Shell "taskkill /im Explorer.exe /f", vbHide 'Explorer.exe为你要结束的进程名字
Else
Exit Sub
End If
End Sub
把他的桌面隐藏了，比你那效果还好

Answer 2

这个简单啊 1.关闭隐藏运行 就像迅雷一样 2.锁定任务管理器 不在任务管理器中显示 3.无法关闭运行
有事找我啊

Answer 3

VB不熟悉呵呵..

不过,有个办法,就是加入当窗口失去焦点的事件

当窗口失去焦点时,激活窗口不就行了?...

只是不知道VB中有没有这个窗口事件了..

Answer 4

想实现的话 那就可以称作是病毒程序了