как послать сообщение контролу в VB.NET
как послать сообщение контролу в VB.NET?
в ListView не нашлось управление расстояниями между иконками, но контрол держит сообщение LVM_SETICONSPACING.
Попробовал так:
Dim spacesmes As Message
spacesmes.Create(ListView1.Handle, 4179, IntPtr.op_Explicit(1), IntPtr.op_Explicit(1))
DefWndProc(spacesmes)
ес-но ListView1 есть. 4179 это посчитанный ручками msg LVM_SETICONSPACING (пришлось так, потому что чуствую что header файл конечно никак к VB не подключить).
В нужный момент ничего не происходит.
Пробовал сообщение сменить на:
spacesmes.Create(ListView1.Handle, 4105, IntPtr.op_Explicit(0), IntPtr.op_Explicit(0))
'4105 = LVM_DELETEALLITEMS
чтобы уж поточнее результат увидеть если он есть, но тоже самое.
В дебагаре видно что сообщение остается пустым после Create. что не так? и как же его все-таки послать
в ListView не нашлось управление расстояниями между иконками, но контрол держит сообщение LVM_SETICONSPACING.
Попробовал так:
Dim spacesmes As Message
spacesmes.Create(ListView1.Handle, 4179, IntPtr.op_Explicit(1), IntPtr.op_Explicit(1))
DefWndProc(spacesmes)
ес-но ListView1 есть. 4179 это посчитанный ручками msg LVM_SETICONSPACING (пришлось так, потому что чуствую что header файл конечно никак к VB не подключить).
В нужный момент ничего не происходит.
Пробовал сообщение сменить на:
spacesmes.Create(ListView1.Handle, 4105, IntPtr.op_Explicit(0), IntPtr.op_Explicit(0))
'4105 = LVM_DELETEALLITEMS
чтобы уж поточнее результат увидеть если он есть, но тоже самое.
В дебагаре видно что сообщение остается пустым после Create. что не так? и как же его все-таки послать