[anes]

(02-06-17, 10:52 PM)alma2 كتب :

كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       If InitValues("5289EAB6EC") Then
           MsgBox("موجود")
       Else
           MsgBox("لا")
       End If
   End Sub

   Private Function InitValues(v As String) As Object
       Dim SecCode() As String = {
           "5289EAB6EC",
           "1289EAB6EC",
           "2289EAB6EC",
           "4289EAB6EC",
           "6289EAB6EC",
           "7289EAB6EC"
       }
       Return SecCode.Contains(v)
   End Function

الكود يعطيني كل الارقام موجودة  حتى لو كتبت رقم غير موجود يظهر انه موجود