免费观看又色又爽又黄的小说免费_美女福利视频国产片_亚洲欧美精品_美国一级大黄大色毛片

vb.net動態桌面 vbs顯示桌面

怎么用VB.NET2005編程實現在桌面隨機位置顯示隨機不同的圖片,望高手幫忙

Dim Ran1 As New Random()

創新互聯建站是一家專注網站建設、網絡營銷策劃、微信小程序定制開發、電子商務建設、網絡推廣、移動互聯開發、研究、服務為一體的技術型公司。公司成立10余年以來,已經為上1000+成都水電改造各業的企業公司提供互聯網服務?,F在,服務的上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://m.newbst.com/article40/dophieo.html

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

廣告

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

成都網站建設公司