• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 26689|回复: 1

【高级技巧】想在小精灵界面上做动画Flash广告的看过来 [复制链接]

兄弟工程师01
头像

  • 版主
  • 211464
  • 21164
  • 13
  • 258 朵
  • 47817 个
  • 60 个
  • 263800
  • 2008-12-23
按键精灵开发者4级兔年勋章论坛MM小红帽学有所成按键元老管理人员
1#
t T
发表于 2009-03-31 15:30 | |只看楼主

1。首先要会懂VB自定义界面是怎么做的。
2。在自定义界面上留出一个广告栏位置。
3。在广告栏位置上放上一个PictureBox控件做为Flash广告播放用
4。具体实现看下面的VB代码跟图片演示
5。VB工程打包下载
  1. Option Explicit
  2. Dim tmpCtl As Object '全局定义控件对象
  3. Private Sub Command1_Click()
  4. Call 加载FLASH动画网址(Text1.Text) '添加自己的FLASH文件地址
  5. End Sub
  6. Private Sub Form_Load()
  7. Call 加载FLASH动画网址("http://cache.tv.qq.com/qqplayerout.swf?vid=5AAscRV6V40") '初始FLASH动画
  8. End Sub
  9. '用的时候只要调用以下过程即可，参数是FLASH动画网址
  10. Private Sub 加载FLASH动画网址(Flash_Path As String)
  11. If tmpCtl Is Nothing Then
  12. Else
  13. Controls.Remove tmpCtl '卸载控件对象
  14. Set tmpCtl = Nothing
  15. End If
  16. Set tmpCtl = Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash", Picture1) '添加控件
  17. tmpCtl.Width = Picture1.Width '设置外观
  18. tmpCtl.Height = Picture1.Height
  19. tmpCtl.Visible = True '显示控件对象
  20. tmpCtl.object.LoadMovie 0, Flash_Path '开始演示的FLASH文件
  21. End Sub
复制代码
您所在的用户组无法下载或查看附件

附件:您需要登录才可以下载或查看附件。没有帐号? 注册

    已有3评分我要评分查看所有评分
    点赞
    【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！

    【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？

    .
    回顶部
    QQ756546633
    头像

    初见

    • 幼儿园
    • 4148570
    • 9
    • 0
    • 0 朵
    • 55 个
    • 0 个
    • 380
    • 2016-10-05
    2#
    t T
    发表于 2016-11-04 20:49 | |只看该用户

    好好爱好

    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器