[VB] Subs, hoe weet je welke

Pagina: 1
Acties:

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 13:18
Ik zie zo soms in broncode van andere een aantal subs staan en dan vraag ik mij af hoe ze weten hoe die sub moet genoemd worden. bv winsock_Connectionrequest
hoe weet je dat dat connectionrequest moet zijn??

Ik moet nu een sub gaan maken en ik moet een messagebox tevoorschijn laten komen als de client met server is verbonden. Moet het dan zoiets als volgende worden:

Client_StateConnected()
msgbox "connected",vbokonly,"Info"
End sub

Verwijderd

Private Sub Client_StateConnected()
Msgbox "connected",vbokonly,"Info"
End sub

of

Public Sub Client_StateConnected()
Msgbox "connected",vbokonly,"Info"
End sub

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 13:18
doet ut niet, ik wou dan eigenlijk dat het ip adres van de client naar de server werd verzonden, ik zal ff de hoofdcode geven:

Verbind form:
als je op knoppie connect drukt:

frmClient.Client.Connect txtIP, 120
frmIP.Hide
frmClient.Show

Client:

Private Sub cmdVerzend_Click()
Client.SendData lblNaam & txtBericht '+ vbCrLf
txtBericht.Text = ""
List1.ListIndex = List1.ListCount - 1
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Client.GetData a$, vbString
List1.AddItem a$
List1.ListIndex = List1.ListCount - 1
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Error in socket : " + Description, vbOKOnly
End Sub

Public Sub Client_StateConnected()
Client.SendData Client.LocalIP
End Sub

Server:
Server(Index).GetData a$, vbString


If Mid(a$, 1, 4) = "Gast" Then

berichtvenster.AddItem a$
berichtvenster.ListIndex = berichtvenster.ListCount - 1



For b = 1 To intconnection
If Server(b).State = sckConnected Then
Server(b).SendData a$
End If
Next b


Else
Lnaam.AddItem a$ 'als dus een ip adres wordt gestuurd
End If

het werkt dus zo niet zoals het hier staat en eigenlijk hoort het zo wel te werken. Als ik ipv die

Public Sub Client_StateConnected()
Client.SendData Client.LocalIP
End Sub

een button gebruik en als je daar op klikt dat ie het ip doorstuurt dan werkt het wel. Maar ik wil dat dit automatisch wordt doorgestuurd wanneer ie verbonden is met de server.

Verwijderd

Watte?

  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 13:18
Laat maar, ik heb het al zelfs gevonden. In het vervolg zal ik eens wat beter nadenken in plaats van onnodige posts te doen :)

  • johnwoo
  • Registratie: Oktober 1999
  • Laatst online: 16:17

johnwoo

3S-GTE

Uhm... een WinSock control heeft geen StateConnected event hoor... waarschijnlijk bedoel je het Connect event :)

[edit]

En het zelf apart doorsturen van het IP is ook een vrij nutteloze zaak, aangezien de IP's en poorten na het opzetten van de verbinding sowieso al aan allebei de kanten bekend zijn. Kijk maar eens naar de volgende properties van het WinSock control: LocalHostName, LocalIP, LocalPort, RemoteHost, RemoteHostIP, RemotePort.

4200Wp ZO + 840Wp ZW + 1680Wp NW | 14xIQ7+ + 1xDS3-L | MTVenusE | HWP1


  • ddkiller0900
  • Registratie: Juli 2001
  • Laatst online: 13:18
dat had ik juist ondervonden *D
Pagina: 1