HTAをもっと流行らせる計画

HTAをもっと流行らせる計画 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

750:MagicHu
 08/04/19 16:40:45 
    Public Function CreateOlePicture(ByVal PictureHandle As Long, _ 
     Optional ByVal BitmapPalette As Long = 0, _ 
     Optional ByVal MetaHeight As Long = -1, _ 
     Optional ByVal MetaWidth As Long = -1, _ 
     Optional ByRef Return_ErrNum As Long, _ 
     Optional ByRef Return_ErrDesc As String) As StdPicture 
    On Error Resume Next 
     
     Dim ReturnValue As Long 
     Dim PicInfo_ICON As PICTDESC_ICON 
     Dim ThePicture As StdPicture 'IPicture 
     Dim rIID As GUID 
     
     ' Set the correct GUID for the "OleCreatePictureIndirect" API 
     With rIID 
     .Data1 = &H20400 
     .Data4(0) = &HC0 
     .Data4(7) = &H46 
     End With 
     
     
     PicInfo_ICON.cbSizeOfStruct = Len(PicInfo_BMP) 
     PicInfo_ICON.PicType = PICTYPE_ICON 
     PicInfo_ICON.hIcon = PictureHandle 
     ReturnValue = OleCreatePictureIndirect(PicInfo_ICON, rIID, 1, ThePicture) 
     ' Return the new picture 
     Set CreateOlePicture = ThePicture 
    End Function

次ページ