Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Private Sub PosCompartAdvance()
If Me.CheckBox7.Checked = True Then ' Position
' Me.FldPositionTextBox.Text = mlngData7
If Me.CheckBox9.Checked = True Then
Me.FldPositionTextBox.Text = mlngData7 ' Position
Dim arg As Char = Trim(FldPositionTextBox.Text)
If Char.IsLetter(arg) Then
Dim value As Integer = AscW(arg)
Select Case value
Case 65 To 89, 97 To 121
FldPositionTextBox.Text = Trim(ChrW(value + 1).ToString)
End Select
End If
If Char.IsNumber(arg) Then
Dim value As Integer
' Dim value As Integer = CInt(FldPositionTextBox.Text).ToString ' added to string here 01/25/2011
'Dim value As Integer = Trim(Integer.Parse(FldPositionTextBox.Text))
value = Trim(Integer.Parse(FldPositionTextBox.Text))
Select Case value
Case Is > 0 ' or Case 1 To 1000
value += 1
FldPositionTextBox.Text = value.ToString
If Me.FldPositionTextBox.Text = "1" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "2" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "3" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "4" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "5" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "6" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "7" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "8" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
If Me.FldPositionTextBox.Text = "9" Then Me.FldPositionTextBox.Text = "0" + Me.FldPositionTextBox.Text
End Select
End If
End If
Else
' else not checked
End If
If Me.CheckBox8.Checked = True Then ' Compartment
' Me.FldCompartmentTextBox.Text = mlngData8
If Me.CheckBox10.Checked = True Then
Me.FldCompartmentTextBox.Text = mlngData8 ' Compartment
Dim arg As Char = FldCompartmentTextBox.Text
If Char.IsLetter(arg) Then
Dim value As Integer = AscW(arg)
Select Case value
Case 65 To 89, 97 To 121
' value = System.Text.RegularExpressions.Regex.Replace(FldPositionTextBox.Text, "[^a-zA-Z0-9]", String.Empty)
FldCompartmentTextBox.Text = ChrW(value + 1).ToString
End Select
End If
If Char.IsNumber(arg) Then
' Dim value As Integer = CInt(FldCompartmentTextBox.Text)
Dim value As Integer = Integer.Parse(FldCompartmentTextBox.Text)
Select Case value
Case Is > 0 ' or Case 1 To 1000
value += 1
FldCompartmentTextBox.Text = value.ToString
If Me.FldCompartmentTextBox.Text = "1" Then FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "2" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "3" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "4" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "5" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "6" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "7" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "8" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
If Me.FldCompartmentTextBox.Text = "9" Then Me.FldCompartmentTextBox.Text = "0" + Me.FldCompartmentTextBox.Text
End Select
End If
End If
Else
' else not checked
' FldCompartmentTextBox.Clear()
End If
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join the community of 500,000 technology professionals and ask your questions.