Public Class GetIP
Public Function GetIP() As String
GetIP = ""
Dim IPList As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
For Each IPaddress As IPAddress In IPList.AddressList
'Only return IPv4 routable IPs
If (IPaddress.AddressFamily = Sockets.AddressFamily.InterNetwork) AndAlso (IsPrivateIP(IPaddress.ToString)) Then
GetLocalIP = IPaddress.ToString
End If
Next
Return GetIP
...
Di piùVB.Net
Controllare se una stringa é un Indirizzo IP o EMail
Dim stringa As String = "192.168.0.1"
Dim isValidAddress As Boolean = False
Dim _regex As Regex = New Regex("\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b")
If _regex.Match(stringa).Success Then
isValidAddress = True
Else
isValidAddress = False
End If
' isValidAddress = true means that the sequence is correct
If isValidAddress = Tru...
Di piùPrevenire la rimozione del record corrente
Prevenire la rimozione del record corrente con un msgbox (vb.net)
dopo il BindingNavigator DeleteItem 'Questo codice in VB.Net permette di confermare o meno la cancellazione di una riga da un dataset richiesta dalla pressione del pulsante 'Delete' in una Binding Navigator Bar.
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
If (Me.Validate() And Not (CustomersBindingSource Is ...
Di più