国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 荔浦县| 哈尔滨市| 雷波县| 滁州市| 海门市| 渭源县| 腾冲县| 嘉定区| 尤溪县| 女性| 霍州市| 和林格尔县| 甘肃省| 兴山县| 万山特区| 广饶县| 庄浪县| 宁安市| 潮州市| 轮台县| 宁武县| 祁阳县| 岳池县| 资溪县| 兴国县| 江都市| 含山县| 怀柔区| 楚雄市| 上栗县| 衡水市| 齐河县| 邢台县| 长沙县| 顺平县| 长泰县| 宽甸| 延庆县| 靖边县| 多伦县| 琼中|