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 End Function ‘****************************************** Function IsPrivateIP(ByVal IPToControl As String) As Boolean Dim Val1, Val2 As Integer Val1 = CInt(IPToControl.Substring(0, IPToControl.IndexOf(“.”))) Val2 = CInt(IPToControl.Substring(IPToControl.IndexOf(“.”) + 1).Substring(0, IPToControl.IndexOf(“.”))) Select Case Val1 Case 10 Return True Case 172 If Val2 >= 16 And Val2 <= 31 Then Return True Case 192 If Val2 = 168 Then Return True End Select…
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 = True Then Dim _ipAddress As System.Net.IPAddress = Nothing isValidAddress = System.Net.IPAddress.TryParse(IPPubblicoTextBox.Text, stringa) End If ‘ isIPAddress = true means that the sequence is really an IP Address ‘********************************************************** Function EmailAddressChecker(ByVal emailAddress As String) As Boolean ‘La stringa vuole SOLO caratteri Maiuscoli Dim regExPattern As String = “^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$” ‘Questa accetta maiuscoli e minuscoli regExPattern = “^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$” Dim emailAddressMatch As Match = Regex.Match(emailAddress, regExPattern) If emailAddressMatch.Success Then Return True Else Return False…
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 Nothing)) Then If (MsgBox(“Confermi la cancellazione?”, MsgBoxStyle.YesNo) = MsgBoxResult.Yes) Then CustomersBindingSource.RemoveCurrent() CustomersBindingSource.EndEdit() ‘Per aggiornare i grid e la maschera bisogna richiamare un tableadapter.fill(datatable) End If End If End Sub