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
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
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();

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”