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

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  MSFlexGrid Editável
Postada em 27/9/2003 por ^HEAVY-METAL^            
Bom, aqui vai um "AJUSTE TÉCNICO" para que o usuário consiga editar no próprio FlexGrid.

Inicie um projeto novo.
Insira um FlexGrid; um TextBox.
Depois insira o seguinte código ( aqui - fonte - está como cmbCompra; pois meu sistema precisava de uma combobox, mas substitiua o cmbCompra pelo seu TextBox )

Private Sub MSFlexGrid1_EnterCell()
   cmbCompra.Visible = True
   cmbCompra.Top = MSFlexGrid1.Top + MSFlexGrid1.CellTop
   cmbCompra.Left = MSFlexGrid1.Left + MSFlexGrid1.CellLeft
   cmbCompra.Width = MSFlexGrid1.CellWidth
   cmbCompra.Text = MSFlexGrid1.Text
   cmbCompra.Visible = True
   cmbCompra.SetFocus
End Sub

Private Sub MSFlexGrid1_LeaveCell()
   If MSFlexGrid1.MouseCol <> 7 Then
     If cmbCompra.Text <> "" Then
       cmbCompra.Visible = False
       MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = cmbCompra.Text
     Else
       cmbCompra.Visible = False
       MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = "NÃO"
     End If
   End If
End Sub

Rode o sistema  e clique em uma célula na coluna especificada no seu fonte.
Para sair da edição da célula, clique em qualquer célula da mesma linha e você verá o resultado.

Acho que deve funcionar com quase todos os tipos de componentes ( TextBox; MaskEdBox; ComboBox )

Falow pessoal até a próxima

T+,

Manuel
 


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