注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

白爱民 廊坊师范学院信息技术提高班十四期

变是不变的,你永远满足不了你的欲望

 
 
 

日志

 
 

87百例有感  

2017-01-01 15:56:57|  分类: VB总结 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
这是困扰我很长时间的例子了,一时无心去管,但又不得不管

Option Explicit


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Activate()                                                ‘这里无法大写怎么办,(凉拌)将他重新再在附件1的上面添加
Animation1.Open "C:\Users\jf\Desktop\FILEDELR.AVI"    ’这里的地址总是无法正确输入怎么办。看附件二
Animation1.Play
End Sub


Private Sub Timer1_Timer()
Static i As Integer
ProgressBar1.Value = i
i = i + 1
Label1.Caption = "正在删除文件,剩余" & Str(60 - i) & "秒"

If Str(60 - i) = 0 Then
End
End If

End Sub

附件一:
87百例有感 - 十四期  白爱民 - 白爱民 廊坊师范学院信息技术提高班十四期


附件二:可以将视频放进c盘,然后在属性里会出现安全,这个地址足以搞定
87百例有感 - 十四期  白爱民 - 白爱民 廊坊师范学院信息技术提高班十四期
 


像34例子,是喷泉的,这个也是弄了很久才弄好,总结唯一一点就是当时没有弄清楚符号,如果一直不行,可以重新像附件一中的一样,将代码直接放进里面去,这样就可以搞定了,大小写只是判断这句话的错误,并不影响他的执行,就像下面的其中一个小小的例子:(两边划线的并不都一样,但是照样可以执行)
87百例有感 - 十四期  白爱民 - 白爱民 廊坊师范学院信息技术提高班十四期
 
 

补充87
Animation1.Open ("d:\AA.AVI")   ' 打开动画文件

 

1】该控件中只能使用无声的AVI动画。要播放有声的.avi文件,请使用Multimedia控件(MCI)

2】播放无声的AVI动画

Private   Sub   cmdPlay_Click()

      '配置一个   CommonDialog   控件,以便用户找到要播放的.avi文件。

      'CommonDialog控件的名称是“dlgOpen”。

      'Animation   控件 的名称是“anmAVI”。

      dlgOpen.Filter   =   "avi   文件   (*.avi)|*.avi "

      dlgOpen.ShowOpen

      anmAvi.Open   dlgOpen.FileName

      anmAVI.Play

End   Sub


心有多宽,路有多长(就像身体一样,二十岁就长大了,但是心可以供活80年)  

    加油!
  评论这张
 
阅读(41)| 评论(14)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018