重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
背景用PICTURE属性,
创新互联是一家专注于网站设计制作、网站设计与策划设计,绥江网站建设哪家好?创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:绥江等地区。绥江做网站价格咨询:18982081108
背景音乐用以下代码:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
'播放
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意,必须指定String的长度
Result = mciSendString("play d:\背景音乐.wav", ReturnStr, 1024, 0)
End Sub
Private Sub Command2_Click()
'停止
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意,必须指定String的长度
rc = mciSendString("close d:\背景音乐.wav", 0, 0, 0)
End Sub
'循环的话,可以检测其状态,如果不想检测的话,用个计时器,Interval设置成播放完需要的时间即可
二、背景音乐
1.右键单击vb左边的工具栏 选择部件。
2.出来的对话框添加 windows media player 在最后面。(如果没有,按浏览,在windows下面的system32目录 里面有个wmp.dll 就是了)
3.按确定,把多出来的控件画到窗体上面
4.改属性。里面的url可以填硬盘的文件,也可以填网络上的。
5.如果不想让控件显示出来 改Visible属性,为false
6.如果不想用物理路径直接指定音乐文件。可以在form的load事件添加代码
WindowsMediaPlayer1.url = app.path "\music.mp3"
这样子音乐文件就是你的程序同目录下的music.mp3
非本人原创
难道我这VS安装的盗版的?
你的意思就是
button不能设置背景图片?
不可能吧?
你不要误导我,哥。
回答:
不是不能设置背景图片哈,关键是你要设置那个控件的背景图片哈,这才是关键!比如说你要设置网页的,那么就修改网页的。如果要设置button的,就修改button的赛。
就是实现一个动态按钮的效果,当鼠标移动到按钮上,背景变换成另外一张图
为啥不能显示?我试过,如果图像文件的名字很奇怪,就不能显示,VB 不支持它。你改个很一般的名字即可。图像不需要用资源文件,用 ImageList 控件:
Me.BackGroundImage = 图像列表.Images(0)