怎么用VB.NET2005編程實(shí)現(xiàn)在桌面隨機(jī)位置顯示隨機(jī)不同的圖片，望高手幫忙

Dim Ran1 As New Random()

創(chuàng)新互聯(lián)建站是一家專(zhuān)注網(wǎng)站建設(shè)、網(wǎng)絡(luò)營(yíng)銷(xiāo)策劃、微信小程序定制開(kāi)發(fā)、電子商務(wù)建設(shè)、網(wǎng)絡(luò)推廣、移動(dòng)互聯(lián)開(kāi)發(fā)、研究、服務(wù)為一體的技術(shù)型公司。公司成立10余年以來(lái)，已經(jīng)為上1000+成都水電改造各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務(wù)?，F(xiàn)在，服務(wù)的上1000+客戶與我們一路同行，見(jiàn)證我們的成長(zhǎng)；未來(lái)，我們一起分享成功的喜悅。

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

‘窗體全屏，并設(shè)置無(wú)邊框窗體。

Timer1.Enabled = True

End Sub

在Timer1_Tick的過(guò)程中

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

在窗體的以x、y為左上角位置繪制圖片。xy用random隨機(jī)數(shù)隨機(jī)產(chǎn)生，上下值分別在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編程實(shí)現(xiàn)在桌面隨機(jī)位置顯示隨機(jī)不同的圖片，一下顯示一種圖片），望高手幫忙，

當(dāng)程序運(yùn)行的時(shí)候你可以將窗體作為Form的背景圖，然后創(chuàng)建一個(gè)類(lèi)，類(lèi)繼承Picture，然后用一個(gè)線程不停的創(chuàng)建這個(gè)類(lèi)，再使用Form中的鼠標(biāo)點(diǎn)擊事件，或者退出程序，或者清除掉所有的類(lèi)

vb.net如何做一個(gè)類(lèi)似手機(jī)桌面的效果，就是可以托一下就換一個(gè)桌面，還要有拖動(dòng)的效果。

我暈。。。

1樓，樓主說(shuō)的是類(lèi)似手機(jī)桌面，不是說(shuō)些手機(jī)程序（雖然.net確實(shí)可以寫(xiě)手機(jī)程序（蛋疼。。））

2樓，為啥不直接改變?nèi)萜鞯腖eft。。。。

切入正題，大致思路：

用一個(gè)容器，如Panel來(lái)盛裝所有控件，Panel的MouseMove事件中通過(guò)e.Button判斷左鍵按下來(lái)實(shí)現(xiàn)拖動(dòng)的效果，然后在計(jì)時(shí)器中更改Panel的Location。（這樣做很簡(jiǎn)單，但效率非常低）

要流暢的話，就自己寫(xiě)一個(gè)容器控件，內(nèi)部的子控件全部自己繪制（實(shí)現(xiàn)一些輕量級(jí)的控件類(lèi)），不過(guò)工作量較大

怎么用VB.NET2005編程實(shí)現(xiàn)在桌面隨機(jī)位置顯示隨機(jī)不同的圖片，一下顯示一種圖片），望高手幫忙

你是沒(méi)有對(duì)你的桌面進(jìn)行刷新吧，在下一張圖片顯示之前應(yīng)該刷新一下你的桌面，不然是不會(huì)擦出上一張圖片的

標(biāo)題名稱(chēng)：vb.net動(dòng)態(tài)桌面 vbs顯示桌面
鏈接地址：http://jinyejixie.com/article40/dophieo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、網(wǎng)站改版、靜態(tài)網(wǎng)站、Google、企業(yè)建站、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)