elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ComboBox DataField [duda]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: ComboBox DataField [duda]  (Leído 5,989 veces)
Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
ComboBox DataField [duda]
« en: 7 Junio 2009, 18:45 pm »

Hola solo necesito un ejemplo muy basico con respecto a la utilizacion del "COMBOBOX" Porque necesito cargarle a sus items, o sea

Combo1.AddItem = "ABECEDARIO"

por ejemplo..

Necesito que al seleccionar uno de los items, le doy a un "command" (esa parte ya la tengo) y que este muestre en un TextBox, el contenido que lleve cargado ese item.. algo seria:

Tengo varias opciones, elijo "ABECEDARIO", Le doy al boton "OK" y este deberia mostrar el "abecedario" pero no el nombre sino: ABCDEFG....... en un TextBox y asi..

Supongo que se usa el "DataField" , en ese caso, necesitaria un ejemplo basico.. Lo unio que encontre es bastante avanzado y no me da para eso.

Gracias de antemano.


PD: Cree un tema distinto para evitar el Doble post y debido a que es un tema parecido.. "Lo mesmo no es lo mismo que lo mismo"

SALUD.O.S


« Última modificación: 7 Junio 2009, 21:08 pm por Bakura182 » En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: ComboBox DataField [duda]
« Respuesta #1 en: 7 Junio 2009, 18:58 pm »

o se si te entendi pero es algo asi?

Código
  1. Dim abc() As String
  2.  
  3. Private Sub Form_Load()
  4. ReDim abc(90 - 65)
  5. For i = 65 To 90
  6.    abc(i - 65) = Chr(i)
  7.    List1.AddItem Rnd(1) * 32765 & Chr(i) & Chr(i / 2 * 3)
  8. Next i
  9. End Sub
  10.  
  11. Private Sub List1_Click()
  12.    MsgBox abc(List1.ListIndex)
  13. End Sub
  14.  


« Última modificación: 7 Junio 2009, 19:29 pm por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: ComboBox DataField [duda]
« Respuesta #2 en: 7 Junio 2009, 19:06 pm »

Hola, el DataField es para otra cosa...proba algo asi:

Código
  1. Private Sub Command1_Click()
  2.    Select Case Combo1.ListIndex
  3.        Case 0
  4.            Dim i As Integer
  5.            Text1.Text = ""
  6.            For i = 65 To 90
  7.                Text1.Text = Text1.Text & Chr(i)
  8.            Next i
  9.    End Select
  10. End Sub
  11.  
  12. Private Sub Form_Load()
  13.    Combo1.AddItem "ABECEDARIO"
  14.    Combo1.AddItem "Otra Opcion"
  15. End Sub

saludos.
En línea

Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: ComboBox DataField [duda]
« Respuesta #3 en: 7 Junio 2009, 20:54 pm »

claaro algo asi pero no que muestre el abecedario, me confundo xD miren asi tengo:

Código:
Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas"
Combo1.AddItem "Shutdown Pc"
Combo1.AddItem "Firewall Kill"
Combo1.AddItem "Bloq.Cmd"
With Text1
.FontSize = 8
.BackColor = vbBlack
.FontBold = True
.ForeColor = vbGreen
.Text = "Bienvenido al Worm Kreator 1.0   By:  Bakura182"
End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
           Text1.SelStart = 0
           Text1.SelLength = Len(Text1.Text)
    End If
 End Sub

Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
        Case Is = 0
            MsgBox " BLABLA 1 "
        Case Is = 1
            MsgBox " BLABLA 2"
        Case Is = 2
            MsgBox " BLABLABLA 3"
        Case Is = 3
            MsgBox " BLABLABLA 4"
    End Select
End Sub
Private Sub Command1_Click()
On Error GoTo EOF

Dim KWorm As String

KWorm = "C:\K-Worm.vbs"

    Open KWorm For Output As #1
    Print #1, Text1.Text + vbCrLf
    Close
MsgBox "Generado Exitosamente en C:\"
EOF:
End Sub


No si me entienden... elijo Bloq. Adm tareas y quiero que salga lo que yo le carge a la opcion "Bloq adm Tareas" que sera un code en VBS sobre el TextBox.

ahora.. como hago para cargarle esa info a los Items y que se muestre al presionar ok.

PD: dice blablabla porque es para ver si fuciona el "OK" todavia lo estoy tratando de arreglar eso. Una Vez entendida la parte que me falta, me queda llenarlo de miles y miles de cods VBS que ya los tengo, pero por ahora lo que falta.

PD2: He leido que se usa el ItemData, puede ser? En ese caso.. como?
« Última modificación: 7 Junio 2009, 21:02 pm por Bakura182 » En línea

Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: ComboBox DataField [duda]
« Respuesta #4 en: 7 Junio 2009, 21:16 pm »

Disculpen el doble post...

Debo cargar el ItemData pero como lo hago codeando?

Ya tengo los additem todos cargados, ahora, como hago para cargarlo es decir

Combo1.ItemData  y como hago ahora para decirle que el Listindex 1 es igual a "codigo en vbs que se mostrara en el textbox"; ListIndex 2 es igual a..... eso.

Creo que despues para mostralo seria asi:

Código:
Select Case Combo1.ListIndex
        Case Is = 0
            Text1.Text = Combo1.ItemData(CInt(Combo1.ListIndex))

Me muestra el numero de posicion en el Combo1, en este caso "0" pero lo bueno es que se escribe en el textbox, ya voy avanzando un poco mas..

Ahora, necesito saber como cargar el item data para que me muestr el contenido que le carge y no la posición. Se entiende?
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: ComboBox DataField [duda]
« Respuesta #5 en: 7 Junio 2009, 21:27 pm »

no el itemData es para otro cosa , es para guardar ID cuando manejas bases de datos o algo parecido, lo que vos queres se puede hacer simplemente con un select case del listindex como te puse yo en mi ejemplo y que cada uno llame a una funcion diferente...por ejemplo:

Código
  1. Select Case Combo1.ListIndex
  2.        Case 0
  3.            call funcionadministradortareas
  4.        Case 1
  5.            call funcionshutdownpc
  6.        Case 2
  7.            call funcionfirewallkill
  8.        Case 3
  9.           call funcionbloqueacmd
  10.    End Select
  11. End Sub

entendes? hacete funciones(en realidad Sub...total no va a retornar ningun valor) y los llamas...

saludos.



En línea

Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: ComboBox DataField [duda]
« Respuesta #6 en: 7 Junio 2009, 21:46 pm »

No, no entiendo. como bien lei por ahi, hay varias formas de hacerlo y creo que tengo una.

Se que estoy a un paso de sacarlo:

Código:
Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
        Case Is = 0
            Text1.Text = Combo1.ItemData(0)
            
        Case Is = 1
            Text1.Text = Combo1.ItemData(1)
            
        Case Is = 2
            Text1.Text = Combo1.ItemData(2)
            
        Case Is = 3
            Text1.Text = Combo1.ItemData(3)
            
    End Select
    
   Combo1.Locked = False
End Sub

Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas", 0
Combo1.AddItem "Shutdown Pc", 1
Combo1.AddItem "Firewall Kill", 2
Combo1.AddItem "Bloq.Cmd", 3
    Combo1.ItemData(0) = ASDASDA
    Combo1.ItemData(1) = DFRSDDSD
    Combo1.ItemData(2) = BLABALBAL
    Combo1.ItemData(3) = ERTTYUTUY
End Sub

Sera algo asi??  
« Última modificación: 7 Junio 2009, 21:49 pm por Bakura182 » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: ComboBox DataField [duda]
« Respuesta #7 en: 7 Junio 2009, 22:02 pm »

yo te entiendo lo que queres, pero parece que no entendes lo que digo  :P...el ItemData solo acepta datos numericos, te dije que son para guardar ID o algo parecido...vos queres escribir en el textbox algo que dependa del item que queres seleccionar...lo podes hacer como te dije yo de llamar un Sub diferente para cada Item...

Código
  1. Private Sub Command2_Click()
  2.    Command2.Caption = "OK"
  3.    Combo1.Locked = False
  4.    Select Case Combo1.ListIndex
  5.        Case 0
  6.            Call AdminTarea
  7.        Case 1
  8.            Call Shutdown
  9.        Case 3
  10.            Call Firewall
  11.        Case 4
  12.            Call CMD
  13.    End Select
  14.    Combo1.Locked = False
  15. End Sub
  16.  
  17. Private Sub Form_Load()
  18.    Combo1.AddItem "Bloq. Adm Tareas"
  19.    Combo1.AddItem "Shutdown Pc"
  20.    Combo1.AddItem "Firewall Kill"
  21.    Combo1.AddItem "Bloq.Cmd"
  22. End Sub
  23.  
  24. Private Sub AdminTarea()
  25.    text1.Text = "seleccionaste administrador tareas"
  26. End Sub
  27.  
  28. Private Sub Shutdown()
  29.    text1.Text = "seleccionaste shutdown"
  30. End Sub
  31.  
  32. Private Sub Firewall()
  33.    text1.Text = "seleccionaste firewall"
  34. End Sub
  35.  
  36. Private Sub CMD()
  37.    text1.Text = "seleccionaste cmd"
  38. End Sub
  39.  

ya si no agarras ahi... :)

En línea

Enemy

Desconectado Desconectado

Mensajes: 285


Que vuelva el personal de hace 15 años al foro!


Ver Perfil
Re: ComboBox DataField [duda]
« Respuesta #8 en: 7 Junio 2009, 22:21 pm »

aaah tenias razon che xDD

Pero hay un problema.. al decir que el texto que hay en la caja es igual a "x" se reemplazara cada vez que selecciono una opcion distinta.  :-\

PD: Se que pasa eso, lo acabo de comprobar y aparte es logico.
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: ComboBox DataField [duda]
« Respuesta #9 en: 7 Junio 2009, 22:26 pm »

aaah tenias razon che xDD

Pero hay un problema.. al decir que el texto que hay en la caja es igual a "x" se reemplazara cada vez que selecciono una opcion distinta.  :-\

PD: Se que pasa eso, lo acabo de comprobar y aparte es logico.

era un ejemplo...si queres que se acumule el texto pues simplemente con text1.text = text1. text + "texto" se corrige...si queres le podes agregar un salto de linea para que se separe el texto del otro...obviamente con el textbox multilinea...

saludos.
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda con ComboBox [SOLUCIONADO]
Programación Visual Basic
novalida 1 3,323 Último mensaje 30 Noviembre 2010, 00:10 am
por novalida
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines