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
For i = 0 to 3 If kelA(i) = a.Text Then b.Text = kelB(i) Exit For End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)