PROBLEMAS NA SELECAO DO MSFLEXGRID !

USUARIO.EXCLUIDOS 19/12/2003 20:13:21
#1788
Ola amigos,

Minha dúvida é a seguinte,
estou usando ADO com msflexgrid

O usuário vai precisar selecionar "multi linhas" no msflexgrid, com o CTRL,
se não for possível esse tipo de seleção com msflexgrid, existe algum outro
grid q aceite mult select?

além disso preciso saber como selecionar todos os campos do grid e tambem tirar a seleção.


Ixi, será que entenderam?

Agradeço desde ja,

Cassiano Passos
USUARIO.EXCLUIDOS 22/12/2003 17:06:30
#2091 Resposta escolhida
Já tive esse problema !!

Segue um exemplo:
Private Sub grd_veiculos_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Quando clica com o botão direito do mouse, ele mostra um menu
' No menu do botão direito você acessa várias outras telas.
Dim iRow As Integer
Dim iRowSel As Integer
Dim iCount As Integer

' Clicando em cima ele guarda o Id_Min do veiculo.
m_sIdMinVeic = grd_veiculos.TextMatrix(grd_veiculos.Row, 0)
m_sOidModule = Busca("oid_module", "rs_module", "id_min", grd_veiculos.TextMatrix(grd_veiculos.Row, 0), "I")
m_sVeicAtu = Busca("description", "rs_module", "id_min", grd_veiculos.TextMatrix(grd_veiculos.Row, 0), "S")

' guarda um array as informações necessárias para plotar um veiculo
' no mapa e mostrar algumas informações. Também serve para poder
' plotar mais de um veículo no mapa.
ReDim Preserve arrayLatLong(grd_veiculos.RowSel)

iRow = grd_veiculos.Row
iRowSel = grd_veiculos.RowSel

iCount = 0
iCountVeic = 0
For iCount = iRow To iRowSel
    ' formata a latitude, antes de incluir no array
    arrayLatLong(iCountVeic).latitude = Busca("latitude_WGS84", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(iCount, 0), "S")
    ' formata a longitude, antes de incluir no array
    arrayLatLong(iCountVeic).longitude = Busca("longitude_WGS84", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(iCount, 0), "S")
    ' identificacao do veiculo
    arrayLatLong(iCountVeic).veiculo = Busca("description", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(iCount, 0), "S")
    ' data da ultima posicao
    arrayLatLong(iCountVeic).dataPosicao = Busca("position_dt_gmt", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(iCount, 0), "S")

    iCountVeic = iCountVeic + 1
Next

' guarda a latitude
'm_Latitude = Busca("latitude", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(grd_veiculos.Row, 0), "S")
' guarda a longitude
'm_Longitude = Busca("longitude", "vw_veiculos", "id_min", grd_veiculos.TextMatrix(grd_veiculos.Row, 0), "S")

If Button = vbRightButton Then
    frmOperacional.PopupMenu mnu_veiculos
End If

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar