IMAGENS NO MSFLEXGRID COMO CHECKBOX
pessoal, preciso colocar imagens como checkbok no msflexgrid. para controlar um formulario de contas a receber...
achei ess tela a baixo feita pelo TECLA....... já tenho as duas imagens, selecionado e nao selecionado adicionada no ImageList..
obrigado pela atenção...
achei ess tela a baixo feita pelo TECLA....... já tenho as duas imagens, selecionado e nao selecionado adicionada no ImageList..
obrigado pela atenção...
Olá DECLA, no primeiro click funcionona blz... ao tentar desmacar tenho q dár dois cliks e pra marcar tambem..... isso é normal...
Creio eu que seja um [Ô]pauzinho[Ô] do controle.
Faça um teste, clique no CHECKBOX, aguarde alguns segundos e clique novamente para DESMARCAR o CHECKBOX.
Faça isso de forma ininterrupta. Fiz aqui e rolou.
Agora, se você procede do mesmo jeito com um pouco mais de velocidade, não rola.
Vou ver se consigo contornar...
Faça um teste, clique no CHECKBOX, aguarde alguns segundos e clique novamente para DESMARCAR o CHECKBOX.
Faça isso de forma ininterrupta. Fiz aqui e rolou.
Agora, se você procede do mesmo jeito com um pouco mais de velocidade, não rola.
Vou ver se consigo contornar...
Olá tecla. tentei adaptar com o exemplo que vc postou.. não funcionou... outra coisa, tem qua haver uma exclusiva para colocar o a imagem....
por favor, seque o código onde devo carregar... na linha número do documento...
Private Sub Form_Load()
Centraliza Me
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Receber[Ô] [ô] Where DtVencto <=[ô][Ô] & Format(Date, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF = True Then
With FG
.Rows = 1
.Cols = 8
.ColWidth(0) = 0
.ColWidth(1) = 4222
.ColWidth(2) = 1111
.ColWidth(3) = 1111
.ColWidth(4) = 1111
.ColWidth(5) = 1111
.ColWidth(6) = 1666
.ColWidth(7) = 1666
[ô]Cabecalho do Grid
.TextMatrix(0, 0) = [Ô]Id[Ô]
.TextMatrix(0, 1) = [Ô]Núm. do Documento[Ô]
.TextMatrix(0, 2) = [Ô]Vlr. Parcela[Ô]
.TextMatrix(0, 3) = [Ô]Dt. Vencto[Ô]
.TextMatrix(0, 4) = [Ô][%] Juros[Ô]
.TextMatrix(0, 5) = [Ô][%] Multa[Ô]
.TextMatrix(0, 6) = [Ô]Vlr. Pago[Ô]
.TextMatrix(0, 7) = [Ô]Saldo[Ô]
End With
[ô]Carrega Alguns Itens
I = 1
Do While Not Rst.EOF
With FG
.Rows = I + 1
.TextMatrix(I, 0) = [Ô][Ô] & Rst!Id
[txt-color=#e80000].TextMatrix(I, 1) = [Ô][Ô] & Rst!Docto <<<<<----[/txt-color]
.TextMatrix(I, 2) = [Ô][Ô] & Format(Rst!Vlr_Parc, [Ô]###,##0.00[Ô])
.TextMatrix(I, 3) = [Ô][Ô] & Format(Rst!Dt_Vencto, [Ô]dd/mm/YYYY[Ô])
.TextMatrix(I, 4) = [Ô][Ô] & Format(Rst!Vlr_Juros, [Ô]###,##0.00[Ô])
[ô].TextMatrix(I, 5) = [Ô][Ô] & Rst!Fornec
[ô].TextMatrix(I, 6) = [Ô][Ô] & Rst!Status
End With
I = I + 1
Rst.MoveNext
Loop
Else
MsgBox ([Ô]Não ha Dados a Exibir[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Rst.Close
Set Rst = Nothing
End Sub
por favor, seque o código onde devo carregar... na linha número do documento...
Private Sub Form_Load()
Centraliza Me
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Receber[Ô] [ô] Where DtVencto <=[ô][Ô] & Format(Date, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF = True Then
With FG
.Rows = 1
.Cols = 8
.ColWidth(0) = 0
.ColWidth(1) = 4222
.ColWidth(2) = 1111
.ColWidth(3) = 1111
.ColWidth(4) = 1111
.ColWidth(5) = 1111
.ColWidth(6) = 1666
.ColWidth(7) = 1666
[ô]Cabecalho do Grid
.TextMatrix(0, 0) = [Ô]Id[Ô]
.TextMatrix(0, 1) = [Ô]Núm. do Documento[Ô]
.TextMatrix(0, 2) = [Ô]Vlr. Parcela[Ô]
.TextMatrix(0, 3) = [Ô]Dt. Vencto[Ô]
.TextMatrix(0, 4) = [Ô][%] Juros[Ô]
.TextMatrix(0, 5) = [Ô][%] Multa[Ô]
.TextMatrix(0, 6) = [Ô]Vlr. Pago[Ô]
.TextMatrix(0, 7) = [Ô]Saldo[Ô]
End With
[ô]Carrega Alguns Itens
I = 1
Do While Not Rst.EOF
With FG
.Rows = I + 1
.TextMatrix(I, 0) = [Ô][Ô] & Rst!Id
[txt-color=#e80000].TextMatrix(I, 1) = [Ô][Ô] & Rst!Docto <<<<<----[/txt-color]
.TextMatrix(I, 2) = [Ô][Ô] & Format(Rst!Vlr_Parc, [Ô]###,##0.00[Ô])
.TextMatrix(I, 3) = [Ô][Ô] & Format(Rst!Dt_Vencto, [Ô]dd/mm/YYYY[Ô])
.TextMatrix(I, 4) = [Ô][Ô] & Format(Rst!Vlr_Juros, [Ô]###,##0.00[Ô])
[ô].TextMatrix(I, 5) = [Ô][Ô] & Rst!Fornec
[ô].TextMatrix(I, 6) = [Ô][Ô] & Rst!Status
End With
I = I + 1
Rst.MoveNext
Loop
Else
MsgBox ([Ô]Não ha Dados a Exibir[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Rst.Close
Set Rst = Nothing
End Sub
por favor, alguem..??
Tópico encerrado , respostas não são mais permitidas