nimm ein picturebox element dafür.

Hast du ICQ??

Oder zufällig max. ähh meine t-mobile :)oder Festnetz

Warum PictureBox??? Wenn du weder ICQ noch meine Fragen telefonisch beantworten wills (was ich dir nicht überl nehmen würde) beschreibe ich mein Problem hier genauer.

warum picturebox..

ganz einfach.

mscomm1 ist meines wissens nach ein zur laufzeit NICHT sichtbares element. Um aber jetzt anzuzeigen das etwas passiert nehm ich daher ein SICHTBARES picturebox element und ändere die Farbe dort entsprechend.

Gut, ich beschreibe das Problem:

Ich will, ein Connect Lamperl erstellen..sprich, kaum über den Input ein "C" hineinkommt soll das sonst schwarze "Lamperl" grün werden. Dieses C soll später von einem PIC MIcrocontroller kommen, und wird laufend gesendet, kaum die Verbindung zum PIc abreißt kommt kein C mehr und das "Lamperl" wird schwarz. Soweit meine Idea.
Nun wollt ich mal Text beim VB empfangen -bislang hab ich nur gesendet- und habe desshalb eine Textbox erstellt. Doch da kommt nix???

MsComm1.input = Text1.text ....das muss doch funktionieren, oder?

An deiner Stelle würde ich nen TIMER verwenden der alle 100ms mscomm1.inputlen abfragt und wenns größer als 0 is holst dir die daten von mscomm1.input

Anders hats keinen Sinn.

und in dem timer sub kannst dann auch gleich die Farbe setzen.


private sub timer1_timer()
if mscomm1.inputlen>0 then text4.text=mscomm1.input
if instr(1,text4.text,"C")>0 then picture1.backcolor=rgb(0,255,0):else picture1.backcolor=rgb(255,0,0)
end sub

das müsste hinhaun.

He super, so könnte es hinhaun, nur schein mein Input irgendwie geschlossen zu sein, ich empfange einfach keine Daten???


Vielen Dank übrigend für deine Hilfe :)