gabe

Ordinato questo libro per prepararmi per l'esame 70-305, mi arriva a fine agosto, speravo di approffittarne in questo periodo di semiferie per studiare, dovrò arrangiarmi con quello che si trova sul web...

http://www.librinformatica.it/novita/libri02/mi4158.htm

O.t. Nella pausa pranzo sono caduto dallo scooter, non mi sono fatto niente, c'è poco da fare il 2007 non è il mio anno fortunato, questa considerazione è dovuta  a problemi un pò più seri che una sbucciatura, ma quando anche piccoli eventi si sommano a quelli non proprio piccoli il tutto diventa insopportabile.... momento di sfogo libero...

Domenica d'agosto, se non puoi andare a spaparanzarti al sole la noia nelle domeniche d'agosto può ucciderti, così mi sono messo a rifare un piccolo controllo che avevo fatto anni orsono per vb 6, avevo creato un controllo formato da una label e un maskedit, questo ocx mi ha fatto compagnia in tutti i miei progetti in vb6. In questo pomeriggio di agosto mi sono messo con il mio buon vs2005 e ho fatto un user control che può sostituire il vecchietto ocx, nulla di che poche righe un usercontrol banale ma sò che mi farà compagnia ogni qual volta dovrò creare un interfaccia utente. Riporto qui il codice sorgente,piazzare due controlli un maskedit (txt_dati) e una label (Lbl_Descrizione) :

Public Class NDataControl Public Event MyGotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Public Event MyLostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Public MyNumero As Integer Public MaxLengtH As Integer Public Property MyNumeroDataTesto() As Integer Get Return MyNumero End Get Set(ByVal Value As Integer) ' Prevent a negative value. MyNumero = Value End Set End Property Public Property MyMaxLength() As String Get Return MaxLengtH End Get Set(ByVal Value As String) ' Prevent a negative value. MaxLengtH = Value End Set End Property Public Property MyMask() As String Get Return Txt_Dati.Mask End Get Set(ByVal Value As String) ' Prevent a negative value. Txt_Dati.Mask = Value End Set End Property Public Property MyText() As String Get Return Txt_Dati.Text End Get Set(ByVal Value As String) ' Prevent a negative value. Txt_Dati.Text = Value End Set End Property Public Property MyCaption() As String Get Return Lbl_Descrizione.Text End Get Set(ByVal Value As String) ' Prevent a negative value. Lbl_Descrizione.Text = Value End Set End Property Private Sub Txt_Dati_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.GotFocus Txt_Dati.SelectionStart = 0 Txt_Dati.SelectionLength = Len(Txt_Dati.Text) RaiseEvent MyGotFocus(sender, e) End Sub Private Sub Txt_Dati_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_Dati.KeyDown If Len(Txt_Dati.Text) >= MaxLengtH And MaxLengtH <> 0 Then If e.KeyCode <> Keys.Left And e.KeyCode <> Keys.Right And e.KeyCode <> Keys.Back And e.KeyCode <> Keys.Delete And _ e.KeyCode <> Keys.Home And e.KeyCode <> Keys.End Then e.SuppressKeyPress = True End If End If If MyNumero = 1 Then If (e.KeyCode >= Asc("0") And e.KeyCode <= Asc("9")) Or (e.KeyCode = Keys.Oemcomma And Txt_Dati.Text.IndexOf(",") = -1) Or e.KeyCode = Keys.OemPeriod Or _ e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.Back Or e.KeyCode = Keys.Delete _ Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.End Then Else e.SuppressKeyPress = True End If End If End Sub Private Sub Txt_Dati_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.LostFocus RaiseEvent MyLostFocus(sender, e) End Sub Private Sub NDataControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Lbl_Descrizione.Width = Me.Width Txt_Dati.Width = Me.Width End Sub Private Sub Txt_Dati_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles Txt_Dati.MaskInputRejected End Sub Private Sub Txt_Dati_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.TextChanged If Len(Txt_Dati.Text) >= MaxLengtH And MaxLengtH <> 0 Then Txt_Dati.Text = Mid(Txt_Dati.Text, 1, MaxLengtH) End If End Sub End Class

Il controllo presenta un proprietà pubblica chiamata MyNumeroDataTesto che se assegnato il valore 1 controlla che i dati inseriti nella maskedit siano solo numeri da 0 a 9, virgola e punto (controlla anche che la virgola sia una sola), le altre proprietà pubbliche sono MyText il contenuto del maskedit, MyCaption il testo della label e MyMask la mascheratura da assegnare al controllo (es : 00/00/0000 per le date), appena si attiva l'evento got focus del maskedit il testo inserito si evidenzia tutto. E' inoltre presenta la proprietà MyMaxLength che serve a impostare il numero massimo di caratteri da inserire.