vb.net实现桌面的简单介绍

vb.net如何做一个类似手机桌面的效果，就是可以托一下就换一个桌面，还要有拖动的效果。

我晕。。。

1楼，楼主说的是类似手机桌面，不是说些手机程序（虽然.net确实可以写手机程序（蛋疼。。））

2楼，为啥不直接改变容器的Left。。。。

切入正题，大致思路：

用一个容器，如Panel来盛装所有控件，Panel的MouseMove事件中通过e.Button判断左键按下来实现拖动的效果，然后在计时器中更改Panel的Location。（这样做很简单，但效率非常低）

要流畅的话，就自己写一个容器控件，内部的子控件全部自己绘制（实现一些轻量级的控件类），不过工作量较大

相关问答

Q1: 怎么用VB.NET2005编程实现在桌面随机位置显示随机不同的图片，一下显示一种图片），望高手帮忙，

当程序运行的时候你可以将窗体作为Form的背景图，然后创建一个类，类继承Picture，然后用一个线程不停的创建这个类，再使用Form中的鼠标点击事件，或者退出程序，或者清除掉所有的类

Q2: 怎么用VB.NET2005编程实现在桌面随机位置显示随机不同的图片，一下显示一种图片），望高手帮忙

你是没有对你的桌面进行刷新吧，在下一张图片显示之前应该刷新一下你的桌面，不然是不会擦出上一张图片的

Q3: vb.net 模拟 Win + D 显示桌面

显示桌面vb.net实现桌面的本质是个系统 Shell（IShellDispatch4.ToggleDesktop()）vb.net实现桌面，所以只需要调用这个 Shell 就好vb.net实现桌面了vb.net实现桌面，用不着模拟按键。

项目引用 C:\Windows\System32\shell32.dll，参考代码vb.net实现桌面：

Dim objShel As Shell32.ShellClass = New Shell32.ShellClass()

CType(objShel, Shell32.IShellDispatch4).ToggleDesktop()

Q4: 怎么用VB.NET2005编程实现在桌面随机位置显示随机不同的图片，望高手帮忙

基本搞定，你需要改的是count的值，图片的路径，并记得在Form1中添加一个Timer1，设置Interval的值

我的实现方法是把Form1做成全屏，懒得去碰Window的Screen，挺麻烦的

----------------------------------------------------------------------------------------------------------------------

Public Class Form1

    Dim count As Integer = 4

    Dim pics(count) As String

    Dim x = SystemInformation.PrimaryMonitorSize.Width

    Dim y = SystemInformation.PrimaryMonitorSize.Height

    Dim ran As Random = New Random()

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Timer1.Stop()

        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        pics(0) = "D:\pics\10-100FQ94307.jpg"

        pics(1) = "D:\pics\10-100FQ94310.jpg"

        pics(2) = "D:\pics\10-100FQ94316.jpg"

        pics(3) = "D:\pics\10-100FQ94317.jpg"

        pics(4) = "D:\pics\10-100FQ94324.jpg"

        Me.ControlBox = False

        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

        Me.MaximizeBox = False

        Me.MinimizeBox = False

        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual

        Me.Text = ""

        Me.WindowState = FormWindowState.Maximized

        Randomize()

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim tmpPic As PictureBox = New PictureBox()

        tmpPic.AutoSize = True

        tmpPic.Load(pics(CInt(ran.NextDouble() * count)))

        tmpPic.Visible = True

        tmpPic.Left = CInt(ran.NextDouble * x)

        tmpPic.Height = CInt(ran.NextDouble * y)

        Controls.Add(tmpPic)

        AddHandler tmpPic.Click, AddressOf Form1_Click

    End Sub

End Class

Q5: VB.NET编写的窗体如何能够接管WIN的桌面，只有退出窗体才能回到WIN桌面？

可以实现啊，只要获得管理员权限。

首先API获取桌面和任务栏的窗口句柄，把两者都隐藏。

再使自身窗体(无边框)充满整个屏幕，并位于最底层就可以了。

退出的时候恢复显示桌面图标。

关于vb.net实现桌面和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。