VSFLEXGRID

USUARIO.EXCLUIDOS 06/04/2004 14:15:50
#19104
Gostaria de saber onde posso encontrar algum exemplo das funções da ferramenta VSFLEXGRID, p/ ADO, eu possuo a ferramenta, mas estou tendo dificuldade de lidar com a mesma.

Desde Já.
Obrigado!!!
USUARIO.EXCLUIDOS 06/04/2004 17:50:55
#19139 Resposta escolhida
quai suas dificuldade eu tenho vario programas compilados com esse cmponetente posta sua duvida ae quem sabe eu possa resolver
USUARIO.EXCLUIDOS 07/04/2004 19:22:16
#19297
1º Com digitar somente numeros no campo ( ou na celula)


Private Sub vsfitens_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)

If vsfitens.Col = 4 Or vsfitens.Col = 5 Then

If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 48 And KeyAscii = 57 Or KeyAscii = 44 Or KeyAscii = 13 Or KeyAscii = 8 Then
Else
 KeyAscii = 0
 End If
End If

'nesse código que quiz q se na hora q eu apertar as teclado e estiver na coluna 4 ou na coluna 5 só poderá digitar numeros e a virgula



[/b]2º  para que em algum campo fique maiuscula é so tratar tb no evento [/b]

Private Sub vsfitens_CellChanged(ByVal Row As Long, ByVal Col As Long)
If vsfitens.Col = 4 Then
vsfitens.TextMatrix(vsfitens.Row, 4) = UCase(vsfitens.TextMatrix(vsfitens.Row, 4))
End If
End Sub


3º para bloquear um celular é so fazer assim

Private Sub vsfitens_EnterCell()
If vsfitens.Col = 2 Then
vsfitens.Editable = flexEDNone
Else
vsfitens.Editable = flexEDKbd
End If

4º para jogar o focu para qualquer celula

vsfitens.Col = 1 'aki é a coluna
vsfitens.Row = 3 'aki é  alinha


[b] 5º para remover uma linha por completo

vsfitens.RemoveItem (1) 'esse um aí é o numero da linha


Bom axo q respondi tudo
axo q já da pra vc ter uma noção
Espero ter Ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar