USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Prompt em grid..
Abimael
SÇAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/12/2007 16:53 hs            

Pessoal estou usando o seguinte código para editar um grid:

 

Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

        Case vbKeyReturn, vbKeyTab

            ''move para a proxima celula.

           With MSFlexGrid

               If .Col + 1 <= .Cols - 1 Then

                   .CellBackColor = &H8000000E

                   .Col = .Col + 1

                   .CellBackColor = &HC0FFFF

               Else

                   If .Row + 1 <= .Rows - 1 Then

                       .Row = .Row + 1

                       .Col = 0

                   Else

                       .Row = 1

                   .Col = 0

                   End If

               End If

            'End With

                MovimentaGrid

       

        Case vbKeyBack

       

            With MSFlexGrid

                'remove o ultimo caractere

                If Len(.Text) Then

                    .Text = Left(.Text, Len(.Text) - 1)

                End If

            End With

       

        Case Is < 32

       

        Case Else

            With MSFlexGrid

                .Text = .Text & Chr(KeyAscii)

            End With

    End Select

End Sub

 

Tem como eu colocar um prompt? Tipo o caracter  | Piscando?

 

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página