Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [vb.net] come avviare un modulo server da un form?
Forum - C# / VB.NET - [vb.net] come avviare un modulo server da un form?

Avatar
sarvo (Normal User)
Newbie


Messaggi: 3
Iscritto: 04/01/2012

Segnala al moderatore
Postato alle 11:57
Mercoledì, 04/01/2012
ciao ragazzi mio sto esercitando nella programmazione e vorrei avviare un modulo, Module1, dal mio form tramite Button, sapete dirmi il codice per farlo?
grazie a priori

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 15:18
Mercoledì, 04/01/2012
Se ti spieghi meglio ... la richiesta così come l'hai fatta non ha senso ...


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
sarvo (Normal User)
Newbie


Messaggi: 3
Iscritto: 04/01/2012

Segnala al moderatore
Postato alle 16:12
Mercoledì, 04/01/2012
scusami hai ragione, io ho costruito una chat dove il form1 è un client e il module1 fa da server, in pratica ho 2 programmi.
vorrei mettere un button sul client che mi apre il module1 in modo da avere un'unica applicazione

per aprire un form da un'altro form basta l'istruzione form2.show ma per i moduli non funziona :(

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 16:31
Mercoledì, 04/01/2012
La cosa continua a non avere senso ...

Ci fai vedere il sorgente ?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
sarvo (Normal User)
Newbie


Messaggi: 3
Iscritto: 04/01/2012

Segnala al moderatore
Postato alle 16:51
Mercoledì, 04/01/2012
ecco il sorgente del server

Codice sorgente - presumibilmente VB.NET

  1. Imports System.Net.Sockets
  2. Imports System.Text
  3. Module Module1
  4.     Dim clientsList As New Hashtable
  5.     Sub Main()
  6.         Dim serverSocket As New TcpListener(8888)
  7.         Dim clientSocket As TcpClient
  8.         Dim counter As Integer
  9.  
  10.         serverSocket.Start()
  11.         msg("Chat Server Started ....")
  12.         counter = 0
  13.  
  14.         While (True)
  15.             counter += 1
  16.             clientSocket = serverSocket.AcceptTcpClient()
  17.  
  18.             Dim bytesFrom(10024) As Byte
  19.             Dim dataFromClient As String
  20.  
  21.             Dim networkStream As NetworkStream = _
  22.             clientSocket.GetStream()
  23. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
  24. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
  25.             dataFromClient = _
  26.             dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
  27.  
  28.             clientsList(dataFromClient) = clientSocket
  29.  
  30.             broadcast(dataFromClient + " Joined ", dataFromClient, False)
  31.  
  32.             msg(dataFromClient + " Joined chat room ")
  33.             Dim client As New handleClinet
  34.             client.startClient(clientSocket, dataFromClient, clientsList)
  35.         End While
  36.  
  37.         clientSocket.Close()
  38.         serverSocket.Stop()
  39.         msg("exit")
  40.         Console.ReadLine()
  41.     End Sub
  42.  
  43.     Sub msg(ByVal mesg As String)
  44.         mesg.Trim()
  45.         Console.WriteLine(" >> " + mesg)
  46.     End Sub
  47.     Private Sub broadcast(ByVal msg As String, _
  48.     ByVal uName As String, ByVal flag As Boolean)
  49.         Dim Item As DictionaryEntry
  50.         For Each Item In clientsList
  51.             Dim broadcastSocket As TcpClient
  52.             broadcastSocket = CType(Item.Value, TcpClient)
  53.             Dim broadcastStream As NetworkStream = _
  54.                     broadcastSocket.GetStream()
  55.             Dim broadcastBytes As [Byte]()
  56.  
  57. If flag = True Then
  58. broadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg)
  59. Else
  60. broadcastBytes = Encoding.ASCII.GetBytes(msg)
  61. End If
  62.  
  63.         broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)
  64.             broadcastStream.Flush()
  65.         Next
  66.     End Sub
  67.  
  68.     Public Class handleClinet
  69.         Dim clientSocket As TcpClient
  70.         Dim clNo As String
  71.         Dim clientsList As Hashtable
  72.  
  73.         Public Sub startClient(ByVal inClientSocket As TcpClient, _
  74.         ByVal clineNo As String, ByVal cList As Hashtable)
  75.             Me.clientSocket = inClientSocket
  76.             Me.clNo = clineNo
  77.             Me.clientsList = cList
  78. Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
  79.             ctThread.Start()
  80.         End Sub
  81.  
  82.         Private Sub doChat()
  83.             'Dim infiniteCounter As Integer
  84.             Dim requestCount As Integer
  85.             Dim bytesFrom(10024) As Byte
  86.             Dim dataFromClient As String
  87.             Dim sendBytes As [Byte]()
  88.             Dim serverResponse As String
  89.             Dim rCount As String
  90.             requestCount = 0
  91.  
  92.             While (True)
  93.                 Try
  94.                     requestCount = requestCount + 1
  95.                     Dim networkStream As NetworkStream = _
  96.                             clientSocket.GetStream()
  97. networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
  98. dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
  99.                     dataFromClient = _
  100.             dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
  101.         msg("From client - " + clNo + " : " + dataFromClient)
  102.                     rCount = Convert.ToString(requestCount)
  103.  
  104.                     broadcast(dataFromClient, clNo, True)
  105.                 Catch ex As Exception
  106.                     MsgBox(ex.ToString)
  107.                 End Try
  108.             End While
  109.         End Sub
  110.  
  111.     End Class
  112. End Module



questa istruzione vorrei farla partire tramite un button del form ma non conosco l'istruzione adeguata da assegnare al clik del button, non so in che altro modo spiegarlo mi perdoni

PM Quote