System.Drawing.Image nach stdole.StdPicture umwandeln (.NET) Hier stellen wir Ihnen eine Klasse vor, die ein System.Drawing.Image-Objekt in ein stdole.StdPicture-Objekt umwandelt.
Autor:   Dieter Otter	Bewertung:	Views:  13.152
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Verwendet man unter VB.NET externe ActiveX-Controls, die für eine Bildzuweisung das aus VB6 bekannte StdPicture-Objekt erwarten, hat man ein Problem. Der Versuch hier ein System.Drawing.Image-Objekt zuzuweisen schlägt mit der Fehlermeldung, dass dieses nicht in ein StdPicture-Objekt umgewandelt werden kann, fehl.

Nachfolgend stellen wir Ihnen eine Klasse vor, mit der sich ein System.Drawing.Image-Objekt in ein StdPicture-Objekt konvertieren lässt. Die Klasse verwendet hierbei die AxHost-Klasse, die über eine entsprechende Methode zur Umwandlung des Bild-Objekts verfügt.

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports stdole
 
Public Class MyHost
  Inherits AxHost
 
  Public Sub New()
    ' Initialisieren
    MyBase.New("59EE46BA-677D-4d20-BF10-8D8067CB8B33")
  End Sub
 
  ''' <summary>
  ''' Wandelt ein System.Image-Objekt in ein StdPicture-Objekt um.
  ''' </summary>
  ''' <param name="image">System.Drawing.Image</param>
  ''' <returns>StdPicture</returns>
  Public Shared Shadows Function ImageToStdPicture( _
    ByVal image As System.Drawing.Image) As IPictureDisp
 
    Return AxHost.GetIPictureDispFromPicture(image)
  End Function
 
End Class

Verwendung der Klasse
Annahme: Sie verwenden das sevCommand 3.0 Steuerelement in Ihrer .NET Anwendung und möchten den Einträgen des integrierten PopUp-Menüs zur Laufzeit ein externes Bildsymbol zuweisen.

Imports System.Drawing
 
With AxCommand1.get_MenuButton(1)
  ' 1. Menüeintrag des PopUp-Menüs ein externes Bild zuweisen
  .Picture = MyHost.ImageToStdPicture(Image.FromFile("bild.gif"))
End With
 
With AxCommand1.get_MenuButton(2)
  ' 1. Menüeintrag des PopUp-Menüs ein Bild aus 
  ' dem VB.NET ImageList-Control zuweisen
  .Picture = MyHost.ImageToStdPicture(ImageList1.Images(0))
End With

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.