建站
咨詢
售后
建站咨詢
新聞中心
怎么用VB.NET2005編程實(shí)現(xiàn)在桌面隨機(jī)位置顯示隨機(jī)不同的圖片，望高手幫忙
Dim Ran1 As New Random()
創(chuàng)新互聯(lián)建站是一家專注網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷策劃、微信小程序定制開發(fā)、電子商務(wù)建設(shè)、網(wǎng)絡(luò)推廣、移動(dòng)互聯(lián)開發(fā)、研究、服務(wù)為一體的技術(shù)型公司。公司成立10余年以來，已經(jīng)為上1000+成都水電改造各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務(wù)?，F(xiàn)在，服務(wù)的上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
‘窗體全屏，并設(shè)置無邊框窗體。
Timer1.Enabled = True
End Sub
在Timer1_Tick的過程中
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è)類，類繼承Picture，然后用一個(gè)線程不停的創(chuàng)建這個(gè)類，再使用Form中的鼠標(biāo)點(diǎn)擊事件，或者退出程序，或者清除掉所有的類
vb.net如何做一個(gè)類似手機(jī)桌面的效果，就是可以托一下就換一個(gè)桌面，還要有拖動(dòng)的效果。
我暈。。。
1樓，樓主說的是類似手機(jī)桌面，不是說些手機(jī)程序（雖然.net確實(shí)可以寫手機(jī)程序（蛋疼。。））
2樓，為啥不直接改變?nèi)萜鞯腖eft。。。。
切入正題，大致思路：
用一個(gè)容器，如Panel來盛裝所有控件，Panel的MouseMove事件中通過e.Button判斷左鍵按下來實(shí)現(xiàn)拖動(dòng)的效果，然后在計(jì)時(shí)器中更改Panel的Location。（這樣做很簡單，但效率非常低）
要流暢的話，就自己寫一個(gè)容器控件，內(nèi)部的子控件全部自己繪制（實(shí)現(xiàn)一些輕量級(jí)的控件類），不過工作量較大
怎么用VB.NET2005編程實(shí)現(xiàn)在桌面隨機(jī)位置顯示隨機(jī)不同的圖片，一下顯示一種圖片），望高手幫忙
你是沒有對(duì)你的桌面進(jìn)行刷新吧，在下一張圖片顯示之前應(yīng)該刷新一下你的桌面，不然是不會(huì)擦出上一張圖片的
分享題目：vb.net動(dòng)態(tài)桌面 vbs顯示桌面
本文鏈接：http://www.dlmjj.cn/article/dophieo.html
