sendkeys oder chr$(13)

[roxoxor]

hi leuts

hätte nur ne kleine frage aber mein kolleg und ich sind nicht imstande, dieses kleine prob zu lösen (bin n00b)

also...ich habe ein kleines chat progi gemacht aber es läuft erst auf der lokalen maschine, habe noch kein winsock oder sonst was eingebaut! will es zuerst lokal testen!

eigentlich ist es sehr simpel aber die gegebenen aufrufe funzen nich richtig.

also, folgendermassen: ich möchte jedes mal, wenn ich denn send button drücke, dass dann auch ein zeilenumbruch mitgesendet wird. sonst überschreibt der neue sendebefehl den bereits bestehenden befehl wieder.

eigentlich wäre es mit chr$(13) ja möglich aber das geht nicht?? vielleicht könnte man dies auch mit´nem einfachen sendkeys befehl lösen? dürfte nichts grosses sein oder?

wenn mir jemand helfen könnte, wäre ich sehr dankbar!

hier der code:

Dim frage As String

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdSend_Click()
txtSent = lblName & ": " & txtToSend
Chr$ (13)
txtToSend = ""

End Sub


Public Sub form_load()
Dim frage As String
While (frage = "")
frage = InputBox("Geben sie Ihren Nickname ein.", "Nickname eingeben")
Wend
lblName.Caption = frage
End Sub


gruss rox

[gencha]

txtSent = lblName & ": " & txtToSend
Chr$ (13)
txtToSend = ""

also wenn bei mir n chr(13) alleine in ner line steht is das n scheiss.

aber wenn du auf sendkeys zugreifst solltest du eh den string {ENTER} nehmen

[cYrus]

wieso machst dus nicht so?

txtSent = lblName & ": " & txtToSend & vbcrlf

so long
cYrus

[roxoxor]

wie meinst du das?
dass das n eh scheiss sei?

ja, das mit sendkeys habe ich auch schon probiert, würde das in etwa so aussehen?

sendkeys (% & {enter})

so stürzt das programm meistens ab, könntest du mir ein beispiel geben?

thx

[gencha]

naja da ich string gesagt hab sollte man es wohl in "" einfassen ;)

sendkeys Variable & "{ENTER}"

und wenn du ne function einfach in ne zeile schreibst ohne sie einer variable zuzuweisen bringt das einfach nix

[roxoxor]

wow, leute ihr seid spitze, bringt mich echt auf neue ideen!
nur leider hats noch nicht gefunzt!

vielleicht solltet ihr noch wissen, dass ich von einem textfeld ins andere text schicke. macht das was aus?

für was steht & vbcrlf ?

[roxoxor]

ah okay...thx a lot!
werde es gleich mal ausproben!

[gencha]

sachma is das dein erstes programm?

[roxoxor]

hmm...nun ist ein neues problem aufgetaucht!
wenn ich die sendkeys funktion benütze, stürzt mir das proggi ab, sobald ich auf den send-button drücke....

is mir schon fast peinlich aber progge erst seit 2, 3 tagen mit vb!

sorry für meine unwissenheit!

[gencha]

du musst sendkeys nach ner kleinen pause schicken ansonsten schickt er den ENTER druck an den button weil er noch den fokus hat und dadurch wird er nochma gedrückt und nochma und nochma und ...

benutz nen timer

[roxoxor]

ah okay...thx a lot!
werde das mitem timer mal testen, weiss zwar noch nicht, wie man den richtig benützt aber werds schon noch rausfinden!

auf jeden fall danke!

[snobordo]

Was wollt ihr eigentlich mit dem blöden sendkey?
Das braucht man überhaupt nicht!!!!!!!!!!!!!!!!!!!!
Machs doch einfach mit vbCrlf wie oben schon jemand geschrieben hat.

Private Sub cmdSend_Click()
txtSent = lblName & ": " & txtToSend & vbCrlf

End Sub

das reicht schon! :]

[sami]

kein grund für 100 ausrufezeichen, fett und doppelposting :P