[VS] Debug delle classi del Framework .NET

A quanto pare è arrivato il momento di poter dare uno sguardo al Framework .NET!

Infatti, Microsoft ha reso possibile eseguire il debug delle classi contenute nel Framework .NET, naturalmente in sola lettura. Per vedere come è possibile applicare questa possibilità a Visual Studio 2008, vi consiglio questa pagina (in inglese): http://blogs.msdn.com/sburke/archive/2008/01/16/configuring-visual-studio-to-debug-net-framework-source-code.aspx.

Possono essere visionate le seguenti librerie:

• .NET Base Class Libraries (inclusi System, System.CodeDom, System.Collections, System.ComponentModel, System.Diagnostics, System.Drawing, System.Globalization, System.IO, System.Net, System.Reflection, System.Runtime, System.Security, System.Text, System.Threading, etc).

• ASP.NET (System.Web, System.Web.Extensions)

• Windows Forms (System.Windows.Forms)

• Windows Presentation Foundation (System.Windows)

• ADO.NET e XML (System.Data e System.Xml)

Attenzione: non è possibile usufruire di questa opportunità con la versione Express.

#7 Nascondere/ripristinare il puntatore del mouse

Talvolta alcune applicazioni richiedono che non sia visibile il puntatore del mouse (Cursor).

Con VB.NET è possibile farlo in modo estremamente semplice.

Per farlo scomparire:

        System.Windows.Forms.Cursor.Hide()

e per farlo riapparire

        System.Windows.Forms.Cursor.Show()

Attenzione però che l’eventuale crash dell’applicazione potrebbe lasciare il cursore del mouse nello stato “invisibile” fino al riavvio del sistema!

#6 Sabato o domenica?

A volte, specialmente in programmi gestionali, e’ utile sapere se una determinata data cade di sabato o domenica. Ecco una routine che svolge questo lavoro.

Public Function IsWeekend(ByVal data As Date, _ 
     ByRef giorno As String) As Boolean 
  ' Parametri di input: 
  ' - data: la data da testare 
  ' - giorno: parametro passato per riferimento 
  ' Il parametro 'giorno', passato per riferimento, viene 
  ' modificato per restituire il nome del giorno della settimana, 
  ' se sabato o domenica, oppure l'indicazione "feriale". 
  ' 
  ' Parametri di output: 
  ' - True: il giorno testato è un sabato o una domenica 
  ' - False negli altri casi 
    Select Case Weekday(data) 
      Case FirstDayOfWeek.Saturday 
          giorno = "Sabato" 
          IsWeekend = True 
      Case FirstDayOfWeek.Sunday 
          giorno = "Domenica" 
          IsWeekend = True 
      Case Else 
          giorno = "feriale" 
          IsWeekend = False 
  End Select 
End Function

La funzione di cui sopra viene testata con il seguente codice (da inserire nell’evento Load della Form, oppure nell’evento Click di un pulsante):

Dim giorno As String 
Dim i As Integer 
For i = 0 To 1 
  ' test su 2 giorni consecutivi (domenica e lunedi) 
  If IsWeekend(DateAdd("d", i, #1/20/2008#), giorno) Then 
      MsgBox("Non si lavora di " & giorno) 
  Else 
      MsgBox("Giorno " & giorno & ": OK, lavora lavora!!") 
  End If 
Next i

#5 Verifica se anno bisestile

Spesso è necessario conoscere se un anno sia bisestile. Nel tempo si sono trovate molte soluzioni diverse a questo problema.

Con VB.NET il problema è stato risolto alla fonte: è fornito un opportuno metodo, IsLeapYear, che accetta in input un valore intero (l’anno) e restituisce un valore booleano (True = bisestile, False = non bisestile).

Per provare questa funzione, creare una form, aggiungere due TextBox di nome rispettivamente TextBox1 e TextBox2 ed un pulsante e infine, nell’evento Click del pulsante inserire il seguente codice:

If TextBox1.Text = "" Then 
  TextBox2.Text = "anno non indicato" 
Else 
  If (DateTime.IsLeapYear(Integer.Parse(TextBox1.Text)) = True) _ 
        Then 
     TextBox2.Text = "L'anno " & TextBox1.Text & " è bisestile." 
  Else 
     TextBox2.Text = "L'anno " & TextBox1.Text & " NON è bisestile." 
  End If 
End If

#4 Ottenere l’indirizzo IP

Per ottenere l’indirizzo IP della macchina (collegata in rete) sulla quale gira il programma, ecco una soluzione valida per Visual Basic 2005:

Private Shared Sub NamedSub() 
  Dim loip() As System.Net.IPAddress = _ 
    System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName) 
  Dim ip As String = loip(0).ToString 
  MessageBox.Show(ip) 
End Sub

E’ possibile ottenere altre informazioni sulla connessione di rete leggendo questo articolo pubblicato su MSDN

Il metodo usato in Visual Basic 2003 è obsoleto e da evitare:

Dim ip As String = _ 
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName) 
.AddressList(0).ToString 

N.B.: l’istruzione deve essere scritta tutta su una singola riga

#3 Verificare che un form sia aperto

Per verificare che un form sia aperto si può utilizzare il codice sotto riportato.
Aspetti fondamentali di questa tecnica sono:
- l’importazione del namespace System.Windows.Forms
- il ciclo di test sul nome del form realizzato con For Each,
testando la collezione Application.OpenForms.

Imports System.Windows.Forms 
Public Class Form1 
   Private Sub Button1_Click(ByVal sender As System.Object, _ 
           ByVal e As System.EventArgs) Handles Button1.Click 
      Dim nomeForm As String = "Form1" 
      If VerificaFormAperto(nomeForm) = True Then 
         MessageBox.Show(nomeForm & " è aperto!") 
      Else 
         MessageBox.Show(nomeForm & " NON è aperto") 
      End If 
   End Sub 
  
   Public Function VerificaFormAperto(ByVal nomeForm As String) _ 
         As Boolean 
      Dim f As Form 
      For Each f In Application.OpenForms 
         If f.Name = nomeForm Then 
            Return True 
         End If 
      Next 
      Return False 
   End Function 
End Class