堆栈控件溢出
对象‘URL’的方法‘IWMpplayer4’失败
请问这是神马问题?
搞不懂了,看了解释就更不明白了~~~
帮帮吧,欧系新手不想遭到打击呀
对象‘URL’的方法‘IWMpplayer4’失败
请问这是神马问题?
搞不懂了,看了解释就更不明白了~~~
帮帮吧,欧系新手不想遭到打击呀
解决方案 »
- word打开时始终执行一个函数
- 求自增量~~~
- 一表中有id、累计电量、当日电量3个字段,如id=2的累计电量为123,id=1是的累计电量为100,如何取得这两个累计电量的差(123-100),存放到id=2记录中的当日电量中。谢谢!
- 如何修改下拉列表框的字体?
- 我用了SELTEXT是RICHTEXTBOX中的字体发生了改变,可是随后输入的字符也随着改变,如何,不随着改变呢?
- VBA培训
- 我用vb写了一个进度条的程序,里面有个逻辑bug!请大家帮个忙解决一下!
- select case初级问题
- 如何从文件读取参数,并且隔一定的时间执行一部分?
- 有这么一个问题,大家有空的请回答!
- 请问那位高手可以给介绍一个代替DCOM使用的软件
- 过程声明与同名事件或过程描述不匹配 找不出原因 求解
又冒出来第二个问题,
对象'play'的方法'IWMPcontrols3‘失败
肿么解决呢~~~
Private Sub wmp1_OpenStateChange(ByVal NewState As Long)Form1.wmp1.currentPlaylist.Clear
Dim f As Long
MyPath = "D:\酷我缓存\*.wma" ' 指定路径。
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
'MsgBox myname
' Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\%E4%B8%80%E5%89%AA%E6%A2%85.wmp")
Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\" & myname)
myname = Dir ' 查找下一个目录。
Loop
wmp1.Controls.play
End Sub