API LoadImage

Question

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 LongPrivate Const LR_LOADFROMFILE = &H10
Private Const IMAGE_BITMAP = 0Dim Tmp_ImageHandle as long 
Tmp_ImageHandle = LoadImage(App.hInstance, vjpgPath, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)'vjpgPath 是jpg图片路径,我给定没错,怎么返回的都是0    App.hInstance=0 返回也是0

Answer 1

如果你只是想打开一个jpg文件，VB里已经有自带的函数了
举个例子
Me.Picture = LoadPicture("B:\7.jpg")
当然loadpicture后面还有一系列的参数，看参数名很容易明白是干啥的