如何实现屏幕变暗的效果？

2003-05-15 07:51:30 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Android 动画效果弹出PopupWindow，同时屏幕背景变暗最近做项目的时候，希望弹出一个PopupWindow，但是效果并不美观，所以自己写了个效果，动画弹出PopupWindow，是飞入/飞出，加上渐变的效果。在弹出PopupWindow的同时，改变屏幕背景的透明度，使屏幕背景变暗。阅读详情

...全文

Swift开发之弹窗时屏幕变暗以下做法是作者自己用的，不知道（之前也没空去找）有没有更好的办法（八成有的）。仅供参考之前要做一个效果，即点击按钮弹出半屏设置框（屏幕下方上来），同时剩余屏幕（透明处）变暗，点击透明处可以退出。因为作者的VC是带有导航栏的，直接加一层透明View或者调暗无法覆盖到导航栏所以pass。思来想去只能加一层全屏VC了 let darkVC = UIViewController() darkVC.modalPresentationStyle = .overFullScreen self.present(dar 阅读详情

gougou5

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

LoveBH 2003-05-15

打赏
举报

幕变暗实际上就是将屏幕原来图像与花色进行与运算以后的结果。因此，首先要使用API函数CreateBitmap（创建位图对象）和CreatePatternBrush（创建花色对象）来建立花色对象，然后再使用BitBlt函数使屏幕图像与花色进行与运算，这样就可以产生变暗的效果。要恢复屏幕的正常显示，需要使用API函数InvalidateRect

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
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
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Private Const MERGECOPY = &HC000CA

'将图变暗，如同待关机一般
Private Sub Command1_Click()
Dim hBitmap As Long, hBrush As Long
Dim hdcscr As Long
Dim widthscr As Long
Dim heightscr As Long
Dim bybits(1 To 16) As Byte
'创建花色对象
bybits(1) = &H55: bybits(3) = &HAA: bybits(5) = &H55: bybits(7) = &HAA
bybits(9) = &H55: bybits(11) = &HAA: bybits(13) = &H55: bybits(15) = &HAA
hBitmap = CreateBitmap(8, 8, 1, 1, bybits(1))
hBrush = CreatePatternBrush(hBitmap)
'得到屏幕句柄
hdcscr = GetDC(0)
'得到屏幕的高与宽，单位为象素
widthscr = Screen.Width \ Screen.TwipsPerPixelX
heightscr = Screen.Height \ Screen.TwipsPerPixelY
'选用对象
hOldPatten = SelectObject(hdcscr, hBrush)
'产生屏幕变暗效果
BitBlt hdcscr, 0, 0, widthscr, heightscr, hdcscr, 0, 0, MERGECOPY
'恢复屏幕的对象
SelectObject hdcscr, hOldPatten
ReleaseDC 0, hdcscr
'删除位图与花色对象
DeleteObject hBrush
DeleteObject hBitmap
End Sub

'回复原本的画面
Private Sub Command2_Click()
InvalidateRect 0, 0, 1
End Sub

欢迎光临电脑爱好者论坛 bbs.cfanclub.net

如何实现屏幕变暗的效果？

相关推荐