自我學習之一:淡入淡出(抄) (轉)
Option Explicit
Public Sub IntervalX(ByVal intI As Integer)
If intI > 0 Then Sleep (intI) '製造千分之intI秒的時間間隔
End Sub
Public Sub ShowTransparency(SrcDC As Long, _
ByVal SrcX As Long, _
ByVal SrcY As Long, _
ByVal SrcHeight As Long, _
ByVal SrcWidth As Long, _
DestDC As Long, _
ByVal DestX, _
ByVal DestY, _
ByVal DestHeight As Long, _
ByVal DestWidth As Long, _
ByVal nLevel As Byte)
Dim LrProps As rBlendProps
Dim LnBlendPtr As Long
LrProps.tBlendAmount = nLevel
CopyMemory LnBlendPtr, LrProps, 4
AlphaBlend DestDC, DestX, DestY, DestWidth, DestHeight, _
SrcDC, SrcX, SrcY, SrcWidth, SrcHeight, LnBlendPtr
End Sub
Public Sub CopyPictureX(ByVal dcSour As Long, _
ByVal SourX As Long, _
ByVal SourY As Long, _
ByVal dcDest As Long, _
ByVal DestX As Long, _
ByVal DestY As Long, _
ByVal DestWidth As Long, _
ByVal DestHeight As Long)
'dcSour——>dcDest
BitBlt dcDest, DestX, DestY, DestWidth, DestHeight, dcSour, SourX, SourY, SRCCOPY
End Sub
Public Sub ScreenCls()
'重新整理桌面
InvalidateRectAsAny 0, ByVal 0&, True
End Sub
Private Sub Form_Load()
Dim i, l, t
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
l = (Screen.Width / Screen.TwipsPerPixelX - Picture1.ScaleWidth) / 2
t = (Screen.Height / Screen.TwipsPerPixelY - Picture1.ScaleHeight) / 2
CopyPictureX GetDC(0), l, t, Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.Height
For i = 0 To 150 Step 7
IntervalX 150 - i
DoEvents
ShowTransparency Picture1.hdc, 0, 0, Picture1.ScaleHeight, _
Picture1.ScaleWidth, GetDC(0), l, t, _
Picture1.ScaleHeight, Picture1.ScaleWidth, i
Next i
IntervalX 1000
For i = 0 To 150 Step 7
IntervalX 150 - i
DoEvents
ShowTransparency Picture2.hdc, 0, 0, Picture2.ScaleHeight, _
Picture2.ScaleWidth, GetDC(0), l, t, _
Picture2.ScaleHeight, Picture2.ScaleWidth, i
Next i
ScreenCls
Unload Me
End Sub
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-990421/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- C++ 自我學習C++
- STL的學習筆記之一 (轉)筆記
- CCNA學習心得之一(推薦)(轉)
- 自我學習HTTP協議HTTP協議
- 《深入淺出MFC》學習筆記之一 (轉)筆記
- 主題 :學習與自我提升
- pureMVC學習之一REMMVC
- BBED學習之一
- rac學習之一
- 自我勸退式的學習方式
- 開發規範文字(自我學習)
- 輕鬆學習之一--Objective-C訊息轉發Object
- XML輕鬆學習手冊(3)XML概念之一(轉)XML
- 學習Web前端,如何提升自我價值Web前端
- Java入門學習-自我理解IO流Java
- MySQL學習筆記之一MySql筆記
- Java學習筆記之一Java筆記
- 分割槽表學習之一
- IT人的自我導向型學習:學習的3個維度
- 方便自我學習的檢視:dict_columns !
- 自我總結(五)---(學習j2ee)
- 產品經理學習篇-自我認識
- Elasticsearch聚合學習之一:基本操作Elasticsearch
- docker 學習之一:docker 安裝Docker
- hive學習之一:認識hiveHive
- 程式設計師自我修養之IT人學習方法論—學習方向程式設計師
- Sermant執行流程學習筆記,速來抄作業筆記
- 學習 第3章:專項練習之一
- 新手如何學習網頁設計?自我建議網頁
- 自我學習與理解:keras框架下的深度學習(三)迴歸問題Keras框架深度學習
- 程式設計師自我修養之IT人學習方法論——學習誤區程式設計師
- 《轉》VMware vSphere 5.1 學習系列之一:實驗環境的搭建
- JUnit5學習之一:基本操作
- jackson學習之一:基本資訊
- R語言學習筆記之一R語言筆記
- Mysql學習積累之一[網摘收藏個人學習參考]MySql
- 自我總結 Laravel 學習成本,門檻高的原因Laravel
- 軟技能-程式碼之外的生存指南3(自我學習)