Menu Chiudi

Categoria: Code Snippets

Ricavare l’IP del PC appartenente ad una LAN (10, 172, 192)

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…

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 = 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

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

Leggere un file di testo riga per riga

La funzione restituisce un arraylist contenente tutte le righe di testo contenute all’interno del file passato come parametro. public ArrayList ReadLinesFromFile(string FilePath)   {     ArrayList tmpArrayList = new ArrayList();     string line;     // Read the file and display it line by line.     System.IO.StreamReader file = new System.IO.StreamReader(FilePath);     while ((line = file.ReadLine()) != null)…