Click here to Skip to main content
15,885,278 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
VB
public ke As Integer
    Dim kelA(ke) As Object
    Dim kelB(ke) As Object

    Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        kelA(0) = a1.text : kelB(0) = b1.text
        kelA(1) = a2.text : kelB(1) = b2.text
        kelA(2) = a3.text : kelB(2) = b3.text
        kelA(3) = a4.text : kelB(3) = b4.text
end sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        For i = 0 To 1
            If kelA(ke) = a.Text Then
                b.Text = kelB(ke)
            Else
                ke = i + 1
            End If
        Next
    End Sub
Posted
Comments
Maciej Los 12-Dec-14 1:55am    
What?

1 solution

Try the following:

VB
For i = 0 to 3
    If kelA(i) = a.Text Then
        b.Text = kelB(i)
        Exit For
    End If
Next


Good luck.
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900