---
title: "Dra och släpp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/81860-dra-och-släpp"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2003-07-12T10:03:43.000Z"
updated: "2003-07-15T06:35:18.000Z"
replies: 3
views: 243
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/81860-dra-och-släpp"
---

# Dra och släpp

## #1 — saw, 2003-07-12T10:03Z

Jag försöker lite med dra och släpp.Har aktiverat oledrag,oledropmode till automatiskt.

```
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
   If TypeOf Source Is TextBox And Source.Name = "Text1" Then
       Text2.text = "Mid(Source.text, Source.SelStart + 1, Source.SelLength)
       Text1.Drag vbEndDrag
   End If
End Sub
```

Efter lite sökningar så fick jag detta att fungera.
Min fråga, jag skulle vilja ha med lite autogenererad text innan och efter source.text, kan man göra det?

Permalänk: https://www.webforum.nu/p/81860

## #2 — PsyDonia, 2003-07-12T12:56Z

vad menar du.

Förklara bättre.

Permalänk: https://www.webforum.nu/p/1108319

## #3 — saw, 2003-07-12T14:56Z

Tack för intresse, men jag löste det på annat sätt.

Permalänk: https://www.webforum.nu/p/1108366

## #4 — rymdknark, 2003-07-15T06:35Z

Menade du typ:

```
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
   If TypeOf Source Is TextBox And Source.Name = "Text1" Then
       Text2.text = "<start>" + Mid(Source.text, Source.SelStart + 1, Source.SelLength) + "<slut>"
       Text1.Drag vbEndDrag
   End If
End Sub
```

Permalänk: https://www.webforum.nu/p/1112499

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/81860-dra-och-släpp