게시판 즐겨찾기
편집
드래그 앤 드롭으로
즐겨찾기 아이콘 위치 수정이 가능합니다.
VB.NET TCP 통신 질문입니다...
게시물ID : programmer_5550짧은주소 복사하기
작성자 : 엘사♡
추천 : 0
조회수 : 940회
댓글수 : 0개
등록시간 : 2014/09/21 12:40:12
옵션
  • 본인삭제금지

TCP 통신 프로그램 에서요
서버메세지를 보내는데
서버메세지: ㅇㅇㅇㅇ
이런식으로 하려고 하는데요,

밑에 엔터키 사용하는건 "서버메세지: ㄱㄴㄷㄹ"
이렇게 정상출력이 되는데
위에 버튼 눌러서 사용하는건 "서버메세지: ㄱㄴㄷㄹ (다음줄) 서버메세지: " 이렇게 표시됩니다. ㅠㅠ

601564.PNG
▲ 엔터키는 정상 출력

601563.PNG
▲ 버튼은 두줄 출력...ㅠㅠ


    Private Sub btn1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles btn1.Click, btn1.Click
        If Not myStream Is Nothing And Not myWrite Is Nothing Then
            myWrite.WriteLine("서버메세지: " + Me.txtM.Text)
            myWrite.Flush()
        End If
        Me.txtM.Text = ""
        Me.txtM.Focus()
    End Sub


    Private Sub txtM_KeyDown(sender As Object, e As KeyEventArgs) Handles txtM.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Not myStream Is Nothing And Not myWrite Is Nothing Then
                myWrite.WriteLine("서버메세지: " + Me.txtM.Text)
                myWrite.Flush()
            End If
            Me.txtM.Text = ""
        End If
    End Sub

어떻게 하면 좋을까요 ㅠㅠ
조언좀 부탁드립니다.

아, 저기 그리고
서버 연결되면
    Private Sub ServerStart()
        MessageView("서버가 실행 되었습니다.")
        While (Start)
            Try
                SerClient = Server.AcceptTcpClient()
                MessageView("서버에 연결 되었습니다." + vbCrLf + "(" + Now() + ")")
                myStream = SerClient.GetStream()
                myWrite = New StreamWriter(myStream)
            Catch
                Return
            End Try
        End While
    End Sub
이렇게
서버에 메세지뷰 뜨게 했는데요,
서버 연결 종료하면 똑같이 뜨게 하고싶은데
캐치 밑에 MessageView("서버 연결 종료") 라고 했더니 안 뜹니다..ㅠㅠ
어떻게 하면 연결 종료가 출력되게 할 수 있을까요? 이것도 좀 부탁드릴게요 ㅠㅠ
구글링을 해봐도 종료에 대한건 안 나오길래요 ㅠㅠ
꼬릿말 보기
전체 추천리스트 보기
새로운 댓글이 없습니다.
새로운 댓글 확인하기
글쓰기
◀뒤로가기
PC버전
맨위로▲
공지 운영 자료창고 청소년보호