怎么用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顯示桌面
鏈接地址：http://www.js-pz168.com/article40/dophieo.html

成都網站建設公司_創新互聯，為您提供商城網站、網站改版、靜態網站、Google、企業建站、響應式網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯