Private Function Internet() As Boolean
Return My.Computer.Network.IsAvailable
End Function
Private Sub Check() Handles Me.Load
If Not Internet() = True Then
MsgBox("Connessione non rilevata,Impossibile avviare")
End If
End Sub
Provato!! ma non funziona
mi aiuti..... pls
@Garu il tuo codice non è sbagliato, anzi è un'alternativa a quello che comunemente si fa ( ovvero una If ) ma secondo me non avresti dovuto proporlo perché si capisce che l'utente non ha le basi del linguaggio...
Già ... ma in questo modo non si dovrebbe rispondere a nessuno in questo forum ...:cry:
E se non si hanno le minime conoscenze (ma minime minime) perché si tenta di scrivere codice? Anzi, perché ci si *avvicina ad una tastiera* ??
Non sarebbe rispettoso nei confronti di chi chiede aiuto, una persona chiede aiuto proprio perché non sa come/dove iniziare per cui c'è bisogno che qualcuno gli indichi cosa fare ( a prescindere dalle reali intenzioni della persona )
Se non si sa come/dove iniziare vuol dire che non si è nella condizione di usufruire di una risposta tecnica.
Se uno non ha fatto le elementari, non può chiedere ad un professore universitario sperando che questo risponda al livello elementare.
La semplice risposta è "studiare" ...
Precisiamo che non avrebbe neanche dovuto richiamare la funzione poichè avevo aggiunto l'handle "me.load" :P
La form non comparirà fino alla chiusura della messageboxPrivate Sub a() Handles Me.Load
MsgBox("ciao")
End Sub
Me.Load è l'evento che si "attiva" prima della visualizzazione della form. Difatti se inserisci ad esempio La form non comparirà fino alla chiusura della messagebox
Su questo siamo d'accordo...ma se l'utente non ha le basi del linguaggio questo discorso come glielo spieghi ? Già non sa cos'è una funzione, poi tu gli aggiungi Handle Me.Load...
Era palese che non sapesse nulla, credevo si limitasse buttare il codice nel programma e aspettare qualche santo, sperando di facilitarli il "lavoro" ho fatto il contrario mea culpa