Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem? / WinForms, .Net Framework

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem?

3 сообщений из 3, страница 1 из 1

Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem?

#39280690

Дмитрий77

Участник

Сообщения: 4 490

Рейтинг: 0 / 0

Первоисточник

TVM_GETITEMRECT message

Оригинальный код:

Код: plaintext

1.
2.
3.
4.
5.

RECT rc;

*(HTREEITEM*)&rc = hTreeItem;

SendMessage(hwndTreeView, TVM_GETITEMRECT, FALSE, (LPARAM)&rc);

Для x86 в принципе прокатывает-работает вот так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

   <StructLayout(LayoutKind.Sequential)>
  Public Structure RECT
    Dim Left As Integer
    Dim Top As Integer
    Dim Right As Integer
    Dim Bottom As Integer
  End Structure


   Dim rcNode As RECT
   rcNode.Left = hNode.ToInt32 'hNode as IntPtr
   SendMessage_RECT(Handle, TVM_GETITEMRECT, True, rcNode)

На x64 соответственно не работает (ну очевидно IntPtr 8 байт, а не 4 и должен ложиться в Left и Top)
В общем то у меня код x86, и мне типа достаточно, но не хотелось бы заведомое г. писать,
такие вещи сразу проверяю и под x64 тоже.

Как бы грамотно оформить?

Нужно именно VB.Net а не C#.

...

Рейтинг:

0 / 0

26.07.2016, 22:41

| Ответить | Цитировать | Написать

Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem?

#39280717

Дмитрий77

Участник

Сообщения: 4 490

Рейтинг: 0 / 0

Не могу для x64 ничего придумать.
Пытался вот так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

  <StructLayout(LayoutKind.Explicit)>
  Public Structure RECT_XX
    <FieldOffset(0)>
    Dim Left As Integer
    <FieldOffset(4)>
    Dim Top As Integer
    <FieldOffset(8)>
    Dim Right As Integer
    <FieldOffset(12)>
    Dim Bottom As Integer
    <FieldOffset(0)>
    Dim LeftX64 As Long
  End Structure
rcNode.LeftX64 = hNode.ToInt64

но что-то не работает
Не могу понять что они имеют ввиду и как паковать IntPtr в RECT.

...

Рейтинг:

0 / 0

27.07.2016, 00:34

| Ответить | Цитировать | Написать

Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem?

#39280725

Дмитрий77

Участник

Сообщения: 4 490

Рейтинг: 0 / 0

А не, все правильно делал.
В другом месте недоглядел

Код: vbnet

hNode = SendMessage_TVHITTESTINFO(Handle, TVM_HITTEST, 0, tvhip)

SendMessage_TVHITTESTINFO у меня Integer почему-то возвращала вместо IntPtr, поэтому hNode на x64 ошибочный получался

А запихивать IntPtr в RECT как они хотят можно так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

  <StructLayout(LayoutKind.Sequential)>
  Public Structure RECT
    Dim Left As Integer
    Dim Top As Integer
    Dim Right As Integer
    Dim Bottom As Integer
  End Structure

  <StructLayout(LayoutKind.Explicit)>
  Public Structure RECT_XX
    <FieldOffset(0)>
    Dim Left As Integer
    <FieldOffset(4)>
    Dim Top As Integer
    <FieldOffset(8)>
    Dim Right As Integer
    <FieldOffset(12)>
    Dim Bottom As Integer
    <FieldOffset(0)>
    Dim LeftX64 As Long
  End Structure

              Dim rcNode As RECT
              If Is64bitProcess() Then
                Dim rcNodeXX As RECT_XX
                rcNodeXX.LeftX64 = hNode.ToInt64
                rcNode.Left = rcNodeXX.Left : rcNode.Top = rcNodeXX.Top
              Else
                rcNode.Left = hNode.ToInt32
              End If
              SendMessage_RECT(Handle, TVM_GETITEMRECT, True, rcNode)

Все заработало.

...

Рейтинг:

0 / 0

27.07.2016, 01:27

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Как на VB.Net записать конструкцию *(HTREEITEM*)&rc = hTreeItem?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=20&fpage=58&tid=1400449]:	0ms
get settings:	10ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	35ms
get topic data:	13ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	268ms

total:	401ms