AW: Verbesserte Version
05.02.2004 17:47:45
Lupus
Hallo Nepumuk,
danke.
Was hälts Du von folgender Veränderung?
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'ausschneiden selektierter Text
If Button = 1 And Shift = 0 Then
With myTextBox
If Trim(.Text) = "" Then myDataObject.SetText Chr(1) Else myDataObject.SetText .SelText
.SelText = ""
End With
ausschalten
End If
End Sub
Private Sub Image2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'kopieren selektierter Text
If Button = 1 And Shift = 0 Then
With myTextBox
If Trim(.Text) = "" Then myDataObject.SetText Chr(1) Else myDataObject.SetText .SelText
End With
ausschalten
End If
End Sub
Der Einfüge-Code müßte noch die Cursurposition berücksichtigen, das bekomme ich aber noch hin.
Warum arbeitest Du eigenlich mit Images? Wäre es nicht einfacher man greift direkt auf die entsprechenden Controls für "Ausschneiden", "Kopieren" und "Einfügen" zu?
Etwa so:
If m_Menue Is Nothing Then
Set m_Menue = Application.CommandBars.Add(Name:="TestMenu", Position:=msoBarPopup, Temporary:=False)
Set m_MenueItem1 = m_Menue.Controls.Add(msoControlButton)
With m_MenueItem1
.Style = 3
.Caption = "&cut"
.OnAction = "Makro1"
.FaceId = 21
End With
Habe mich schon die ganze Zeit gewundert woher "Deine" Images herkommen.
Gruß Lupus