新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
什么位置呀?是路径还是坐标?路径很简单,坐标要复杂点。如果是路径可以首先获取系统路径,这样可以根据不同的系统或者系统安装路径不同都能获取到,坐标的获取或者是截图的话,可以参考别的东西,如果需要我再给你找找文件
创新互联成立于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