SGRID

MOREIRA 25/05/2010 12:41:28
#342718
Pessoal... já tentei de tudo, e nada...... coloquei as duas imagens pra usar como checkbox no sgrid.. estou carregando como index 0, ou seja, não ticado.. mas não consigo manipular como ticado...
vejam a imagem em anexo.. obrigado pela atenção de todos...




Private Sub SGD_SelectionChange(ByVal lRow As Long, ByVal lCol As Long)
If lCol = 0 Then
If SGD.cell(lCol, lRow).IconIndex = 0 Then
SGD.cell(lCol, lRow).IconIndex = 5
Else
SGD.cell(lCol, lRow).IconIndex = 0
End If
End If
End Sub
MARCELO.TREZE 25/05/2010 13:33:16
#342725
existe a propriedade click no sgrid, se sim tente fazer esta verificação nela, e não en change
RICATOM 25/05/2010 13:34:08
#342726
MOREIRA 25/05/2010 15:05:54
#342742
olá RICARDOTOM, adaptei dessa forma, mas ainda não conseguir manipular as imagens como checkbox...

Private Sub SGD_RequestEdit(ByVal lRow As Long, ByVal lCol As Long, ByVal iKeyAscii As Integer, bCancel As Boolean)
If lCol = 1 Then
SGridCheck(SGD) = Not SGridCheck(SGD)
End If
bCancel = True
End Sub

Private Sub SGD_SelectionChange(ByVal lRow As Long, ByVal lCol As Long)
If lCol = 1 Then
SGridCheck(SGD) = Not SGridCheck(SGD)
End If
SGD.Tag = [Ô][Ô]
End Sub

-----------------------
No Modulo coloquei

Public Property Let SGridCheck(ByVal SGrid As vbalGrid, Optional ByVal Linha As Integer = -1, Optional ByVal Coluna As Integer = 1, Optional ByVal UnCheckID As Integer = 0, Optional ByVal CheckID As Integer = 1, ByVal Valor As Boolean)
If Linha < 0 Then Linha = SGrid.SelectedRow
If Valor = True Then
SGrid.CellIcon(Linha, Coluna) = CheckID
Else
SGrid.CellIcon(Linha, Coluna) = UnCheckID
End If
End Property
Public Property Get SGridCheck(ByVal SGrid As vbalGrid, Optional ByVal Linha As Integer = -1, Optional ByVal Coluna As Integer = 1, Optional ByVal UnCheckID As Integer = 0, Optional ByVal CheckID As Integer = 1) As Boolean
If Linha < 0 Then Linha = SGrid.SelectedRow
SGridCheck = (SGrid.CellIcon(Linha, Coluna) = CheckID)
End Property
MOREIRA 25/05/2010 21:18:19
#342792
alguem aê, por favor...
Tópico encerrado , respostas não são mais permitidas
Voltar