COMBOBOX

USUARIO.EXCLUIDOS 18/12/2003 11:02:43
#1500 Resposta escolhida

Eu usei um flexGrid para o exemplo.


Private Sub msfGrid_DblClick()
With msfGrid
' Se for dado o duplo clique na linha de cabecalho não fazer nada
If .Row = 0 Then Exit Sub

' verifica se a coluna é aquela que deve aparecer o combo
Select Case .Col
Case 2, 3
cbxSimNao.Width = .CellWidth
cbxSimNao.Left = .Left + .CellLeft
cbxSimNao.Top = .Top + .CellTop
cbxSimNao.Visible = True
cbxSimNao.SetFocus
' Abre o combo
SendKeys "%" & "{DOWN}"
End Select
End With
End Sub

Private Sub cbxSimNao_Click()
If cbxSimNao.ListIndex = -1 Then Exit Sub

msfGrid.TextMatrix(msfGrid.Row, msfGrid.Col) = cbxSimNao
cbxSimNao_LostFocus
End Sub

Private Sub cbxSimNao_LostFocus()
cbxSimNao.Visible = False
End Sub