Dra och släpp

3 svar · 243 visningar · startad av saw 12 juli 2003

sawMedlem sedan mars 20011 880 inlägg

Trådstart12 juli 2003 10:03#1

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?

PsyDoniaMedlem sedan maj 2003924 inlägg

12 juli 2003 12:56#2

vad menar du.

Förklara bättre.

sawMedlem sedan mars 20011 880 inlägg

12 juli 2003 14:56#3

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

rymdknarkMedlem sedan maj 2000175 inlägg

15 juli 2003 06:35#4

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