PC²
|
JUCUTUQUARA, VITÓRIA ES - BRASIL
|
|
Postada em 29/07/2004 08:51 hs
darlan, dá uma olhada no SGrid 2.0, ele é gratis e tem estes recursos , só que a filiação ao banco de dados é manual, tem coisas nota 10 nele como hottrap, edit cell, imagens etc.
____________________________ PC² T+
|
|
|
|
|
Postada em 29/07/2004 16:42 hs
valews, vou dar uma olhada.. vou disponibilizar um codigo que fiz pro flex aqui tambem..
|
|
|
Rochª
|
RIO DE JANEIRO RJ - BRASIL
|
|
Postada em 29/07/2004 16:46 hs
Muito bom PC, Tem ate os fontes para uma demonstracao. Opsss isso é gratuito ????
__________________________________________________________________________ Qualquer coisa post Rochª
|
TÓPICO EDITADO
|
|
|
|
Rochª
|
RIO DE JANEIRO RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2004 16:58 hs
De uma olhada em tem ele para baixar. Me avise se deu certo
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Postada em 29/07/2004 20:44 hs
Rocha, foi mal, exclui meu post, mas entendi.. ja tinha buscado.. depois vi, só que da erro aqui.. naum funciona esse componente..
|
|
|
~Ð@®£@Ñ
|
PELOTAS RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2004 20:49 hs
Private Sub flxExemplo_KeyPress(KeyAscii As Integer) With flxExemplo Select Case KeyAscii Case vbKeyReturn, vbKeyTab '13=ENTER, 9=TAB 'move para a proxima celula If .Col + 1 <= .Cols - 1 Then .Col = .Col + 1 Else If .Row + 1 <= .Rows - 1 Then .Row = .Row + 1 .Col = 0 Else .Row = 1 .Col = 0 End If End If Case vbKeyBack '8=BACKSPACE If Len(.Text) Then .Text = Left(.Text, Len(.Text) - 1) 'remove o ultimo caractere End If Case Is < 32 Case Else If KeyAscii = 44 Then ', If InStr(1, .Text, ",") = 0 Then .Text = .Text & Chr(KeyAscii) End If ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then '0, 9 .CellBackColor = vbYellow If (Len(.Text) - InStr(1, .Text, ",") < 2) Or InStr(1, .Text, ",") = 0 Then .Text = .Text & Chr(KeyAscii) End If End If End Select End With End Sub Private Sub flxExemplo_LeaveCell() flxExemplo.CellBackColor = vbWindowBackground End Sub
um exemplo do q fiz no flex
|
|
|