08/06/12 14:31
tullio1995
Nel sorgente non dà nessun errore, ma quando vado a compilare il programma esce questo:
InvalidOperationException non è stata gestita
Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Riferimento a un oggetto non impostato su un'istanza di oggetto.
E mi da queste soluzioni:
InnerException: Usa la parola chiave new per creare un'istanza di oggetto.
InnerException: Determinare se l'oggetto è null prima di richiamare il metodo.
Uso Visual studio 2010 express edition.
Questo è il codice:
InvalidOperationException non è stata gestita
Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Riferimento a un oggetto non impostato su un'istanza di oggetto.
E mi da queste soluzioni:
InnerException: Usa la parola chiave new per creare un'istanza di oggetto.
InnerException: Determinare se l'oggetto è null prima di richiamare il metodo.
Uso Visual studio 2010 express edition.
Questo è il codice:
Imports System.Net.Sockets Imports System.Text Public Class Form1 Dim ip As Integer Dim client As TcpClient = server.AcceptTcpClient Dim server As TcpListener Dim stream As NetworkStream = client.GetStream() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load server.Start(8000) ip = Val(InputBox("Inserisci l'IP")) client.Connect(ip, 8000) End Sub Private Sub btnInvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvia.Click Dim testo As String = txtInvia.Text Dim binviati As [Byte]() = Encoding.ASCII.GetBytes(testo) stream.Write(binviati, 0, testo.Length) txtRiveuti.AppendText("Tu:> " & testo & vbNewLine) End Sub Private Sub btnRicevi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRicevi.Click Dim bytes(client.ReceiveBufferSize) As Byte stream.Read(bytes, 0, CInt(client.ReceiveBufferSize)) Dim returndata As String = Encoding.ASCII.GetString(bytes) txtRiveuti.AppendText("L'altro:>" & returndata & vbNewLine) End Sub End class
aaa