麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

如何將整個畫面暗下來，如同關機前一般

2019-11-18 17:38:13
字體：大 中 小
來源：轉載
供稿：網友

Privatebybits(1To16)AsByte
PrivatehBitmapAsLong,hBrushAsLong
PrivatehDesktopWndAsLong
注釋：將圖變暗，如同待關機一般
PrivateSubCommand1_Click()
DimropAsLong,resAsLong
Dimhdc5AsLong,width5AsLong,height5AsLong
注釋：如果只要讓Picture1有效果將底下三行unMark取代hdc5,width5,height5三個值
注釋：hdc5=Picture1.hdc
注釋：width5=Picture1.ScaleWidth
注釋：height5=Picture1.ScaleHeight

注釋：底下三行設定整個螢幕都暗下來
hdc5=GetDC(0)
width5=Screen.Width/Screen.TwipsPerPixelX
height5=Screen.Height/Screen.TwipsPerPixelY

rop=&HA000C9注釋：與原圖做and運算
CallSelectObject(hdc5,hBrush)
res=PatBlt(hdc5,0,0,width5,height5,rop)
CallDeleteObject(hBrush)
注釋：如果只暗picture1則底下這一行要mark起來
res=ReleaseDC(0,hdc5)
EndSub
注釋：回復原本的畫面
PrivateSubCommand2_Click()
DimaaAsLong
注釋：如果只暗picture1則底下這一行要unMark起來
注釋：Picture1.Refresh

注釋：如果只暗picture1則底下這一行要mark起來
aa=InvalidateRect(0,0,1)
EndSub

PrivateSubForm_Load()
Dimary
DimiAsLong
ary=Array(&H55,&H0,&HAA,&H0,_
&H55,&H0,&HAA,&H0,_
&H55,&H0,&HAA,&H0,_
&H55,&H0,&HAA,&H0)
Fori=1To16
bybits(i)=ary(i-1)
Nexti
hBitmap=CreateBitmap(8,8,1,1,bybits(1))
hBrush=CreatePatternBrush(hBitmap)
Picture1.ForeColor=RGB(0,0,0)
Picture1.BackColor=RGB(255,255,255)
Picture1.ScaleMode=3
EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产精品久久久久久久午夜片 | 午夜精品老牛av一区二区三区 | 久久影城 | 精品一区二区久久久久久按摩 | 亚洲最新黄色网址 | 精品国产一区二区三区久久久蜜月 | 亚洲人成中文字幕在线观看 | 一级黄色毛片免费 | 亚洲欧洲av在线 | 黄色毛片免费看 | 精品成人av一区二区在线播放 | 综合网日日天干夜夜久久 | 欧美日韩精品一区二区三区不卡 | 欧美一级美国一级 | 中文字幕综合在线观看 | 噜噜在线视频 | 亚州精品国产 | 鸳鸯谱在线观看高清 | 国人精品视频在线观看 | 欧美午夜网 | 国产91丝袜在线播放 | 久国产精品视频 | 久久国产成人午夜av浪潮 | 国产资源在线观看视频 | 成人男女激情免费视频 | 黄色aaa视频 | 国产精品久久国产精麻豆96堂 | 国产精品久久久久一区二区 | 亚洲激情91 | av成人免费 | 舌头伸进添的我好爽高潮网站 | 国产精品视频在 | 国产精品美女久久久久久不卡 | 高清国产午夜精品久久久久久 | 亚洲乱操 | 国产一区二区三区黄 | 免费国产不卡午夜福在线 | 欧美黑人一级 | 国产精品.com | 国产精品剧情一区二区在线观看 | 龙床上的呻吟高h |