MapWinGIS:Image Picture

From MapWindow GIS

Picture

Gets or sets the picture object.

VB.NET Usage

Property Picture() As stdole.IPictureDisp
            Parameters

Sample Code

    Private Sub Picture()
        Dim image As New MapWinGIS.Image()
        Dim p As stdole.IPictureDisp
        Dim c As New ImageConverter() 'This is a class defined below
        'Set the picture for the image object
        image.Picture = c.ImageToPicture(ImageList1.Images(0))
        'Get the picture from the image object
        p = image.Picture
    End Sub
'...
'This code was adapted from .NET 247 forum contribution by Ray Frankulin
'http://www.dotnet247.com/247reference/msgs/20/103409.aspx
'This class helps convert from an Image to an IPictureDisp in VB.NET
Public Class ImageConverter
    Inherits System.Windows.Forms.AxHost
    Public Sub New()
        MyBase.New("00000000-9999-0000-9999-000000000001")
    End Sub
    Public Function ImageToPicture(ByRef Data As Image) As Object
        Return MyBase.GetIPictureDispFromPicture(Data)
    End Function
End Class
  

VB 6 Usage
Property Picture() As IPictureDisp
            Parameters

Sample Code

    Private Sub Picture()
        'This sub assumes you have a bitmap resource with a resource id of 101 in the project
        Dim image As New MapWinGIS.image
        Dim p As IPictureDisp
        'Set the picture for the image object
        image.Picture = LoadResPicture(101, vbResBitmap)
        'Get the picture from the image object
        p = image.Picture
    End Sub