MapWinGIS:Image Picture

This is a back-up of the WIKI.
Not all links might work
We're working on a new wiki.

Main Page | Recent changes | View source | Page history | Log in / create account |

Printable version | Disclaimers | Privacy policy

Picture

Gets or sets the picture object.


VB.NET Usage

Property Picture() As stdole.IPictureDisp

            Parameters

ReturnValue

The picture for the image object.

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

ReturnValue

The picture for the image object.

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

Retrieved from "http://mapwindow.org/wiki/index.php/MapWinGIS:Image_Picture"

This page has been accessed 2,540 times. This page was last modified on 9 November 2005, at 16:52.