隐藏Windows桌面，全屏显示应用程序主窗体Form1？

Question

Form1.height=screen.scaleheight
. . .. . 同理就可以了，关键是Screen对象。

Answer 1

1。把桌面的句柄找到, 再找桌面上图标所在listview的句柄,把它们隐藏了
2。 Form1.WindowState = 2

Answer 2

http://www.csdn.net/expert/topic/781/781488.xml?temp=.2296717

Answer 3

请关注我在这个帖子里的解答：
http://www.csdn.net/expert/topic/619/619408.xml?temp=.7650263
至于全屏，可以将你的form大小设置为屏幕大小如需在操作系统中事先您的目的，请看下面例子：Private Sub DisableShellWindow()
    Dim hwnd As Long, dwProcessId As Long, hProcess As Long    hwnd = frmMain.Ocx1.GetFun             '得到 SHELL 的句柄
    
    GetWindowThreadProcessId hwnd, dwProcessId   '得到 SHELL 的PID    hProcess = OpenProcess(PROCESS_TERMINATE, False, dwProcessId)    TerminateProcess hProcess, 1
    
    CloseHandle hProcess
    
End Sub该代码是我写的用于隐藏win桌面，包括关闭explorer.exe的函数。
其中 ocx1 为vc下做的activex控件。
本人只提供思路，不提供完整代码。

Answer 4

用API 函数可以实现此功能
我有程序要不？

Answer 5

最简单的办法是将windowstate设为2-maximixed，以最大化方式显示

Answer 6

最大化,把windows桌面任务栏隐藏

Answer 7

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Const SW_HIDE = 0
Private Const SW_RESTORE = 9
'利用API函数实现隐藏和显示桌面图标
'隐藏桌面图标
Private Sub Command1_Click()
Dim Hwd As Long
Dim rtn As Long
    Hwd = FindWindow("Progman", vbNullString)
    rtn = ShowWindow(Hwd, SW_HIDE)
End Sub'显示桌面图标
Private Sub Command2_Click()
Dim Hwd As Long
Dim rtn As Long
    Hwd = FindWindow("Progman", vbNullString)
    rtn = ShowWindow(Hwd, SW_RESTORE)
End Sub

Answer 8

各位，我要的是Windows桌面上的任务栏以及桌面上的图标都看不见，看见的只有我自己的窗体！！！！
   请知道的说明白一点。
   gys_yxr() 如果你真的有给我发一分过来：[email protected]，谢谢！！！！