| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 591 人关注过本帖
标题:show flash问题
只看楼主 加入收藏
lsywf
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-6-27
收藏
 问题点数:0 回复次数:2 
show flash问题
   3个label  当鼠标移到label1时 show出flash1(ShockwaveFlash框内显示),且label1文字变色(label2和label3字体颜色不变)当鼠标移到label2时 show出flash2(flash1关闭),且label2文字变色(label1和label3字体颜色不变),label3类推。
 本人初学,希望前辈能给个详细代码以供参考。在此谢过。
搜索更多相关主题的帖子: flash show 
2009-10-07 15:03
lsywf
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2008-6-27
收藏
得分:0 
帮个忙啊 ???
2009-10-10 20:07
msgj
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:190
专家分:914
注 册:2009-10-3
收藏
得分:0 
你看看是不是想要这个效果
Private Sub Form_Load()
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,0"
Fla1.Movie = "h:/c/vc++ 视频/101.swf"
Fla1.Playing = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,255"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,0"
Fla1.Playing = True
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,255"
Label3.ForeColor = "0,0,0"
Fla1.Stop
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = "0,0,0"
Label2.ForeColor = "0,0,0"
Label3.ForeColor = "0,0,255"
Fla1.Playing = True
End Sub
2009-10-11 11:08
快速回复:show flash问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015833 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved