Show 一个没有菜单的界面(ADP)

zhuyiwen

界面导航元素：选项卡、子窗体、按钮

(注：照片的存储格式为直接的JPG文件存储在image字段，显示采用MSFORM2.0.Image控件，非ACCESS的Image和绑定对象控件, 这样的好处是占用空间小。)

请大家评评。

田小班

ReDim bBytes(1 To ((bm.bmWidth * 3 + 3) \ 4) * 4 * bm.bmHeight) As Byte
这句下标越界，报错。

李力军2

朱总厉害，不是一般的厉害啊！{:soso_e179:}

海军下士

能否公开代码哟，嘻嘻...

CHX

{:soso_e179:}

zhengjialon

很早就用老朱的这段代码了，谢谢老朱当时的共享{:soso_e113:}

qczvba

老师，照顾新人，啥时上传附件？

轻风

先收藏

richang_li

zhuyiwen

1. ' Benötigte API-Deklarationen
   
2. Private Declare Function CreateStreamOnHGlobal Lib "ole32.dll" ( _
   
3.   ByVal hGlobal As Long, _
   
4.   ByVal fDeleteOnRelease As Long, _
   
5.   lpIStream As IUnknown) As Long
   
6. 
   
7. Private Declare Function OleLoadPicture Lib "oleaut32.dll" ( _
   
8.   ByVal lpStream As IUnknown, _
   
9.   ByVal lSize As Long, _
   
10.   ByVal fRunmode As Long, _
    
11.   riid As Any, _
    
12.   lpIPicture As IPicture) As Long
    
13. 
    
14. ' Bild aus Bytearray laden und
    
15. ' als StdPicture-Objekt zurückgeben
    
16. 
    
17. Public Function BytesToPicture(PictureData() As Byte) As StdPicture
    
18. 
    
19.     Dim IID_IPicture(3) As Long
    
20.     Dim oPicture As IPicture
    
21.     Dim nResult As Long
    
22.     Dim oStream As IUnknown
    
23.     Dim hGlobal As Long
    
24. 
    
25.     ' Array füllen um den KlassenID (CLSID) IID_IPICTURE
    
26.     ' zu simulieren
    
27.     IID_IPicture(0) = &H7BF80980
    
28.     IID_IPicture(1) = &H101ABF32
    
29.     IID_IPicture(2) = &HAA00BB8B
    
30.     IID_IPicture(3) = &HAB0C3000
    
31. 
    
32.   ' Stream erstellen
    
33.     Call CreateStreamOnHGlobal(VarPtr(PictureData( _
    
34.     LBound(PictureData))), 0, oStream)
    
35. 
    
36.   ' OLE IPicture-Objekt erstellen
    
37.     nResult = OleLoadPicture(oStream, 0, 0, IID_IPicture(0), oPicture)
    
38.     If nResult = 0 Then
    
39.         Set BytesToPicture = oPicture
    
40.     End If
    
41. 
    
42. End Function

复制代码