Kopieren ...

Übersicht

BlitzBasic

Beginners-Corner

	Lifetec Betreff: Kopieren ...	Do, Jul 06, 2006 16:05 Antworten mit Zitat
Ich habe jetzt das mit dem kopieren mal ausprobirt und komme nicht weiter. Mein Code: Code: [AUSKLAPPEN] [EINKLAPPEN] fenster = CreateWindow("Form", 295, 190, 314, 222, 0, 3) ;Textarea TextArea1 = CreateTextArea(8, 8, 289, 153, fenster) ;Button Button1 = CreateButton("Selcteiren", 8, 168, 81, 17, fenster) Button2 = CreateButton("kopieren", 96, 168, 81, 17, fenster) Repeat er = WaitEvent() If er = $803 Then End If er = $401 And EventSource() = Button1 Then SendMessage(QueryObject(ed, 1), EM_SETSEL, 0, TextAreaLen(ed)) EndIf Forever Originall Code: Code: [AUSKLAPPEN] [EINKLAPPEN] 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 Was mach ich falsch ????

Lifetec

Betreff: Kopieren ...

Do, Jul 06, 2006 16:05
Antworten mit Zitat

Ich habe jetzt das mit dem kopieren mal ausprobirt und komme nicht weiter.

Mein Code:
Code: [AUSKLAPPEN]

fenster = CreateWindow("Form", 295, 190, 314, 222, 0, 3)
;Textarea
TextArea1 = CreateTextArea(8, 8, 289, 153, fenster)
;Button
Button1 = CreateButton("Selcteiren", 8, 168, 81, 17, fenster)
Button2 = CreateButton("kopieren", 96, 168, 81, 17, fenster)

Repeat
er = WaitEvent()
If er = $803 Then End
If er = $401 And EventSource() = Button1 Then
SendMessage(QueryObject(ed, 1), EM_SETSEL, 0, TextAreaLen(ed))
EndIf
Forever

Originall 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

Was mach ich falsch ????

	Rallimen Sieger des 30-EUR-Wettbewerbs	Do, Jul 06, 2006 17:40 Antworten mit Zitat
Hallo, die Zeile in deinem Code müßte lauten... Code: [AUSKLAPPEN] [EINKLAPPEN] SendMessage(QueryObject(TextArea1 , 1), EM_SETSEL, 0, TextAreaLen(TextArea1 )) Die Constanten müssen in deinem Code drin sein... Code: [AUSKLAPPEN] [EINKLAPPEN] Const WM_CUT = $300 Const WM_COPY = $301 Const WM_PASTE = $302 Const EM_SETSEL = $B1 Und die decl nicht vergessen!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Do, Jul 06, 2006 17:40
Antworten mit Zitat

Hallo,
die Zeile in deinem Code müßte lauten...
Code: [AUSKLAPPEN]

SendMessage(QueryObject(TextArea1 , 1), EM_SETSEL, 0, TextAreaLen(TextArea1 ))

Die Constanten müssen in deinem Code drin sein...
Code: [AUSKLAPPEN]

Const WM_CUT = $300
Const WM_COPY = $301
Const WM_PASTE = $302
Const EM_SETSEL = $B1

Und die decl nicht vergessen!

[BB2D | BB3D | BB+]