什么位置呀?是路徑還是坐標(biāo)?路徑很簡單,坐標(biāo)要復(fù)雜點(diǎn)。如果是路徑可以首先獲取系統(tǒng)路徑,這樣可以根據(jù)不同的系統(tǒng)或者系統(tǒng)安裝路徑不同都能獲取到,坐標(biāo)的獲取或者是截圖的話,可以參考別的東西,如果需要我再給你找找文件
創(chuàng)新互聯(lián)成立于2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元烏審做網(wǎng)站,已為上家服務(wù),為烏審各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792
想不起來了,不過給你個(gè)思路,要沒人回答也許能用上。
VB里有一個(gè)聲音播放控件。把這個(gè)放在窗體上。
它有一些屬性,和方法。
你在窗體加載的時(shí)候就使用播放方法。
而當(dāng)播放完畢的事件發(fā)生后,在使用播放方法。
這樣同一個(gè)歌曲就可以循環(huán)播放了。
很簡單的,只是那是我一年前做的程序了,又沒有備份。
當(dāng)程序運(yùn)行的時(shí)候你可以將窗體作為Form的背景圖,然后創(chuàng)建一個(gè)類,類繼承Picture,然后用一個(gè)線程不停的創(chuàng)建這個(gè)類,再使用Form中的鼠標(biāo)點(diǎn)擊事件,或者退出程序,或者清除掉所有的類
簡單啊,可以調(diào)用命令行,不要死腦筋哦
[InternetShortcut] "E:\guiminer.url"
URL="E:\guiminer.exe" "E:\guiminer.url"
IconIndex=0 "E:\guiminer.url"
IconFile="E:\guiminer.exe" "E:\guiminer.url"
在 VB.NET 中,你編好的窗體僅僅是一個(gè)類而已,不像 VB6,窗體本身就是一個(gè)對象。就是說,如果要顯示窗體,你需要將你編的窗體類實(shí)例化對一個(gè)對象,然后再調(diào)用這個(gè)對象:
Dim frm As New frmDlg ' 將 frmDlg 窗體類實(shí)例化為對象 frmfrm.Show() ' 將實(shí)例化的對象顯示出來
基本搞定,你需要改的是count的值,圖片的路徑,并記得在Form1中添加一個(gè)Timer1,設(shè)置Interval的值
我的實(shí)現(xiàn)方法是把Form1做成全屏,懶得去碰Window的Screen,挺麻煩的
----------------------------------------------------------------------------------------------------------------------
Public?Class?Form1
Dim?count?As?Integer?=?4
Dim?pics(count)?As?String
Dim?x?=?SystemInformation.PrimaryMonitorSize.Width
Dim?y?=?SystemInformation.PrimaryMonitorSize.Height
Dim?ran?As?Random?=?New?Random()
Private?Sub?Form1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Click
Timer1.Stop()
Me.Close()
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
pics(0)?=?"D:\pics\10-100FQ94307.jpg"
pics(1)?=?"D:\pics\10-100FQ94310.jpg"
pics(2)?=?"D:\pics\10-100FQ94316.jpg"
pics(3)?=?"D:\pics\10-100FQ94317.jpg"
pics(4)?=?"D:\pics\10-100FQ94324.jpg"
Me.ControlBox?=?False
Me.FormBorderStyle?=?System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox?=?False
Me.MinimizeBox?=?False
Me.StartPosition?=?System.Windows.Forms.FormStartPosition.Manual
Me.Text?=?""
Me.WindowState?=?FormWindowState.Maximized
Randomize()
Timer1.Start()
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Dim?tmpPic?As?PictureBox?=?New?PictureBox()
tmpPic.AutoSize?=?True
tmpPic.Load(pics(CInt(ran.NextDouble()?*?count)))
tmpPic.Visible?=?True
tmpPic.Left?=?CInt(ran.NextDouble?*?x)
tmpPic.Height?=?CInt(ran.NextDouble?*?y)
Controls.Add(tmpPic)
AddHandler?tmpPic.Click,?AddressOf?Form1_Click
End?Sub
End?Class