189 8069 5689
什么位置呀？是路径还是坐标？路径很简单，坐标要复杂点。如果是路径可以首先获取系统路径，这样可以根据不同的系统或者系统安装路径不同都能获取到，坐标的获取或者是截图的话，可以参考别的东西，如果需要我再给你找找文件
创新互联成立于2013年，是专业互联网技术服务公司，拥有项目成都网站设计、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元乌审做网站,已为上家服务,为乌审各地企业和个人服务,联系电话:13518219792
想不起来了，不过给你个思路，要没人回答也许能用上。
VB里有一个声音播放控件。把这个放在窗体上。
它有一些属性，和方法。
你在窗体加载的时候就使用播放方法。
而当播放完毕的事件发生后，在使用播放方法。
这样同一个歌曲就可以循环播放了。
很简单的，只是那是我一年前做的程序了，又没有备份。
当程序运行的时候你可以将窗体作为Form的背景图，然后创建一个类，类继承Picture，然后用一个线程不停的创建这个类，再使用Form中的鼠标点击事件，或者退出程序，或者清除掉所有的类
简单啊，可以调用命令行，不要死脑筋哦
[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 中，你编好的窗体仅仅是一个类而已，不像 VB6，窗体本身就是一个对象。就是说，如果要显示窗体，你需要将你编的窗体类实例化对一个对象，然后再调用这个对象：
Dim frm As New frmDlg ' 将 frmDlg 窗体类实例化为对象 frmfrm.Show() ' 将实例化的对象显示出来
基本搞定，你需要改的是count的值，图片的路径，并记得在Form1中添加一个Timer1，设置Interval的值
我的实现方法是把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