API LoadImage
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