|
|
|
|
|
|
|
|
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
|
|
|
|
|
