AdvancedHMI Software
General Category => Tips & Tricks => Topic started by: Archie on March 20, 2017, 10:07:00 AM
-
This is a very simple method to allow a user to enter a value in a TextBox without a physical keyboard. I used the double click event in order to allow the option of single click for physical keyboard and double click for virtual keyboard.
- In Solution Explorer, double click MainForm.vb to open in design view
- In the Toolbox, under All Windows Forms group, add a TextBox to the form
- With the TextBox selected, go to the Properties Window and at the top click the lightening bolt to see the event list
- Find the DoubleClick and double click in the are to the right of it. This will take you back to the code
- Insert the code shown here:
Private Sub TextBox1_DoubleClick(sender As Object, e As EventArgs) Handles TextBox1.DoubleClick
Dim kpd As New MfgControl.AdvancedHMI.Controls.AlphaKeyboard
If kpd.ShowDialog = DialogResult.OK Then
TextBox1.Text = kpd.Value
End If
End Sub
- Run the application and double click on the Textbox
-
Do you have example code of this in C#. When I am trying to code this in C# I get an error in the If statement for kpd.ShowDialog = DialogResult.OK
-
Do you have example code of this in C#. When I am trying to code this in C# I get an error in the If statement for kpd.ShowDialog = DialogResult.OK
private void TextBox1_DoubleClick(object sender, EventArgs e)
{
MfgControl.AdvancedHMI.Controls.AlphaKeyboard kpd = new MfgControl.AdvancedHMI.Controls.AlphaKeyboard();
if (kpd.ShowDialog == DialogResult.OK) {
TextBox1.Text = kpd.Value;
}
}
-
One change had to be made. kpd.ShowDialog should be kpd.ShowDialog(). See code below.
private void TextBox1_DoubleClick(object sender, EventArgs e)
{
MfgControl.AdvancedHMI.Controls.AlphaKeyboard kpd = new MfgControl.AdvancedHMI.Controls.AlphaKeyboard();
if (kpd.ShowDialog() == DialogResult.OK) {
TextBox1.Text = kpd.Value;
}
}
-
What have you done about restricting characters? For example, if I only want them to enter numbers? I currently have this code written, but for the textbox, is there a good way of limiting the keyboard before they send to the object?
James
-
What have you done about restricting characters? For example, if I only want them to enter numbers?
You could use the MfgControl.AdvancedHMI.Controls.Keypad if it is only numeric input
-
What have you done about restricting characters? For example, if I only want them to enter numbers?
You could use the MfgControl.AdvancedHMI.Controls.Keypad if it is only numeric input
Thanks for the input Archie. The more I thought about it, the code needs to be part of the "object", since if the application is being run on a desktop they won't be using the popup keyboard or calculator.
James
-
Private Sub TextBox1_DoubleClick(sender As Object, e As EventArgs) Handles TextBox1.DoubleClick
Dim kpd As New MfgControl.AdvancedHMI.Controls.AlphaKeyboard
If kpd.ShowDialog = DialogResult.OK Then
TextBox1.Text = kpd.Value
End If
End Sub
I know this is an old thread, but I am using this for a windows touch screen application. I have been trying to figure out how to relocate the keyboard to the center bottom of the screen. Is there a way to set this in the properties for the AlphaKeyboard?
-
Maybe something like this:
Dim kpd As New MfgControl.AdvancedHMI.Controls.AlphaKeyboard
kpd.StartPosition = FormStartPosition.Manual
kpd.Location = New Point(Me.Width / 2 - kpd.Width / 2, Me.Height - kpd.Height)
If kpd.ShowDialog = DialogResult.OK Then
TextBox1.Text = kpd.Value
End If
-
Maybe something like this:
Dim kpd As New MfgControl.AdvancedHMI.Controls.AlphaKeyboard
kpd.StartPosition = FormStartPosition.Manual
kpd.Location = New Point(Me.Width / 2 - kpd.Width / 2, Me.Height - kpd.Height)
If kpd.ShowDialog = DialogResult.OK Then
TextBox1.Text = kpd.Value
End If
This works perfectly, thank you!