Need Visual Basic Help
 

I am in the process of designing a scouting program.
I have the following code:
Private Sub teamnum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles teamnum.KeyPress

Dim allowedChars As String = "0123456789"

If allowedChars.IndexOf(e.KeyChar) = -1 Then
' Invalid Character
e.Handled = True
End If

End Sub

But I would like to add the function of a backspace key.:confused:

Re: Need Visual Basic Help
 

You have to use the ascii character for backspace which is 8.

Try this:

Dim allowedChars As String = "0123456789" + Chr(8)

Re: Need Visual Basic Help
 

The solution to this problem in DOS-mode Pascal was to read ASCII character 8. In C, you would use \b or \x08. See this table for a VB constant called "vbBack" that may work equivalently.

Re: Need Visual Basic Help
 

Thanks! Works Perfectly!:D

Re: Need Visual Basic Help
 

the constant vbBack will work as well.

Re: Need Visual Basic Help
 

Thanks for all the answers, I will release the the database and cooresponding programs as soon as they are finished.

Re: Need Visual Basic Help
 

Ran into another issue I have a checkedlistbox with 6 checkboxes and would like to put code in a clear button to uncheck all of the 6 checkboxes.

Re: Need Visual Basic Help
 

Two ways you can do it...

1. If they are the only checkboxes on the form(or panel, etc):
2. If there are other controls you don't want to mess with, you'll need to just specify each checkbox by name, such as:

Re: Need Visual Basic Help
 

You want to try something like this. Place it in the ButtonUnchecked clicked sub.

For i As Integer = 0 To checklistbox1.Items.Count - 1
checklistbox1.SetItemChecked(i, False)
Next i

Re: Need Visual Basic Help
 

Ok I finally found it. After a day on Google, here's the code:


Dim i As Integer
For i = 0 To Me.CheckedListBox1.CheckedIndices.Count - 1
Me.CheckedListBox1.SetItemChecked(Me.CheckedListBo x1.CheckedIndices(0), False)
Next i