Dbgrid com CheckBox

[bd_felipe 0]

Alguem sabe como colocar um CheckBox num dbgrid, DataGrid, MSFlexGrid ou outra ferramenta com a mesma funcionalidade?Percebi que alguns tópicos com essa mesma dúvida não foram respondidas.Se alguem souber, favor responda.

[allan_pedroni 0]

Olá amigo!

Fiz um código para você!

 

No formulário possui 1(um) MSFlexGrid, 1(um) ComboBox em qualquer posição do form

 

* ComboBox -> a propriedade List eu adicionei algums nomes a ela.... voce adicionar nomes de acordo com o seu banco se quizer .

* MSFlexGrid -> coloquei 3 linhas e 2 colunas

 

 

Private Sub Combo1_Click()    'adiciona a célula que foi dada o duplo click o texto selecionado no ComboBox    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = Combo1.Text    'assim que da um click na ComboBox escolhendo o nome atribui false ao visible    Combo1.Visible = False    End SubPrivate Sub Form_Load()'##############################'#### configura o MSFlexGrid'##############################'coloca a Coluna 0 da Linha 0 com negritoMSFlexGrid1.Col = 0MSFlexGrid1.Row = 0MSFlexGrid1.CellFontBold = True'coloca a Coluna 0 da Linha 1 com negritoMSFlexGrid1.Col = 1MSFlexGrid1.Row = 0MSFlexGrid1.CellFontBold = True'coloca a Coluna 1 da Linha 1 com font no tamanho 10MSFlexGrid1.Col = 1MSFlexGrid1.Row = 1MSFlexGrid1.CellFontSize = 10'ajusta a largura da colunaMSFlexGrid1.ColWidth(0) = 1500MSFlexGrid1.ColWidth(1) = 2500'insere texto no cabelho do FlexMSFlexGrid1.TextMatrix(0, 0) = "Código"MSFlexGrid1.TextMatrix(0, 1) = "Nome"MSFlexGrid1.TextMatrix(1, 1) = "Allan Barros Pedroni"'ajusta a altura da linhaMSFlexGrid1.RowHeight(0) = Combo1.Height + 25MSFlexGrid1.RowHeight(1) = Combo1.Height + 25MSFlexGrid1.RowHeight(2) = Combo1.Height + 25End SubPrivate Sub MSFlexGrid1_DblClick()    Combo1.Visible = True'alinhamento Y no formulárioCombo1.Left = MSFlexGrid1.Left + MSFlexGrid1.ColWidth(0) + 40'alinhamento X no formulário de acordo com a linha que ele clickarCombo1.Top = MSFlexGrid1.Top + MSFlexGrid1.RowHeight(0) * MSFlexGrid1.Row + 50'ajusta de acordo com a largura do FlexCombo1.Width = MSFlexGrid1.ColWidth(1) - 35       End Sub