Copy'n'Paste und Textauswahl in Textfeldern für B+

Übersicht BlitzBasic DLLs und Userlibs

Neue Antwort erstellen

Xenon

Betreff: Copy'n'Paste und Textauswahl in Textfeldern für B+

 BeitragMo, Jul 26, 2004 0:00
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,

Userlib:

Code: [AUSKLAPPEN]
.lib "User32.dll"
SendMessage%(hwnd,msg,wParam,lParam):"SendMessageA"


und der Code:

Code: [AUSKLAPPEN]
Const WM_CUT      = $300
Const WM_COPY      = $301
Const WM_PASTE      = $302
Const EM_SETSEL      = $B1

Function Cut(ed)
   SendMessage(QueryObject(ed, 1), WM_CUT, 0, 0)
End Function

Function Copy(ed)
   SendMessage(QueryObject(ed, 1), WM_COPY, 0, 0)
End Function

Function Paste(ed)
   SendMessage(QueryObject(ed, 1), WM_PASTE, 0, 0)
End Function

Function SelectAll(ed)
   SendMessage(QueryObject(ed, 1), EM_SETSEL, 0, TextAreaLen(ed))
End Function

Neue Antwort erstellen


Übersicht BlitzBasic DLLs und Userlibs

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group