SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: sorrino en Viernes 6 de Octubre de 2006, 03:46

Título: Checkbox Dentro De Un Mshflexgrid
Publicado por: sorrino en Viernes 6 de Octubre de 2006, 03:46
buenas gente encontre este foro buscando info de como incluir un checkbox dentro de un mshflexgrid debo reconocer que no soy de frecuentar mucho los foros pero... no se este me agrado y me registre raro pero bueno.
paso a contarles que cargo en un mshflexgrid un listado de clientes y quiero poder seleccionar determinados clientes de la lista, ya lo estoy haciendo al hacer click sobre la fila y pintarla, jajaja se que es algo trucho y es por eso que quiero colocar un checkbox.
lei en este foro ya una pregunta como esta y un par de respuestas y descargue unos zip que habian como ejemplo pero no los pude descomprimir ya que estaban con errores, espero si alguien que lo tenga lo vuelva  asubir.
bueno gente muchas gracias y me voy a seguir urgueando en el foro.
salu2 desde mar del plata.
el sorrino
Título: Re: Checkbox Dentro De Un Mshflexgrid
Publicado por: ArKaNtOs en Viernes 6 de Octubre de 2006, 20:46
checa este esta muy completo el unico problema es que no tiene para checkbox pero igual lo puedes adecuar.

PD debo decir que no es mio pero alguna vez lo descargue y esta muy completo :)
Título: Re: Checkbox Dentro De Un Mshflexgrid
Publicado por: ElberGon en Viernes 6 de Octubre de 2006, 21:39
Yo hice algo como lo que tu dices es algo asi espero y te sirva:


Código: Text
  1.  
  2.  
  3. Sub MoverCboes(dbg as MSHFlexGrid, cboes as ComboBox)
  4. Dim n As Long
  5. If dbg.Rows > 23 Then
  6.     cboes.Move dbg.CellLeft + dbg.Left, dbg.CellTop + dbg.Top, dbg.CellWidth - 300
  7. Else
  8.     cboes.Move dbg.CellLeft + dbg.Left, dbg.CellTop + dbg.Top, dbg.CellWidth
  9. End If
  10. If dbg.TextMatrix(dbg.Row, 3) = "" Then
  11.     n = 0
  12. Else
  13.     n = Val(dbg.TextMatrix(dbg.Row, 3)) + 1
  14. End If
  15. cboes.Visible = True
  16. cboes.ListIndex = n
  17. cboes.SetFocus
  18. End Sub
  19.  
  20.  
  21.  


Esta funcion te adapta el combo a la celda seleccionada solo es que la invoques en el evento EnterCell de la Malla Seria bueno que hagas una que otra vaildacion mas a la hora de que una celda reciba el foco, Sugerencias yo hice algo asi:

Código: Text
  1.  
  2.  
  3. If dbg(Index).Row > 0 And dbg(Index).Col = 2 Then
  4.     If cboes.Text <> "" Then
  5.         dbg(ind).TextMatrix(fi, co) = cboes
  6.  
  7.         dbg(ind).TextMatrix(fi, co + 1) = ObtenerValoresTipoAcceso(dbg(0).TextMatrix(fi, co)) 'Aqui comparo los index del combo con los valores su valor dejando el index que sea igaual al valor
  8.     End If
  9.     cboes.Visible = False
  10.    
  11.     co = dbg(Index).Col
  12.     fi = dbg(Index).Row
  13.     ind = Index
  14.     MoverCboes Index
  15. Else
  16.     dbg(ind).TextMatrix(fi, co) = cboes
  17.     cboes.Visible = False
  18.  
  19. End If
  20.  
  21.  

ESpero y te sirva estamos en contacto por esta discucion bye . . .
Título: Re: Checkbox Dentro De Un Mshflexgrid
Publicado por: luciano2 en Sábado 7 de Octubre de 2006, 06:36
Muy bueno el ejemplo del zip ArKanTos  :) , ...me vino al pelo para una cosa que tenia que hacer .. muchas gracias saludos


-----------------------------------------

Recursos visual basic - codigo fuente - ocx - Api (http://www.recursosvisualbasic.com.ar/htm/m/ocx-dll-activex-10.htm)
Título: Re: Checkbox Dentro De Un Mshflexgrid
Publicado por: sorrino en Lunes 9 de Octubre de 2006, 04:50
bueno gente gracias y la verdad me impresiono la cantidad de respuestas que recibi por mi duda y les cuento que... "ya solucione lo de la grilla" asi que bueno si alguien necesita info de como poner checbox en cada fila de una grilla bueno me lo pida y con gusto compartire lo que consegui.
debo reconocer que no lo logre por mis medios unicamente, si no que, encontre mas o menos lo que buscaba y lo adapte a mis necesidades.
un abrazo y muchas gracias.
bueno me voy a leer algunas dudas de otras personas asi devuelvo de sierta manera la ayuda que me dieron y tal ves suba otra duda que tengo.
salu2 del sorrino y grax :hola: