Questo articolo fa parte del progetto Independent Codes

Ho ricevuto una richiesta da un lettore del blog: accettare in un textbox solo certi valori ed in particolare solo numeri o la virgola, ecco la soluzione:

Prima di tutto bisogna far sì che il form in cui stiamo lavorando abbia attiva la proprietà “Keypreview” (come si vede nell’immagine allegata al post), quindi, nel caso si abbiano più textbox (ed è probabile..) bisogna fare in modo che solo in quelli interessati, ci sia il controllo e l’esclusione dei tasti non voluti (ad es. se c’é un textbox per un ipotetico “nome prodotto” ci interesserà accettare anche le lettere), nondimeno possiamo anche, fin che ci siamo, applicare qualche piccola regola ad esempio per la virgola (non accettarla come primo carattere e accettarla una sola volta all’interno della nostra stringa).
Qui sotto trovate il codice del form.

Public Class Form1

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If Me.Tag = “nums” Then
If (e.KeyCode >= 48) And (e.KeyCode <= 57) Or (e.KeyCode = 188) Or (e.KeyCode = Keys.Back) Or (e.KeyCode = Keys.Cancel) Or (e.KeyCode = Keys.Left) Or (e.KeyCode = Keys.Right) Then
If e.KeyCode = 188 Then
If (TextBox1.Text.Length > 0) And (InStr(TextBox1.Text, “,”) = False) Then

Else
e.SuppressKeyPress = True
End If
End If
Else
e.SuppressKeyPress = True
End If
End If
End Sub

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Me.Tag = “nums”
End Sub

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Me.Tag = “”
End Sub

End Class

Se avete trovato interessante questo codice e, come spero, vi ha risolto qualche problema, per favore DONATE su paypal tramite l’apposito pulsante! (un caffé fa sempre piacere, no?)

Questo articolo fa parte del progetto Independent Codes
Per assegnare un tooltip ad un bottone, non dobbiamo fare altro che trascinare dalla toolbar un oggetto “tooltip” nel nostro form, quindi inserire il codice seguente:


Private Sub NOMEBOTTONE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOMEBOTTONE.MouseHover
ToolTip1.SetToolTip(NOMEBOTTONE, "testo del tooltip")
End Sub

Questo articolo fa parte del progetto Independent Codes
Se in un form abbiamo la necessità di conoscere il nome dell’attuale controllo attivo, (può capitare nell’attività di consulenza informatica di dover realizzare anche progetti software…) possiamo far ricorso ad una delle mille proprietà disponibili per gli oggetti di .net. Il codice seguente, semplice e funzionale, fa decisamente al caso nostro:

Me.ActiveControl.Name

Questo articolo fa parte del progetto Independent Codes
Nei programmi gestionali può capitare spesso di imbattersi in problemi legati alla diversa codifica dei caratteri ed in particolare alle impostazioni internazionali (ad es. per gli americani la virgola è il separatore delle migliaia, non dei decimali), si può avere quindi la necessità di dover sostiture un tasto (nel nostro esempio il “punto” del tastierino numerico) con un altro (la virgola…). Per fare questo dobbiamo eseguire diverse operazioni, intercettare la pressione di un tasto, verificare che sia il tasto che vogliamo sostituire, inviare come input il carattere sostituito, evitare che il “vecchio” carattere finisca comunque nell’input. Il codice seguente, inserito nell’evento KEYDOWN, fa tutto ciò in maniera veloce ed elegante.


If e.KeyCode = 110 Then
SendKeys.Send(",") 'manda la virgola al posto del .
e.SuppressKeyPress = True 'fa in modo che il . non vada nell'input
End If


Questo articolo fa parte del progetto Independent Codes
Capita di dover formattare una colonna con dati numerici come valuta (currency) in un controllo DataGridView. Come fare? Con le nuove proprietà di .net è abbastanza agevole (a patto di trovare adeguate reference…):

DataGridView1.Columns(NUMERO_COLONNA).DefaultCellStyle.Format = "c"

Potete approfondire qui: http://msdn.microsoft.com/en-us/library/dwhawy9k(vs.71).aspx

Questo articolo fa parte del progetto Independent Codes
Per popolare un controllo DataGridView tramite database possiamo usare questo codice, molto semplice e diretto:
(posto che CN sia una connection valida e SQL sia una query SQL valida)


Dim da = New OleDb.OleDbDataAdapter(sql, cn)
Dim ds As New DataSet
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)


E’ possibile anche personalizzare la dimensione delle colonne, nonché il loro Header e allineamento del testo con semplici proprietà;
per una query che restituisca 5 colonne, di cui vogliamo nascondere l’ultima:


'modifico le dimensioni delle colonne
DataGridView1.Columns(0).Width = 50
DataGridView1.Columns(1).Width = 100
DataGridView1.Columns(2).Width = 120
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Visible = False 'questa viene nascosta

'setto i titoli e allineamento per le colonne
DataGridView1.Columns(0).HeaderText = "ID"
DataGridView1.Columns(1).HeaderText = "Data"
DataGridView1.Columns(2).HeaderText = "Testo"
DataGridView1.Columns(3).HeaderText = "Numero" 'che provvedo ad allineare a destra
DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight


Questo articolo fa parte del progetto Independent Codes
Quando inseriamo il controllo printPreviewDialog in un form, spesso lo zoom è impostato in maniera da non visualizzare quasi nulla di quello che vogliamo vedere in anteprima, per preimpostare uno zoom di default (in questo caso 100%) possiamo usare il codice seguente:

printPreviewDialog1.Width = Screen.PrimaryScreen.Bounds.Width;
printPreviewDialog1.Height = Screen.PrimaryScreen.Bounds.Height;
printPreviewDialog1.PrintPreviewControl.Zoom = 1.0;
printPreviewDialog1.ShowDialog();

Questo articolo fa parte del progetto Independent Codes
Per far sì che il tasto Enter si comporti come il TAB e quindi utilizzarlo per passare al controllo successivo nell’ordine di tabulazione, bisogna innanzitutto settare come TRUE la proprietà KeyPreview del form, quindi nell’evento KeyPress bisogna inserire questo codice:

Capita a volte di realizzare dei form o dialog che debbano interagire con il form padre, senza sapere quale sia, ad esempio perché lo stesso dialogo viene richiamato in più parti del progetto.

E’ essenziale in questo caso fare 2 cose:

Per fare questo possiamo usare queste funzioni:
frmFiglio.ShowDialog(Me)
per richiamare il dialogo dichiarando il padre (ME)

Dim ff As New Form
ff = Me.Owner.FindForm()
ff.Controls("NomeControllo").Text = Valore
per identificare il form padre ed impostare il “VALORE” al controllo “NomeControllo”