Programación General > Visual Basic para principiantes

 Checkbox Dentro De Un Mshflexgrid

(1/1)

sorrino:
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

ArKaNtOs:
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 :)

ElberGon:
Yo hice algo como lo que tu dices es algo asi espero y te sirva:



--- Código: Text ---  Sub MoverCboes(dbg as MSHFlexGrid, cboes as ComboBox)Dim n As LongIf dbg.Rows > 23 Then    cboes.Move dbg.CellLeft + dbg.Left, dbg.CellTop + dbg.Top, dbg.CellWidth - 300Else    cboes.Move dbg.CellLeft + dbg.Left, dbg.CellTop + dbg.Top, dbg.CellWidthEnd IfIf dbg.TextMatrix(dbg.Row, 3) = "" Then    n = 0Else    n = Val(dbg.TextMatrix(dbg.Row, 3)) + 1End Ifcboes.Visible = Truecboes.ListIndex = ncboes.SetFocusEnd Sub   

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 ---  If dbg(Index).Row > 0 And dbg(Index).Col = 2 Then    If cboes.Text <> "" Then        dbg(ind).TextMatrix(fi, co) = cboes         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    End If    cboes.Visible = False        co = dbg(Index).Col    fi = dbg(Index).Row    ind = Index    MoverCboes IndexElse    dbg(ind).TextMatrix(fi, co) = cboes    cboes.Visible = False End If  
ESpero y te sirva estamos en contacto por esta discucion bye . . .

luciano2:
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

sorrino:
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:

Navegación

[0] Índice de Mensajes