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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Digitar em um Msflexgrid
rodrigues
BRASILIA
DF - BRASIL
ENUNCIADA !
Postada em 02/04/2005 01:21 hs         
Como abrir a célula do Msflexgrid para digitação?
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 03/04/2005 18:58 hs            
basicamente, vc precisa colocar um TEXTBOX sobre a célula do Flex e digitar no TEXT. Qdo o TEXT disparar o LOSTFOCUS, vc coloca o conteudo do TEXT na celula do Flex e faz o TEXT.VISIBLE = FALSE...
 
Para colocar o TEXT sobre o Flex, usa as propriedades de tamanho e posíção da celula que tem o focus... faça alguns testes, que vai funcionar...
 
Ah, tem um projeto no macoratti que faz isso sem usar o TEXT, mas eu testei e é muito mais dificil para filtrar o conteudo (tipo somente números em uma coluna, minusculas na outra, etc...)
 
QQ coisa, manda um e-mail pra mim que eu te mando um pequeno exemplo...
 


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Afonso
não registrado
ENUNCIADA !
Postada em 04/04/2005 19:04 hs   
digite na celula atual para escrever
digite backspace para apagar
 
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 Then
        MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii)
    Else
        If MSFlexGrid1.Text <>
   
Afonso
não registrado
ENUNCIADA !
Postada em 04/04/2005 19:05 hs   
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 Then
        MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii)
    Else
        If MSFlexGrid1.Text <> "" Then
            MSFlexGrid1.Text = Left(MSFlexGrid1.Text, Len(MSFlexGrid1.Text) - 1)
        End If
    End If
End Sub
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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