Uso del control ComboBox

Escrito por Carla Vázquez el Martes 19 de Febrero de 2008 a las 15:40hs

Mumbanet-google

El control Combobox de Visual Basic es uno de los recursos más utilizados a la hora de programar. Su comportamiento es similar al control Listbox, sólo que a diferencia de este último, el control Combobox no sólo permite la selección de una opción dentro de una lista predefinida de datos, sino además ingresar una nueva entrada.

Por lo tanto, esta herramienta resulta fundamental a la hora de definir aquel conjunto de datos. El Combobox consta de dos partes: un encabezado que corresponde al nombre de dicho conjunto (por ejemplo: Países o Sexo) y una segunda que abarca las opciones posibles (ejemplo: masculino, femenino), es decir comprende una lista de elementos que delimitan la selección del usuario. Este control cuenta con diferentes estilos o modos. El primero es una forma Simple que muestra el control Edit y el ListBox.

Gracias a la propiedad DropDownStyle, otra forma permite el despliegue de la lista hacia abajo. En principio la lista permanece oculta, mostrándose únicamente cuando el usuario presione el icono de la flecha a la derecha del control. Por lo tanto dependiendo del estilo que se utilice estará abierta la posibilidad o no para editar el campo de selección. La lista de opciones o respuestas se carga al mismo momento de diseño de la ventana.

Para llevar a cabo dicha aplicación se deberá ingresar en la página de propiedades y allí proceder a ingresar la primera opción o respuesta y aceptar (enter). Esta acción debe repetirse para cargar todas las respuestas deseadas, siendo conveniente en el caso de tratarse de un número reducido de opciones. El Combobox contiene una serie de propiedades aplicables únicamente en tiempo de ejecución, siendo las principales:

  • ListCount: sirve para indicar el número de elementos en la lista correspondiente
  • ListIndex: proporciona el número de orden del elemento que se ha seleccionado; AddItem y RemoveItem permite agregar o eliminar elementos.
  • List (n): obtiene el elemento cuyo número de orden está indicado con “n”.
  • Text: consiste en una propiedad que muestra el texto de la parte Textbox del Combobox, la cual puede introducirse a través del teclado o ser una opción seleccionada, como vimos anteriormente.

Datos útiles para programar en Visual Basic:

Valor Seleccionado:

Combo.ItemData(Combo.ListIndex)

A la hora de agregar datos, se utiliza la función Add

Combo.AddItem "Primera Hoja" Combo.ItemData(0) = 1234 Combo.AddItem "Segunda Hoja" Combo.ItemData(1) = 5678

En el caso de querer eliminar elementos, la función requerida es la siguiente:

1) Para eliminar un elemento con el índice cero:

ComboBox1.Items.RemoveAt(0)

2) Para eliminar un elemento actualmente seleccionado:

ComboBox1.Items.Remove(ComboBox1.SelectedItem)

3) Para eliminar el elemento "ejemplo":

ComboBox1.Items.Remove("ejemplo")

4) En caso de optar por eliminar todos los elementos:

ListBox1.Items.Clear()

Otra opción que brinda el recurso Combobox es permitir ordenar los elementos de la lista correspondiente, dado que no los ordena por sí solo. Por lo tanto, en caso de desear una visualización alfabéticamente ordenada se debe establecer en la propiedad “sorted” (de la ventana propiedades) el valor “true”. ¡De este modo los elementos quedarán en orden!

Espero les haya servido de ayuda!


comentarios



  1. Welcome to shopping heaven, the summer is coming, what are you waiting for, just come and go shopping, here are our featured and best-seller products:
    mbt shoesmbt shoes mbtmbt mbt shoes salembt shoes sale mbt shoes cheapmbt shoes cheap chanel shoeschanel shoes lanvin shoeslanvin shoes herve legerherve leger miu miu shoesmiu miu shoes christian louboutin discountchristian louboutin discount christian louboutin salechristian louboutin sale tory burch shoestory burch shoes christian louboutinchristian louboutin christian louboutin shoeschristian louboutin shoes lanvin flatslanvin flats discount christian louboutindiscount christian louboutin louboutin discountlouboutin discount monclermoncler herve leger saleherve leger sale lanvinlanvin discount christian louboutin shoesdiscount christian louboutin shoes christian louboutin sale shoeschristian louboutin sale shoes chanel shoes salechanel shoes sale discount chanel shoesdiscount chanel shoes lanvin flats salelanvin flats sale manolo blahnikmanolo blahnik chanel shoes on salechanel shoes on sale chanel shoes onlinechanel shoes online cheap christian louboutin shoescheap christian louboutin shoes cheap manolo blahnik shoescheap manolo blahnik shoes ferragamo ribesferragamo ribes herve leger discountherve leger discount christian louboutin shoes on salechristian louboutin shoes on sale christian louboutin shoes salechristian louboutin shoes sale louboutin discount shoeslouboutin discount shoes cheap herve leger dressescheap herve leger dresses MBT KayaMBT Kaya ferragamo shoesferragamo shoes chanel pumpschanel pumps MBT Chapa shoesMBT Chapa shoes MBT M.Walk shoesMBT M.Walk shoes MBT Sport shoesMBT Sport shoes MBT Lami shoesMBT Lami shoes MBT Denim ShoesMBT Denim Shoes MBT kisumu SandalsMBT kisumu Sandals MBT Karani ShoesMBT Karani Shoes MBT Kaya shoesMBT Kaya shoes Jimmy Choo ShoesJimmy Choo Shoes Yves Saint Laurent ShoesYves Saint Laurent Shoes Yves Saint LaurentYves Saint Laurent ysl shoesysl shoes Vivienne Westwood ShoesVivienne Westwood Shoes Vibram Five Fingers ShoesVibram Five Fingers Shoes Alexander Mcqueen ShoesAlexander Mcqueen Shoes Giuseppe Zanotti shoesGiuseppe Zanotti shoes Louis Vuitton ShoesLouis Vuitton Shoes Manolo Blahnik ShoesManolo Blahnik Shoes Marc Jacobs ShoesMarc Jacobs Shoes Salvatore Ferragamo ShoesSalvatore Ferragamo Shoes Sergio Rossi ShoesSergio Rossi Shoes Nike ShoesNike Shoes GHD Hair StraightenersGHD Hair Straighteners< Alexander WangAlexander Wang Manolo Blahnik SaleManolo Blahnik Sale Salvatore FerragamoSalvatore Ferragamo Sergio RossiSergio Rossi Giuseppe ZanottiGiuseppe Zanotti herve leger dressesherve leger dresses Jimmy ChooJimmy Choo



  2. Welcome to shopping heaven, the summer is coming, what are you waiting for, just come and go shopping, here are our featured and best-seller products:
    GHD Hair Straighteners Moncler Accessories Herve Leger Dkny Shoes Coach ShoesCoach Shoes Fendi ShoesFendi Shoes Dior ShoesDior Shoes D&G ShoesD&G Shoes Marc JacobsGucci Shoes Gucci ShoesGucci Shoes Louis Vuitton shoes saleMiu Miu Shoes Salvatore FerragamoMiu Miu Shoes Miu Miu ShoesMiu Miu Shoes Chanel ShoesManolo Blahnik Tory BurchManolo Blahnik Sergio Rossi ShoesManolo Blahnik Manolo BlahnikManolo Blahnik Giuseppe ZanottiJimmy Choo Alexander McqueenJimmy Choo yslJimmy Choo Jimmy ChooJimmy Choo christian Louboutin ShoesLouboutin Slingback christian Louboutin BootsLouboutin Slingback christian Louboutin PumpsLouboutin Slingback Louboutin SlingbackLouboutin Slingback Alexander Wang goddess dressSalvatore Ferragamo shoes Vibram Five FingersSalvatore Ferragamo shoes Vivienne Westwood Melissa ShoesSalvatore Ferragamo shoes Salvatore Ferragamo shoesSalvatore Ferragamo shoes Manolo Blahnik saleTory Burch shoes Giuseppe Zanotti shoesTory Burch shoes Lanvin ShoesTory Burch shoes Tory Burch shoesTory Burch shoes Louis Vuitton ShoesAlexander Mcqueen Shoes Marc Jacobs ShoesAlexander Mcqueen Shoes Chanel Shoes onlineAlexander Mcqueen Shoes Alexander Mcqueen ShoesAlexander Mcqueen Shoes ysl shoesysl shoes Jimmy Choo shoesJimmy Choo shoes Louboutin Bootshandbags Louboutin shoeshandbags Louboutin Bootshandbags Louboutin Pumpshandbags Louboutin Sandalshandbags Louboutin Slingbackhandbags Moncler clothingMoncler clothing GHD Straightenershandbags Herve Leger dresshandbags Vibrum FiveFingers Shoeshandbags Vivienne Westwood Shoeshandbags Bottega Venetahandbags Cartier handbagshandbags Balenciaga handbagshandbags Chloe handbagsChloe handbags Celine handbagsCeline handbags Bally handbagsBally handbags Loewe handbagsLoewe handbags Givenchy handbagsGivenchy handbags Marni handbagsMulberry handbags Mulberry handbags Thomas handbagsThomas handbags Valentino handbagsValentino handbags Versace handbagsVersace handbags Lancel handbagsLancel handbags miu miu black bagmiu miu black bag miu miu shoulder bagmiu miu shoulder bag miu miu matelassemiu miu matelasse designer handbag imposterdesigner handbag imposter designer hobo bagsdesigner hobo bags designer imposter handbagsdesigner imposter handbags louis vuitton walletslouis vuitton wallets louis vuitton monogram canvaslouis vuitton monogram canvas louis vuitton almalouis vuitton alma ysl handbagsysl handbags gucci bags on salegucci bags on sale gucci handbags on salegucci handbags on sale fendi zucca bagfendi zucca bag fendi spy replicafendi spy replica spring coach bagsspring coach bags dolce handbagdolce handbag miu miu leather bagmiu miu leather bag lancel handbaglancel handbag marc jacobs handbags salemarc jacobs handbags sale marc jacobs hobomarc jacobs hobo marc jacobs satchelmarc jacobs satchel thomas wylde bagthomas wylde bag thomas bagthomas bag valentino bagversace handbag versace handbagalentino bag cartier bagcartier bag cartier walletscartier wallets givenchy baggivenchy bag christian handbagschristian handbags Abercrombie Fitch MensAbercrombie Fitch Mens Abercrombie Fitch WomensAbercrombie Fitch Womens Abercrombie Fitch CouplesAbercrombie Fitch Couples Abercrombie BagsAbercrombie Bags Abercrombie Fitch Classic ScarvesAbercrombie Fitch Classic Scarves Abercrombie Fitch Classic CapsAbercrombie Fitch Classic Caps Ruehl No.925Ruehl No.925 Abercrombie ClothingAbercrombie Clothing



  3. 298274818336917502974 From the official [URL=http://www.onlinemuslimitems.com/]Muslim Abaya[/URL] website of anticipated [URL=http://www.onlinemuslimitems.com/]Muslim Items[/URL] Star Wars The [URL=http://www.onlinemuslimitems.com/]Muslim hijab[/URL] Old Republic comes [URL=http://www.onlinemuslimitems.com/]Islamic abaya[/URL] this new video where the [URL=http://www.onlinemuslimitems.com/]Muslim scarf[/URL] game designers [URL=http://www.onlinemuslimitems.com/]Buy Muslim Abaya[/URL] tell us a little about [URL=http://www.onlinemuslimitems.com/]Cheap Muslim Abaya[/URL] the 2 different [URL=http://www.onlinemuslimitems.com/]Buy Muslim Items[/URL] classes find Sith characters [URL=http://www.onlinemuslimitems.com/]Cheap Muslim Items[/URL] in the game, The [URL=http://www.findnike.com]Islamic hijab[/URL] Inquisitor Sith [URL=http://www.onlinemuslimitems.com]Islamic scarf[/URL] and Sith Warrior. They explain a lot of [URL=http://www.onlinemuslimitems.com]Islamic Items[/URL] pictures as designed [URL=http://www.onlinemuslimitems.com]Muslim wear[/URL] these characters and [URL=http://www.onlinemuslimitems.com]Muslim clothing[/URL] their characteristics [URL=http://www.onlinemuslimitems.com]Muslim wear Pas Cher[/URL] one more devoted [URL=http://www.onlinemuslimitems.com]Muslim wear[/URL] to the use of force [URL=http://www.onlinemuslimitems.com]Muslim clothing[/URL] powers and one more [URL=http://www.onlinemuslimitems.com/]Muslim Items For Sale[/URL] dedicated to close combat.



  4. esta bueno tu explicacion pero muy largo lo has hecho men pero igual se entiende graxias por tu aporte. mas bien un favor no conoces una pagina donde me pueda bajar libros de visual basic y si es gratis mejor jaja lo necesito urgente haber si me lo mandan ah mi correro kofrankset_86@hotmail.com se agradece



  5. deberias guardadlo directamente desde el combo... no tiene caso enviarlo a un text... intentalo asi,,, o expon mejor tu problema.. no entiendo para que pones todo el codigo
    saludos



  6. Bueno, estoy haciendo un trabajo en Visual Basic 6.0,
    tengo un problemilla con el combobox,...enlace a la lista de este unos datos de una base de datos...y hago que al elegir uno,se vaya a un text, pero al momento de grabar graba todo menos lo que envie del combobox,...ademas me gustaria que al elegir una carrera en el siguiente combo aparescan todas las asignaturas correspondientes a esa carrera,..de todas maneras te envio el codigo form load:

    Private Sub cmdEliminar_Click()
    If MsgBox("confirme", vbYesNo + vbQuestion, "Desea Eliminar Registro") = vbYes Then
    Data_Doc.Recordset.Delete
    Data_Doc.Recordset.MoveFirst
    Do While Not Data_Doc.Recordset.EOF
    If Data_Doc.Recordset("Rut") = txtRut.Text Then
    Data_Doc.Recordset.Delete
    End If
    Data_Doc.Recordset.MoveNext
    Loop
    Data_Doc.Refresh
    Limpiar
    End If
    End Sub

    Private Sub cmdGuardar_Click()
    If MsgBox("Confirme", 4 + 32, "Desea Guardar Docente") = 6 Then
    Data_Doc.Recordset.AddNew
    Data_Doc.Recordset("Rut") = txtRut.Text
    Data_Doc.Recordset("Nombre") = txtNombre.Text
    Data_Doc.Recordset("NomCarrera") = txtNomCarrera.Text
    Data_Doc.Recordset("NomAsig") = txtAsig.tet
    Data_Doc.Recordset("HoraSema") = txtHoraSema.Text
    Data_Doc.Recordset("HoraSeme") = txtHoraSeme.Text
    Data_Doc.Recordset("HoraRealsem") = txtHoraReal.Text
    Data_Doc.Recordset("DifHora") = txtDifHoras.Text
    Data_Doc.Recordset("Jornada") = txtJornada.Text
    Data_Doc.Recordset.Update
    Else
    txtRut.Text = ""
    txtNombre.Text = ""
    txtCarre.Text = ""
    txtAsig.Text = ""
    txtHoraSema.Text = ""
    txtHoraSeme.Text = ""
    txtHoraReal.Text = ""
    txtDifHoras.Text = ""
    txtJornada.Text = ""
    End If
    cmdGuardar.Enabled = False
    Limpiar
    txtRut.SetFocus
    End Sub

    Private Sub cmdLimpiar_Click()
    msg = MsgBox("Se limpiaran ambas fechas.¿Desea Limpiar las Fecchas?", vbOKCancel, "Atención")
    Limpiar
    End Sub
    Private Function Limpiar()
    If msg = vbOK Then
    txtFechIni = ""
    txtFechTerm = ""
    txtRut = ""
    txtNombre = ""
    txtCarre = ""
    txtAsig = ""
    Combo1 = ""
    Combo2 = ""
    txtHoraSema = ""
    txtHoraSeme = ""
    txtHoraReal = ""
    txtDifHoras = ""
    txtJornada = ""
    txtFechIni.SetFocus
    Else
    txtRut = ""
    txtNombre = ""
    txtCarre = ""
    txtAsig = ""
    txtHoraSema = ""
    txtHoraSeme = ""
    txtHoraReal = ""
    txtDifHoras = ""
    txtJornada = ""
    txtRut.Enabled = True
    txtRut.SetFocus
    End If
    End Function
    Private Function vrut(txtRut)
    l = Len(txtRut) - 2
    s = 0
    m = 2
    For i = l To 1 Step -1
    c = Mid(txtRut, i, 1)
    s = s + Val(c) * m
    m = m + 1
    If m = 8 Then
    m = 2
    End If
    Next i
    RESTO = s Mod 11
    DV = 11 - RESTO
    If DV = 10 Then
    DVc = "k"
    End If
    If DV = 11 Then
    DVc = "0"
    End If
    If DV 10 And DV 11 Then
    DVc = CStr(DV)
    DVc = Right(DVc, 1)
    End If
    If DVc = Right(txtRut, 1) Then
    txtNombre.Enabled = True
    txtNombre.SetFocus

    Else
    a = MsgBox("Rut erroneo", vbOKOnly, "Error!!")
    txtRut = ""
    End If
    End Function

    Private Sub cmdModificar_Click()
    txtRut.Enabled = True
    txtNombre.Enabled = True
    txtCarre.Enabled = True
    txtAsig.Enabled = True
    txtHoraSema.Enabled = True
    txtHoraSeme.Enabled = True
    txtHoraReal.Enabled = True
    txtDifHoras.Enabled = True
    txtJornada.Enabled = True
    cmdGuardar.Enabled = True
    cmdEliminar.Enabled = True
    Data_Doc.Recordset.Edit
    End Sub

    Private Sub cmdNuevo_Click()
    Data_Doc.Refresh
    Data_Doc.Recordset.AddNew

    txtRut = ""
    txtNombre = ""
    txtCarre = ""
    txtAsig = ""
    txtHoraSema = ""
    txtHoraSeme = ""
    txthorarealseme = ""
    txtDifHoras = ""
    txtJornada = ""
    txtRut.Enabled = True
    txtRut.SetFocus
    End Sub

    Private Sub Combo1_Click()
    Dim Carrera As String
    Carrera = Combo1.Text
    txtCarre = Carrera
    txtCarre.Enabled = False
    Combo2.Enabled = True
    Combo2.SetFocus

    End Sub

    Private Sub Combo2_Click()
    Dim asig As String
    asig = Combo2.Text
    txtAsig = asig
    txtAsig.Enabled = False
    txtHoraSema.Enabled = True
    txtHoraSema.SetFocus
    End Sub


    Private Sub Form_Load()
    Flash1.Movie = (App.Path & "arriba.swf")
    Data_Doc.RecordsetType = 0
    Data_Doc.DatabaseName = "C:Documents and SettingsPcToshibaSatelliteEscritorioRegHorasRegDocente.mdb"
    Data_Doc.RecordSource = "Docente"


    With Combo1
    .Clear
    Data_Carr.Refresh
    While Not Data_Carr.Recordset.EOF
    .AddItem Data_Carr.Recordset!IdCarrera
    Data_Carr.Recordset.MoveNext
    Wend
    End With

    With Combo2
    .Clear
    Data_Asig.Refresh
    While Not Data_Asig.Recordset.EOF
    .AddItem Data_Asig.Recordset!IdAsig
    Data_Asig.Recordset.MoveNext
    Wend
    End With

    txtRut = ""
    txtNombre = ""
    txtcarrera = ""
    txtAsignatura = ""
    txtHoraSema = ""
    txtHoraSeme = ""
    txtHoraReal = ""
    txtDifHoras = ""
    txtJornada = ""

    txtFechIni.Enabled = True
    txtFechTerm.Enabled = False
    txtRut.Enabled = False
    txtNombre.Enabled = False
    txtCarre.Enabled = False
    txtAsig.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    txtHoraSema.Enabled = False
    txtHoraSeme.Enabled = False
    txtDifHoras.Enabled = False
    txtJornada.Enabled = False

    End Sub

    Private Sub mnuAsignatura_Click()
    frmDocente.Hide
    frmAsignatura.Show
    End Sub

    Private Sub mnuCarrera_Click()
    frmCarrera.Show
    frmDocente.Hide
    End Sub

    Private Sub mnuDocente_Click()
    frmDocente.Show
    End Sub

    Private Sub txtAsignatura_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If txtAsignatura = "" Then
    r = MsgBox("Ingrese un nombre", vbOKOnly, "Error")
    txtAsignatura.SetFocus
    Else
    txtAsignatura.Enabled = False
    txtHoraSema.Enabled = True
    txtHoraSema.SetFocus
    End If
    End If
    End Sub

    Private Sub txtCarrera_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If txtcarrera = "" Then
    r = MsgBox("Ingrese un nombre", vbOKOnly, "Error")
    txtcarrera.SetFocus
    Else
    txtcarrera.Enabled = False
    txtAsignatura.Enabled = True
    txtAsignatura.SetFocus
    End If
    End If
    End Sub

    Private Sub txtAsig_Change()
    txtAsig.Text = Combo2.Text
    End Sub

    Private Sub txtCarre_Change()
    txtCarre.Text = Combo1.Text
    End Sub

    Private Sub txtDifHoras_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsNumeric(txtDifHoras) Then
    txtDifHoras.Enabled = False
    txtJornada.Enabled = True
    txtJornada.SetFocus
    Else
    r = MsgBox("fecha no válida", vbCritical, "ERROR!!!")
    txtDifHoras.Text = ""
    txtDifHoras.SetFocus
    End If
    End If
    End Sub

    Private Sub txtFechIni_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsDate(txtFechIni) Then
    txtFechIni.Enabled = False
    txtFechTerm.Enabled = True
    txtFechTerm.SetFocus
    Else
    r = MsgBox("fecha no válida", vbCritical, "ERROR!!!")
    txtFechIni.Text = ""
    txtFechIni.SetFocus
    End If
    End If
    End Sub

    Private Sub txtFechTerm_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsDate(txtFechTerm) Then
    txtFechTerm.Enabled = False
    txtRut.Enabled = True
    txtRut.SetFocus
    Else
    r = MsgBox("Fecha no válida", vbCritical, "ERROR!!!")
    txtFechTerm.Text = ""
    txtFechTerm.SetFocus
    End If
    End If
    End Sub

    Private Sub txtHoraReal_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsNumeric(txtHoraReal) Then
    txtHoraReal.Enabled = False
    txtDifHoras.Enabled = True
    txtDifHoras.SetFocus
    Else
    r = MsgBox("INGRESE CIFRAS NUMERICAS", vbCritical, "ERROR!!!")
    txtHoraReal.Text = ""
    txtHoraReal.SetFocus
    End If
    End If
    End Sub

    Private Sub txtHoraSema_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsNumeric(txtHoraSema) Then
    txtHoraSema.Enabled = False
    txtHoraSeme.Enabled = True
    txtHoraSeme.SetFocus
    Else
    r = MsgBox("INGRESE SOLO CIFRAS NUMERICAS", vbCritical, "ERROR!!!")
    txtHoraSema.Text = ""
    txtHoraSema.SetFocus
    End If
    End If
    End Sub
    Private Sub txtHoraSeme_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If IsNumeric(txtHoraSeme) Then
    txtHoraSeme.Enabled = False
    txtHoraReal.Enabled = True
    txtHoraReal.SetFocus
    Else
    r = MsgBox("INGRESE CIFRAS NUMERICAS", vbCritical, "ERROR!!!")
    txtHoraSeme.Text = ""
    txtHoraSeme.SetFocus
    End If
    End If
    End Sub

    Private Sub txtJornada_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    txtJornada.Enabled = False
    cmdGuardar.Enabled = True
    cmdGuardar.SetFocus
    End If

    End Sub

    Private Sub Txtnombre_keypress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    If txtNombre = "" Then
    r = MsgBox("Ingrese un nombre", vbOKOnly, "Error")
    txtNombre.SetFocus
    Else
    txtNombre.Enabled = False
    Combo1.Enabled = True
    Combo1.SetFocus
    End If
    End If

    End Sub

    Private Sub txtRut_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 And Len(txtRut) > 0 Then
    vrut (Text)
    Data_Doc.Recordset.Index = "ordrut"
    Data_Doc.Recordset.Seek "=", txtRut
    If Data_Doc.Recordset.NoMatch Then
    MsgBox "NUEVO REGISTRO"
    txtRut.Enabled = False
    txtNombre.Enabled = True
    txtNombre.SetFocus
    Else
    MsgBox "CODIGO REGISTRADO"
    txtRut.Enabled = False
    txtRut = Data_Doc.Recordset("Rut")
    txtNombre = Data_Doc.Recordset("Nombre")
    txtNomCarrera = Data_Doc.Recordset("NomCarrera")
    txtNomAsig = Data_Doc.Recordset("NomAsig")
    txtHoraSema = Data_Doc.Recordset("HoraSema")
    txtHoraSeme = Data_Doc.Recordset("HoraSeme")
    txtHoraReal = Data_Doc.Recordset("HoraRealsem")
    txtDifHoras = Data_Doc.Recordset("DifHora")
    txtJornada = Data_Doc.Recordset("Jornada")
    End If
    End If
    End Sub



  7. se me olvidaba estoy trabajando con visual basic 2005 y sql server 2005

    cualquier ayuda informarme en mi correo por favor



  8. HOLA A TODOS ........... TENGO QUE HACER UN EJEMPLO DE UN PROGRAMA EL CUAL HAGA LO SIGUIENTE,,,,,,,,,,,,,,

    QUE DESDE UN COMBOBOX AL SELECCIONAR UNA OPCION ME DESPLIEGUE LOS DATOS EN UN DATAGRIDVIEW, POR MAS QUE BUSCADO NO ENCUENTRO ALGO SIMILAR A LO QUE NECESITO.

    ES QUE EN MI TABLA TENGO REPITIDO LA INFORMACION DEL CAMPO Y POR ESO LOS QUIERO AGRUPAR POR "CAMPO" Y MOSTRARLOS EN UN COMBO Y ASI AL MOMENTO DE SELECCIONAR ME TRAIGA TODA LA INFORMACION DE LO QUE CONTIENE EL" CAMPO"



    AYUDA

    GRACIAS DE ANTEMANO



  9. en un formulario tengo un textbox, un combobox, y un command button.
    ok.

    kiero que al darle un click al boton, el dato que tenga en el textbox lo mande al combobox. y viceversa. es en visual basic 6.0 ¡alguien puede ayudarme?
    Gracias.



  10. menudos pringaos



  11. estoy trabajando con visual basic version 6 pero no entiendo nada nececito ayuda
    como por ejemplo para hacer una calculadora y eso



  12. la verdad es q necesito ayuda estoy trabajando con visual basic 2008 express y la verdad es q no se como utilizarlo a mi el maestro me da codig de visual basic 6 y no como hacerle para convertir ciertas funciones a otras como el additem

    si me pudieran contestar se los agradeceria mucho



  13. ola quetal--bueno lo que quireo es seleccionar los elementos de un combo y me muestre en listbox



  14. hola ..!!
    mi problema es que estoy trabajando una conexion visual basic con acces y agrege una opcion llamada codigo(un combo box) en la cual me desplega la lista de codigos existentes pero quiero que a la hora de que no exista alguno agregarlo en ese mismo combo box ya consegui que lo guarde en la base de datos de acces pero no consigo que quede en el combo box como ago eso.....????? porfa si me responden estare muy agradecido



  15. bueno yo quisiera llevar todo lo que contiene un listbox a un combobox

    todos los elementos me gustaria saber como se hace



  16. Hola... Estoy iniciando en programación y específicamente en VB porque me han sugerido que es muy bueno...
    Tengo un combobox el cual lleva una lista de elementos de texto y quiero que cuando seleccione uno de ellos me muestre en un label... Por ejemplo:
    -Tengo en la lista del combobox las siguientes opciones:
    Nombre
    Sexo
    Empleo
    -Quiero que cuando seleccione Nombre, me muestre en un label:
    Juan Pérez
    Pedro Gonzñalez
    -Quiero que cuando seleccione Sexo, me muestre en un label:
    Masculino
    Femenino
    -Quiero que cuando seleccione Empleo, me muestre en un label:
    Mecánico
    Albañil
    Plomero
    ¿Se entiende? Gracias...



  17. Hola, me encuentro programando en Visual Basic .NET y access, soy nuevo en esto de programar, mi pregunta es la siguiente:

    En mi combo traigo tres campos de una tabla de mi base de datos, cundo yo selecciono algun registro de mi combo, quiero que me traiga en un datagridview los datos que corresponder al registro seleccionado.

    Cuando solo traigo un registro en mi combo (nombre) si me funciona.

    Pero yo lo quiero hacer con tres registros de mi combo (nombre, marca, presentacion).

agregar comentario


Se permiten las etiquetas HTML <b>, <i> y <p>. Si ingresa alguna dirección web o dirección de email serán convertidos en enlaces automáticamente.





publicidad

API DE FACEBOOK
GOOGLE CALENDAR API
GOOGLE MAPS API