Visual Basic - ListView

Life is soft - evento anual de software empresarial
 
Vista:

ListView

Publicado por Federico (54 intervenciones) el 22/02/2006 18:36:16
Hola necesito saber lo siguiente
supongamos qe tengo un listview con 3 columnas y el usuario hace click sobre un item pero en una columna especifica, hay alguna manera de saber sobre qe columna fue echo el click., ya qe el evento columnclick sucede cuando el usuario hace click sobre la cabecera de la columna, y el itemclick cuando el usuario hace click sobre un iten en general

Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ListView

Publicado por Federico (54 intervenciones) el 22/02/2006 19:20:41
Bueno ya lo saqe
'Este codigo es el qe simula al metodo hitest, pero rotorno las dos posiciones
Option Explicit
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const LVM_SUBITEMHITTEST As Long = 4153
Type POINTAPI
X As Long
Y As Long
End Type
Type LVHITTESTINFO
pt As POINTAPI
lngFlags As Long
lngItem As Long
lngSubItem As Long
End Type
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim hti As LVHITTESTINFO
Dim lngRet As Long
hti.pt.X = X / Screen.TwipsPerPixelX
hti.pt.Y = Y / Screen.TwipsPerPixelY
lngRet = SendMessage(ListView1.hWnd, LVM_SUBITEMHITTEST, 0&, hti)
Debug.Print "Row=" & hti.lngItem,
Debug.Print "Col=" & hti
en sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ListView

Publicado por pepon (89 intervenciones) el 22/02/2006 20:20:30
http://www.e-mision.net/crazyhouse/secciones/codigo.asp?i=API58
¿Ya lo saqué?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ListView

Publicado por Magaly (5 intervenciones) el 08/03/2006 19:00:38
te envio un codigo para que lo agregues en el evento clip de tu listview

Private Sub lvwactivos_Click()
MsgBox (lvwactivos.SelectedItem.SubItems(1))
MsgBox (lvwactivos.SelectedItem.Text)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar