Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Me.MaskedTextBox1.Text.Length = 5) Then
Dim strArrays As String() = New String(5)
strArrays(0) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(0, 1))
strArrays(1) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(1, 1))
strArrays(2) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(2, 1))
strArrays(3) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(3, 1))
strArrays(4) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(4, 1))
Me.TextBox1.Text = String.Concat(strArrays)
Else
Me.TextBox1.Text = "?????????????????????????"
End If
End Sub
I'm receiving an error message "value of type 'integer' cannot be converted to '1-dimensional array of Char'.
I'm making a program to convert zip codes into digit2bar, if this makes sense?
Thanks,
Justin:sick:
If (Me.MaskedTextBox1.Text.Length = 5) Then
Dim strArrays As String() = New String(5)
strArrays(0) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(0, 1))
strArrays(1) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(1, 1))
strArrays(2) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(2, 1))
strArrays(3) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(3, 1))
strArrays(4) = Me.digit2bar(Me.MaskedTextBox1.Text.Substring(4, 1))
Me.TextBox1.Text = String.Concat(strArrays)
Else
Me.TextBox1.Text = "?????????????????????????"
End If
End Sub
I'm receiving an error message "value of type 'integer' cannot be converted to '1-dimensional array of Char'.
I'm making a program to convert zip codes into digit2bar, if this makes sense?
Thanks,
Justin:sick: