PureBoard

Verfasst: **16.02.2006 12:16**

Hallo zusammen
ich suche ein einfaches Programm Beispiel für ein Chat - Fenster.
Es sollte unten eine Eingabezeile haben, die mit Return bestätigt wird.
Nach der Testeingabe, soll der Text im Fenster darüber erscheinen.
Jede weitere Eingabe soll nach oben weg gescrollt werden.
Das ganze aber ohne Internet Funktion.
Leider blicke ich noch nicht wirklich durch bei den ganzen Befehlen um ein Windows-Fenster zu programmieren.
Vieleicht ist jemand so nett mir etwas Hilfestellung zu geben.

Mit freundlichen Grüssen

Verfasst: **16.02.2006 13:25**

sowas?

Code: Alles auswählen


Enumeration
    #Window_0
    #LVIEW_0
    #String_1
    #Key_Return
    #Key_Escape
EndEnumeration
If OpenWindow(#Window_0, 246, 14, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "ChatFenster")
    If CreateGadgetList(WindowID())
        ListViewGadget(#LVIEW_0,5,5,585,255)
        StringGadget(#String_1, 5, 270, 585, 20, "")
    EndIf
    AddKeyboardShortcut(#Window_0,#PB_Shortcut_Return,#Key_Return)
    AddKeyboardShortcut(#Window_0,#PB_Shortcut_Escape,#Key_Escape)
    For c = 0 To 18  ;18 Einträge eintragen zum Nach-Unten-Schieben
        AddGadgetItem(#LVIEW_0,c," ")
    Next c
EndIf
Repeat
    ActivateGadget(#String_1)
    Event = WaitWindowEvent()
    If EventMenuID()=#Key_Return
        AddGadgetItem(#LVIEW_0,-1,GetGadgetText(#String_1))
        SetGadgetState(#LVIEW_0,CountGadgetItems(#LVIEW_0)-1)
        SetGadgetState(#LVIEW_0,-1)
        SetGadgetText(#String_1,"")
    EndIf
    If EventMenuID()=#Key_Escape
        End
    EndIf
Until Event = #PB_Event_CloseWindow
End

Verfasst: **16.02.2006 17:10**

Vielen herzlichen Dank dafür, ich hoffe ich bin in der Lage es weiter auszubauen, so wie ich mir das vorstelle.
Nochmals Danke

PureBoard

Suche einfaches Beispiel für Chat-Fenster

Suche einfaches Beispiel für Chat-Fenster