i deleted post because not asking right question. have tiff want load userform. want able tiff file based on user input. first @ least pull tiff file in userform. image2 show "nothing".
image2.picture = loadpicture("c:\users\jneely\desktop\newb gage drawings\1lf-35701-bc01t0-20-k1-a.tiff")
i know can load *.png images userform, might work tiff (untested)
option explicit option private module 'corrigé en 64 bits par pl le 11-10-15 , 32 bit version here http://www.jkp-ads.com/articles/apideclarations.asp private type guid data1 long data2 integer data3 integer data4(0 7) byte end type private type pictdesc size long type long hpic longptr hpal longptr end type private type gdiplusstartupinput gdiplusversion long debugeventcallback longptr suppressbackgroundthread long suppressexternalcodecs long end type private declare ptrsafe function gdiplusstartup lib "gdiplus" ( _ token longptr, _ inputbuf gdiplusstartupinput, _ optional byval outputbuf longptr = 0) longptr private declare ptrsafe function gdipcreatebitmapfromfile lib "gdiplus" ( _ byval filename longptr, _ bitmap longptr) longptr private declare ptrsafe function gdipcreatehbitmapfrombitmap lib "gdiplus" ( _ byval bitmap longptr, _ hbmreturn longptr, byval background long) longptr private declare ptrsafe function gdipdisposeimage lib "gdiplus" (byval image longptr) longptr private declare ptrsafe function gdiplusshutdown lib "gdiplus" (byval token longptr) longptr private declare ptrsafe function olecreatepictureindirect lib "oleaut32.dll" (picdesc pictdesc, refiid guid, byval fpictureownshandle longptr, ipic ipicture) longptr public function loadimage(byval strfname string) ipicture 'image en *.png dim ugdiinput gdiplusstartupinput dim hgdiplus longptr dim hgdiimage longptr dim hbitmap longptr ugdiinput.gdiplusversion = 1 if gdiplusstartup(hgdiplus, ugdiinput) = 0 if gdipcreatebitmapfromfile(strptr(strfname), hgdiimage) = 0 gdipcreatehbitmapfrombitmap hgdiimage, hbitmap, 0 set loadimage = converttoipicture(hbitmap) gdipdisposeimage hgdiimage end if gdiplusshutdown hgdiplus end if end function public function converttoipicture(byval hpic longptr) ipicture dim upicinfo pictdesc dim iid_idispatch guid dim ipic ipicture const pictype_bitmap = 1 iid_idispatch .data1 = &h7bf80980 .data2 = &hbf32 .data3 = &h101a .data4(0) = &h8b .data4(1) = &hbb .data4(2) = &h0 .data4(3) = &haa .data4(4) = &h0 .data4(5) = &h30 .data4(6) = &hc .data4(7) = &hab end upicinfo .size = len(upicinfo) .type = pictype_bitmap .hpic = hpic .hpal = 0 end olecreatepictureindirect upicinfo, iid_idispatch, true, ipic set converttoipicture = ipic end function to used image2.picture = loadimage("c:\users\jneely\desktop\newb gage drawings\1lf-35701-bc01t0-20-k1-a.tiff")
Comments
Post a Comment