基本文件操作
Dim shf As SHFILEOPSTRUCT
On Error GoTo endsub
With shf
End With
SHFileOperation shf
endsub:
打開網頁,文件
ShellExecute Me.hwnd, "open", "D:\aa.txt", vbNullString,vbNullString, 0 獲取一個臨時文件名稱 Dim s1 As String * 256 枚舉某個目錄下文件列表 Dim s1 As String, i As Integer 旋轉位圖 Dim pnt(2) As POINTAPI GetTextExtentPoint32 hdc,s,len(s),size1 填充封閉區(qū)域 FloodFill Me.hdc, X, Y, 0 '0表示以黑色為邊界 變暗效果 Dim i As Integer BitBlt Me.hdc, 0, 0, Width, Height, pic2.hdc, 0, 0,&HEE0086 'or
ShellExecute 0, vbNullString, "
GetTempFileName "c:\", "T", 0, s1
For i = 0 To Dir1.ListCount - 1
Next
MsgBox s1
pnt(0).x = 50: pnt(0).y = 0
pnt(1).x = 100: pnt(1).y = 50
pnt(2).x = 0: pnt(2).y = 50
Dim x1 As Long, y1 As Long
x1 = Picture1.Width
y1 = Picture1.Height
PlgBlt pic.hDC, pnt(0), Picture1.hDC, 0, 0, x1, y1, 0, 0, 0
獲取文本矩形大小
For i = 0 To pic.Height \ 2
Next
位圖與位圖之間的按位運算
BitBlt pic.hdc, 0, 0, Width, Height, pic2.hdc, 0, 0,&H8800C6 'and
BitBlt Me.hdc, 0, 0, Width, Height, pic.hdc, 0, 0,&H660046 'xor
BitBlt Me.hdc, 0, 0, Width, Height, pic2.hdc, 0, 0,&H660046 'xor,&H440328:erase