国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

如何將整個(gè)畫面暗下來，如同關(guān)機(jī)前一般

2019-11-18 17:38:13
字體：大 中 小
供稿：網(wǎng)友

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

注釋：底下三行設(shè)定整個(gè)螢?zāi)欢及迪聛?br>hdc5=GetDC(0)
width5=Screen.Width/Screen.TwipsPerPixelX
height5=Screen.Height/Screen.TwipsPerPixelY

rop=&HA000C9注釋：與原圖做and運(yùn)算
CallSelectObject(hdc5,hBrush)
res=PatBlt(hdc5,0,0,width5,height5,rop)
CallDeleteObject(hBrush)
注釋：如果只暗picture1則底下這一行要mark起來
res=ReleaseDC(0,hdc5)
EndSub
注釋：回復(fù)原本的畫面
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->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 永城市| 石河子市| 饶河县| 武隆县| 宕昌县| 渝中区| 五家渠市| 革吉县| 武乡县| 古浪县| 德江县| 启东市| 措勤县| 仪征市| 平罗县| 许昌县| 会宁县| 平顶山市| 晋州市| 衡阳市| 金昌市| 汤原县| 景德镇市| 城口县| 雷波县| 安国市| 临漳县| 石嘴山市| 偏关县| 永年县| 莱阳市| 兴化市| 石柱| 海口市| 宁波市| 湟源县| 乌审旗| 车险| 南投县| 白朗县| 东莞市|