0/5 (8 avis)
Vue 9 124 fois - Téléchargée 804 fois
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Computer.Network.IsAvailable Then Label1.Text = "Le pc est connecté à internet" Else Label1.Text = "Le pc n'est pas connecté à internet" End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Visible = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Visible = False End Sub End Class
27 mars 2011 à 17:45
Ouais, discutable... Normalement, une source doit aller plus loin. Ici, ce genre de source devrait (ou devra) plutôt être sur Codyx. (par exemple : http://www.codyx.org/snippet_connecte-internet_413.aspx#1384).
Mais comme c'est ta première source, je comprends l'indulgence d'un admi...^^
Amicalement,
Us.
25 mars 2011 à 16:20
25 mars 2011 à 16:18
reste 7 fichiers :
PC connecté.sln
PC connecté\Form1.Designer.vb
PC connecté\Form1.vb
PC connecté\PC connecté.vbproj
PC connecté\My Project\Application.Designer.vb
PC connecté\My Project\Application.myapp
PC connecté\My Project\AssemblyInfo.vb
les boutons ne servent à rien, mais admettons...
un bouton permettant de retester si le réseau est accessible aurait été plus utile (voire une détection automatique)
25 mars 2011 à 16:10
25 mars 2011 à 16:07
sauvegarde tes fichiers
supprime en et tente d'ouvrir ta solution dans Visual Studio sans avoir de message d'erreur ^^
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.