[VB 2008] Einfügen von Bildern in RTF-Box verhindern

Question

Moin Moin,

ich möchte verhindern das Bilder aus der Zwischenablage in meine RTF-Box eingefügt werden. Ich habe es folgendermaßen probiert:




If e.Control = True And e.KeyCode = Keys.V Then

Dim DataObjects As IDataObject = Clipboard.GetDataObject

If DataObjects.GetDataPresent(DataFormats.Bitmap) Then

MsgBox("Bitte fügen Sie keine Bilder ein!")

End If



Das funktionieret isofern gut, wenn sich nur ein Bild in der Zwischenablage befindet. Wenn sich aber Text und Bild in der Zwischenablage befindet wird es als Text erkannt und somit auch das Bild eingefügt. Wie kann man das verhindern?

Answer 1

probiere dies mal:


If (Clipboard.ContainsText And Clipboard.ContainsImage) Then

MsgBox("Text und Bild")

Answer 2

Danke für den Tipp.
Es bleibt beim selben Resultat.

Answer 3

hat keiner eine Idee?

Es muss doch möglich sein, wenn sich in der Zwischenablage eine Bild mit Text befindet das das Bild nicht eingefügt wird.

rtf_keydown(....)