Zwischenablage...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zwischenablage... von: Christoph
Geschrieben am: 23.03.2005 11:21:06

Hallo

hab nochmal ne kurze Frage.

Wenn ich aus einer Textbox den Text in die Zwischenablage kopieren will:

Dim Text As String
Clipboard.Clear
Clipboard.SetText Text = TextBox5.Text

dann kopiert er überhaupt nicht.
Wie kann ich den Text aus meiner Textbox kopieren, bzw. geht es vielleicht die rechte Maustaste für das Textfeld zu aktivieren, damit man mit der Maus, rechte Maustaste, kopieren kann?

Gruß Chris

Bild


Betrifft: AW: Zwischenablage... von: Tobias Marx
Geschrieben am: 23.03.2005 11:27:31

Servus Chris!

Wie waers einfach mit:
TextBox5.Copy

Gruss

Tobias


Bild


Betrifft: AW: Zwischenablage... von: Christoph
Geschrieben am: 23.03.2005 11:35:43

Aber dann wird ja die Textbox und nicht nur der Text kopiert.


Bild


Betrifft: AW: Zwischenablage... von: Tobias Marx
Geschrieben am: 23.03.2005 11:42:46

Servus!

Auszug aus der VB-Hilfe ueber .Copy:

Welcher Inhalt tatsächlich kopiert wird, hängt von dem jeweiligen Objekt ab. Die Copy-Methode kopiert z.B. in einem Page-Objekt die momentan ausgewählten Steuerelemente. In einem Textfeld-Steuerelement (TextBox) oder Kombinationsfeld-Steuerelement (ComboBox) wird der momentan ausgewählte Text kopiert.

Copyright(c) 1996 Microsoft Corporation.

Gruss

Tobias


Bild


Betrifft: AW: Zwischenablage... von: UweD
Geschrieben am: 23.03.2005 11:46:32

Hallo


so klappt es

' Unter Extras, Verweise muss dieser Verweis muß gesetzt werden
' "Microsoft Forms 2.0 Object Library"
Dim clipboard As DataObject, Text As String
Set clipboard = New DataObject
clipboard.Clear
Text = TextBox1.Text
clipboard.SetText Text
clipboard.PutInClipboard

Gruß UweD


Bild


Betrifft: AW: Zwischenablage... von: Christoph
Geschrieben am: 23.03.2005 11:56:06

Super es läuft, Vielen DAnk für die schnelle Hilfe

Gruß Chris


Bild


Betrifft: AW: Zwischenablage... von: Volker
Geschrieben am: 23.03.2005 11:51:05

Hallo Chris,

scheint, dass Du um eine Hilfsvariable nicht herum kommst.
Nachdem ich erfolglos rumexperimentiert hab (kann ja nicht so schwer sein),
hab ich reumütig in der Hilfe nachgesehen und dort, oh Wunder, wurde ich geholfen ;-)

Dim MyData As DataObject

Private Sub CommandButton1_Click()
    Set MyData = New DataObject
    
    MyData.SetText TextBox1.Text
    MyData.PutInClipboard
    TextBox2.Paste
End Sub


Gruß
Volker


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Vorlage + Datei öffnen"