用VB如何实现屏幕振动？ [复制链接]

上一主题下一主题查看指定楼层

离线gsl27

UID: 5632

闪电元勋

发帖: 4831

今日发帖

最后登录: 2023-11-18

只看楼主倒序阅读使用道具楼主发表于: 2008-06-18 16:53:38

自助获取论坛邀请码

用VB如何实现屏幕振动？

　　用VB来实现屏幕振动，非常容易做到，也许你会觉得不可思议。看过下面的内容后，你就会发现，其实这一点都不难。
　　编程思路

　　将整个屏幕抓到一个窗体内，将另外一个窗体的背景置为黑色作为背景，随机不断改变窗体的位置就产生了振动效果。

　　界面设计

　　首先创建两个窗体Form1和Form2，将Autoredraw属性设为True,Borderstyle属性设为None(即无边框），其中Form2作为背景，再将其BackColor属性设为黑色。在Form1上放置一定时器控件Timer1，将其Interval值设为100。

　　程序代码

　　Option Explicit
　　Dim screenhwnd, screendc, rc
　　Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long ‘以下API函数可以通过VB自带的API文本浏览器复制而来。
　　Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
　　Private Declare Function GetDesktopWindow Lib "user32" () As Long
　　Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
　　Private Sub Form_DblClick()
　　End ’双击窗体结束程序
　　End Sub
　　Private Sub Form_Load()
　　Randomize
　　Form2.Width = Screen.Width ’调整窗体的大小、位置使之覆盖整个屏幕
　　Form2.Height = Screen.Height + 100
　　Form2.Top = 0
　　Form2.Left = 0
　　Form1.Top = 0
　　Form1.Left = 0
　　Form1.Width = Screen.Width
　　Form1.Height = Screen.Height + 100
　　screenhwnd = GetDesktopWindow() ’取得桌面窗口的句柄
　　screendc = GetDC(screenhwnd)
　　rc = BitBlt(Form1.hdc, 0, 0, Form1.ScaleWidth, Form1.ScaleHeight, screendc, 0, 0, &&HCC0020) ’把整个屏幕抓到窗体中
　　rc = ReleaseDC(screenhwnd, screendc)
　　Form2.Show
　　Form1.Show
　　Form1.ZOrder ’使窗体居于顶层
　　End Sub
　　Private Sub Timer1_Timer()
　　’随机改变窗体的位置
　　Form1.Top = Form1.Top + Rnd * 100
　　Form1.Left = Form1.Left + Rnd * 100
　　Form1.Top = Form1.Top - Rnd * 100
　　Form1.Left = Form1.Left - Rnd * 100
　　End Sub
　　OK，你可以实验一下振动效果了，双击屏幕恢复。

发帖回复

返回列表


	关闭您还没有登录，快捷通道只有在登录后才能使用。立即登录还没有帐号？赶紧注册一个


	关闭选中1篇全选

帖子

用VB如何实现屏幕振动？ [复制链接]