PROBLEMAS NA SELECAO DO MSFLEXGRID !

 Tópico anterior Próximo tópico Novo tópico

PROBLEMAS NA SELECAO DO MSFLEXGRID !

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#1788 - 19/12/2003 20:13:21

USUARIO.EXCLUIDOS

Cadast. em:


Ola amigos,

Minha dvida a seguinte,
estou usando ADO com msflexgrid

O usurio vai precisar selecionar "multi linhas" no msflexgrid, com o CTRL,
se no for possvel esse tipo de seleo com msflexgrid, existe algum outro
grid q aceite mult select?

alm disso preciso saber como selecionar todos os campos do grid e tambem tirar a seleo.


Ixi, ser que entenderam?

Agradeo desde ja,

Cassiano Passos




Resposta escolhida #2091 - 22/12/2003 17:06:30

USUARIO.EXCLUIDOS

Cadast. em:


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 boto direito do mouse, ele mostra um menu
' No menu do boto direito voc acessa vrias 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 informaes necessrias para plotar um veiculo
' no mapa e mostrar algumas informaes. Tambm serve para poder
' plotar mais de um veculo 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 anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45