2016-03-25 9 views

Antwort

3

Angenommen, Sie haben zwei Textfelder und eine Schaltfläche:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim textBox1InputString As String 
    textBox1InputString = TextBox1.Text 

    ' Call ToCharArray function. 
    Dim array() As Char = textBox1InputString.ToCharArray 

    ' If we input ABC and we want C 
    TextBox2.Text = array(2) 

End Sub 
1
For i = 0 To TextBox1.Text.Length 
    If i = 2 Then 
     TextBox2.Text = TextBox1.Text(i) 
    End If 

Next