Foro de elhacker.net

HOLA A TODOS, COMO PUEDO HACER PARA K ME BUSQUE UN CODIGO INGRESADO EN MI PROGRAMA Y AL MOMENTO DE BUSCAR ME INDIQUE SI EXISTE O NO EXISTE. DE ANTEMANO GRACIAS - ESTOY TRBAJANOD EN APLICACION PARA WINDOWS

Public Class Form1
    Public Shared i As Integer = 0
    Dim alum(5) As ListaAlumno.ListaAlumno
    Sub agregar()

        i += 1
        alum(i).codAlum = mtxtCodigo.Text
        alum(i).Nombre = txtNombre.Text
        alum(i).Apellido = txtApellidos.Text
        alum(i).Especialidad = cbEspecialidad.Text

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click

        agregar()
        listAlumno.Items.Add(alum(i).codAlum & "       " & alum(i).Nombre & "      " & alum(i).Apellido & "       " & alum(i).Especialidad)
        MsgBox("Alumno guardado!", MsgBoxStyle.OkOnly, "OK")
               
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        If i < 5 Then
            mtxtCodigo.Text = ""
            txtNombre.Text = ""
            txtApellidos.Text = ""
            cbEspecialidad.Text = ""
        Else
            MsgBox("Lista llena!", MsgBoxStyle.OkOnly, "OK")
        End If
    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click

        For i = 0 To 5
            If mtxtCodigo.Text = alum(i).codAlum Then
                MsgBox("el codigo  existe  " & txtBuscar.Text)
                Exit For
            Else
                MsgBox("el codigo no existe " & txtBuscar.Text)
                Exit For
            End If
        Next
            End Sub
End Class


ESTO ES MI CLASE:
Public Class ListaAlumno
    Public Structure ListaAlumno
        Public codAlum As Integer
        Public Nombre As String
        Public Apellido As String
        Public Especialidad As String
    End Structure

End Class

Mira mi ejemplo :

Private Sub Command1_Click()
    Dim x As Integer
    Dim Det() As String
    Dim strBuscar As String
    Det = Split("dedo,saco,nariz,diamante,rey", ",")
    strBuscar = "diamante"
    For x = LBound(Det()) To UBound(Det())
        If Det(x) = strBuscar Then MsgBox "El String """ & strBuscar & """ está en el elemento " & x _
        & " de mi Array", vbInformation, "*PsYkE1*"
    Next
End Sub

No obstante te vendria bien hechar un vistazo a esto : http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico6.htm

Espero haberte ayudado... :)

Salu2! ;)