vb.net动态桌面 vbs显示桌面

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

Dim Ran1 As New Random()

创新互联建站是一家专注网站建设、网络营销策划、微信小程序定制开发、电子商务建设、网络推广、移动互联开发、研究、服务为一体的技术型公司。公司成立10余年以来，已经为上1000+成都水电改造各业的企业公司提供互联网服务。现在，服务的上1000+客户与我们一路同行，见证我们的成长；未来，我们一起分享成功的喜悦。

Public jpgfile As New List(Of Bitmap)

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

Timer1.Interval = 50

Ran1 = New Random(Date.Now.ToOADate)

For Each i As IO.FileInfo In New IO.DirectoryInfo("I:\我的文档\Images\1280X800").GetFiles("*.jpg")

Dim pic As New Bitmap(i.FullName)

‘ jpgfile.Add(New Bitmap(pic, pic.Size.Width / 8, pic.Size.Height / 8))’将图片同比缩小到8分之一。

Next

Me.BackColor = SystemColors.Control

Me.TransparencyKey = SystemColors.Control

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Me.WindowState = FormWindowState.Maximized

‘窗体全屏，并设置无边框窗体。

Timer1.Enabled = True

End Sub

在Timer1_Tick的过程中

Me.CreateGraphics.DrawImage(pic, New Point(x, y))

在窗体的以x、y为左上角位置绘制图片。xy用random随机数随机产生，上下值分别在0-me的大小宽高之间。

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

Dim n As Integer = Ran1.Next(0, jpgfile.Count - 1)

Dim pic As Bitmap = jpgfile(n)

Dim x As Integer = Ran1.Next(50, Me.Size.Width - pic.Size.Width - 50)

Dim y As Integer = Ran1.Next(50, Me.Size.Height - pic.Size.Height - 50)

Me.CreateGraphics.DrawImage(pic, New Point(x, y))

End Sub

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

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

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

我晕。。。

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

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

切入正题，大致思路：

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

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

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

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

标题名称：vb.net动态桌面 vbs显示桌面
链接地址：https://www.cdcxhl.com/article40/dophieo.html

成都网站建设公司_创新互联，为您提供商城网站、网站改版、静态网站、Google、企业建站、响应式网站

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联