27/08/08 15:14
luca94
Salve a tutti,
vorrei ke alla pressione di un command button venga creato un server completo con winsock.
Praticamente vorrei ke venga automatizzato da questo command button la creazione manuale di un server winsock con vb.
E' possibile?
Spero di essere stato chiaro (nn sono mai stato bravo a spiegare)...
Ultima modifica effettuata da luca94 27/08/08 15:43
aaa
27/08/08 15:30
giusy_m86
scusa nn ho capito molto bene...potresti dire qualcosa di +
aaa
27/08/08 16:01
Organittos
Io si credo di aver capito. Però è un po' complicato col codice... mi spiego.
Se vuoi creare ad esempio un winsock con l'evento di un commandbutton:
Private win As winsock 'imposti una variabile come oggetto
Private Sub command1_click()
i=0
i=freefile 'genera un numero intero successivo a quello già presente in memoria e viene usato solitamente per l'apertura/scrittura di file ma puoi usarlo anche in questo tipo di algoritmo
Set win(i) = Controls.Add("vb.winsock", "win" & i) 'questo controllo genera l'aggiunta di un nuovo oggetto
win(i).Top = xxxx
'xxxx sta per il valore da immettere per determinare la posizione del winsock all'interno del form e puoi impostare ovviamente anche le altre proprietà relative all'oggetto creato, in questo caso il winsock
End Sub
Questa operazione la ripeti per la creazione anche di un qualsiasi oggetto come lo stesso form che ti servirà per immettere il winsock, nel codice però scriverai ad esempio
form2.winsock1.top=xxxx 'in modo che il compilatore capisca che il winsock è riferito al winsock1 del form2
giusto per farti un esempio
.
Spero di esserti stato d'aiuto.
Cia cia
Ultima modifica effettuata da Organittos 27/08/08 16:06
aaa
27/08/08 17:33
GrG
se vuoi creare un EXE è QUASI IMPOSSIBILE...
aaa