EJERCICIOS EN CLASE

EJERCICIOS EN CLASE

UTILIZANDO LISTBOX

ublicClassForm1

PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

ListBox1.Items.Add("pedro")

ListBox1.Items.Add("juan")

ListBox1.Items.Add("jose")

ListBox1.Items.Add("maria")

ListBox1.Items.Add("nathalia")

ListBox1.Items.Add("sofia")

EndSub

PrivateSub TextBox1_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles TextBox1.TextChanged

EndSub

PrivateSub ListBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles ListBox1.SelectedIndexChanged

        TextBox1.Text = ("pedro")

        TextBox1.Text = ("juan")

        TextBox1.Text = ("jose")

        TextBox1.Text = ("maria")

        TextBox1.Text = ("nathalia")

        TextBox1.Text = ("sofia")

        TextBox1.Text = ListBox1.SelectedItem

EndSub

EndClass

CONECTANDO BASE DE DATOS

       CON VISUAL BASIC