国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費電子書等14項超值服

開通VIP
VB6中API函數的使用

基本文件操作

Dim shf As SHFILEOPSTRUCT
On Error GoTo endsub
With shf
    .wFunc = 1'move,2:copy,3:delete,4:rename
    .pFrom =Dir1.Path '& File1.FileName
    .pTo =Dir2.Path
    .fFlags = 72'4:不顯示進度,8:沖突時重命名,16:不確認操作,32:不確認創(chuàng)建目錄,64:允許撤銷,256:顯示所有文件
   .fAnyOperationsAborted = True '可取消
End With
SHFileOperation shf
endsub:

打開網頁,文件

ShellExecute Me.hwnd, "open", "D:\aa.txt", vbNullString,vbNullString, 0
ShellExecute 0, vbNullString, "

獲取一個臨時文件名稱

Dim s1 As String * 256
GetTempFileName "c:\", "T", 0, s1

枚舉某個目錄下文件列表

Dim s1 As String, i As Integer
For i = 0 To Dir1.ListCount - 1
    s1 = s1& Dir1.List(i) & Chr(13)& Chr(10)
Next
MsgBox s1

 

旋轉位圖

Dim pnt(2) As POINTAPI
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
獲取文本矩形大小

GetTextExtentPoint32 hdc,s,len(s),size1

填充封閉區(qū)域

FloodFill Me.hdc, X, Y, 0 '0表示以黑色為邊界

變暗效果

Dim i As Integer
For i = 0 To pic.Height \ 2
    pic.Line (0,i * 2 * 15)-(pic.Width * 15, i * 2 * 15),&H888888
Next
位圖與位圖之間的按位運算

BitBlt Me.hdc, 0, 0, Width, Height, pic2.hdc, 0, 0,&HEE0086 'or
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

打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
VB截屏(拷貝屏幕圖像)代碼
Excel批量自動插入圖片
PaintPicture
用VBA提取路徑下所有工作簿的工作表名(四個方法)
vb界面自適應不同分辨率終極解決方案
VBA文件及文件夾操作
更多類似文章 >>
生活服務
分享 收藏 導長圖 關注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權!
如果VIP功能使用有故障,
可點擊這里聯系客服!

聯系客服