Enter im Textfield

Übersicht

BlitzBasic

BlitzPlus

	Artemis Betreff: Enter im Textfield	So, Mai 08, 2005 17:25 Antworten mit Zitat
Hi! Ich hab folgenden Code:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Window\",0,0,300,100,0,1) textfield=CreateTextField(10,10,200,20,window) Repeat If GetKey()=27 Then End event =WaitEvent() If event = $401 And EventSource()=textfield Then Notify EventData() If EventData()=13 Then End EndIf EndIf If event = $803 Then End Forever Jetzt sollte er eigentlich wenn ich Enter drücke den asciicode ausgeben und dann beenden! aber er reagiert gar nicht auf enter! was is da los?

Artemis

Betreff: Enter im Textfield

So, Mai 08, 2005 17:25
Antworten mit Zitat

Hi!
Ich hab folgenden Code:BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Window\",0,0,300,100,0,1)
textfield=CreateTextField(10,10,200,20,window)

Repeat
If GetKey()=27 Then End
event =WaitEvent()
If event = $401 And EventSource()=textfield Then
	Notify EventData()
	If EventData()=13 Then
		End
	EndIf
EndIf
If event = $803 Then End
Forever

Jetzt sollte er eigentlich wenn ich Enter drücke den asciicode ausgeben und dann beenden!
aber er reagiert gar nicht auf enter!
was is da los?

	simi	So, Mai 08, 2005 17:28 Antworten mit Zitat
Hi, bei mir geht das auch nicht..... Aber Event $104 geht, allerdings findest du dort nicht raus, von welchem TextField der Event kommt....

simi

So, Mai 08, 2005 17:28
Antworten mit Zitat

Hi,

bei mir geht das auch nicht.....

Aber Event $104 geht, allerdings findest du dort nicht raus, von welchem TextField der Event kommt....

	Artemis	So, Mai 08, 2005 17:34 Antworten mit Zitat
wenns so was gäbe wie activegadget... @ TheShadow wann kommt die neue Onlinehilfe für B+ versoin 1.41 raus??

Artemis

So, Mai 08, 2005 17:34
Antworten mit Zitat

wenns so was gäbe wie activegadget...

@ TheShadow

wann kommt die neue Onlinehilfe für B+ versoin 1.41 raus??

	D2006 Administrator	So, Mai 08, 2005 21:46 Antworten mit Zitat
Hi, BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Window\",0,0,300,100,0,1) textfield=CreateTextField(10,10,200,20,window) Repeat If GetKey()=27 Then End event =WaitEvent() If event = $401 And EventSource()=textfield Then dat=EventData() Notify dat If dat=13 Then End EndIf EndIf If event = $803 Then End Forever du darfst EventData() und dergleichen nicht zwei mal aufrufen, da sie beim dann ihren eigentlichen Wert verlieren. MfG D2006

D2006

Administrator

So, Mai 08, 2005 21:46
Antworten mit Zitat

Hi,

BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Window\",0,0,300,100,0,1)
textfield=CreateTextField(10,10,200,20,window)

Repeat
If GetKey()=27 Then End
event =WaitEvent()
If event = $401 And EventSource()=textfield Then
        dat=EventData()
	Notify dat
        If dat=13 Then
                End
        EndIf
EndIf
If event = $803 Then End
Forever

du darfst EventData() und dergleichen nicht zwei mal aufrufen, da sie beim dann ihren eigentlichen Wert verlieren.

MfG
D2006

	Artemis	Mo, Mai 09, 2005 16:46 Antworten mit Zitat
funzt trotzdem nicht!!!

Artemis

Mo, Mai 09, 2005 16:46
Antworten mit Zitat

funzt trotzdem nicht!!!

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Mai 10, 2005 13:10 Antworten mit Zitat
Geht das mit Hotkeyevent nicht einfacher? Da muß nur das Fenster aktiv sein! Hier noch schnell ein Beispiel: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window = CreateWindow (\"Window\",500,500,300,100,0,9) textfield = CreateTextField (10 ,10,200,20,window) HotKeyEvent 28,0,$13 HotKeyEvent 156,0,$13 HotKeyEvent 1,0,$803; = ESC Repeat event = WaitEvent () Select event Case $803 End Case $13 SetStatusText window , \"Es wurde Enter eingegeben!\" End Select Forever
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Mai 10, 2005 13:10
Antworten mit Zitat

Geht das mit Hotkeyevent nicht einfacher?
Da muß nur das Fenster aktiv sein!

Hier noch schnell ein Beispiel:
BlitzBasic: [AUSKLAPPEN]

window = CreateWindow (\"Window\",500,500,300,100,0,9)
textfield = CreateTextField (10 ,10,200,20,window)
HotKeyEvent 28,0,$13
HotKeyEvent 156,0,$13
HotKeyEvent 1,0,$803; = ESC
Repeat
    event = WaitEvent ()
    Select event
     Case $803 End
     Case $13 SetStatusText window , \"Es wurde Enter eingegeben!\"
    End Select    
Forever

[BB2D | BB3D | BB+]

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Enter im Textfield

Artemis

Betreff: Enter im Textfield

simi

Artemis

D2006

Artemis

Rallimen