全屏看电影可以设置收到窗口震动吗？教我、

全屏看电影可以设置收到窗口震动吗？教我、

把QQ调成Q我吧模式

人在囧途qvod快播播放|人在囧途高清下载-喜剧片-电影手|电影天堂_www.dyshou.com qvod快播播放地址： http://www.dyshou.com/content/?1158.html 更多快播电影就在 http://www.dyshou.com/ 播放影片名称：人在囧途 影片所属：2010 - 喜剧片 主要演员：徐峥 王宝强 李曼 人在囧途迅播在线播放-喜剧片-5318迅播高清电影|免费电影|热门电影 http://www.5318.cc/a/12573.html 更多迅播电影就在 http://www.5318.cc/ 播放影片名称：人在囧途 影片所属：2010 - 喜剧片 主要演员：徐峥 王宝强 李曼 剧情介绍 春节将近，玩具集团老板李成功（徐峥饰）回长沙过年，同时在情人嫚妮（李曼饰）的逼迫下，准备过年后跟老婆离婚。结果，在机场遇到前往长沙讨债的挤奶工牛耿（王宝强饰）后，霉运不断。命运的捉弄，牛耿一路都与李成功不期而遇。两人路途中囧事不断，也遭遇了各式各样的人和千奇百怪好笑的事情，弄得李成功狼狈不堪，高贵形象荡然无存。牛耿（王宝强饰）却不以为意乐观积极。为了能够回家，二人结伴而行，他们换了各种交通方式奔波在回家的路上，飞机，火车，大巴，轮渡，搭货车，甚至拖拉机……有一次上公开课，老师问我们一个问题：“各位同学，有谁知道长度的单位是什么啊？”这时候，班上最最乖巧的一个同学举手要求回答，这是课前老师安排好的，当然就的他回答啦。“ 但是两人还是在荒郊野外度过了大年三十，回首这一路的艰辛，与他们路途中遇到人或事，对两人人生有了很大触动，…… 最终，在经历了两人从敌对到成为朋友，牛耿的真诚也改变林李成功冷漠的性格，唤起李成功对真情的回归。 当疲惫的李成功回到家，却不料嫚妮比他还早到一步，甚至见到了李成功的妻子，李成功懵了，满怀忐忑的李成功回到家看到停留在墙上未撕去的日历，看到其乐融融的妻女与老人，李成功也明白了他该做出什么样的选择。鞭炮响起，李成功与妻子深情相拥，我们知道这一年，李成功回家了，不光是身体，还有心灵。

窗体上放一个Timer控件： Private Sub Form_Load() Timer1.Interval = 500 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim ll As Single, tt As Single Static aa As Integer, ii As Integer If aa = 0 Then If Second(Now) = 0 Then aa = 1 AppActivate Me.Caption Me.SetFocus End If Else ll = Me.Left tt = Me.Top For ii = 0 To 20 Me.Top = Me.Top + Int(Rnd * 300 - 150) Me.Left = Me.Left + Int(Rnd * 240 - 120) DoEvents Me.Top = tt Me.Left = ll Next aa = aa + 1 If aa > 7 Then aa = 0 End If End Sub 以上代码是设定为每隔一分钟（当秒钟为0时）自动震动4秒，自己改 http://www.mayav.net