Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Const LR_LOADFROMFILE = &H10
Private Const IMAGE_BITMAP = 0
Dim Tmp_ImageHandle as long
Tmp_ImageHandle = LoadImage(App.hInstance, vjpgPath, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
'vjpgPath 是jpg圖片路徑,我給定沒錯,怎么回傳的都是0 App.hInstance=0 回傳也是0
uj5u.com熱心網友回復：
如果你只是想打開一個jpg檔案，VB里已經有自帶的函式了舉個例子
Me.Picture = LoadPicture("B:\7.jpg")
當然loadpicture后面還有一系列的引數，看引數名很容易明白是干啥的
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/52794.html
標籤：API
上一篇：vb中檔案拷貝問題