powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рабочий стол
15 сообщений из 15, страница 1 из 1
Рабочий стол
    #34218317
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нужна прога, которая бы определила кол-во значков на рабочем столе компа.
и далее пробегала бы по ним, выделяя каждый. т.е. также как бы и мы выделяли один значок (он подсветился синим), потом второй и так далее. должна в итоге получиться забавная иллюминация.

помогите чем сможете.
...
Рейтинг: 0 / 0
Рабочий стол
    #34218414
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Точно не знаю, потому что сам не делал
Но говорят, что все значки на рабочем столе это элементы ListView
поэтому чтобы получить доступ к значкам на рабочем столе находите hWnd этого самого ListView и дальше делаете что хотите с ним через API, в сети вроде видел примеры доступа к значкам
...
Рейтинг: 0 / 0
Рабочий стол
    #34218448
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хотелось бы поконкретнее. хотя бы что искать в инете.
...
Рейтинг: 0 / 0
Рабочий стол
    #34218532
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GetDesktopWindow
Настенькахотелось бы поконкретнее. хотя бы что искать в инете.
Код: plaintext
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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
' //
' // ListView Constants and Structures
' //
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_GETITEM As Long = LVM_FIRST +  5 
Private Const LVM_FINDITEM As Long = LVM_FIRST +  13 
Private Const LVM_ENSUREVISIBLE = LVM_FIRST +  19 
Private Const LVM_SETCOLUMNWIDTH As Long = LVM_FIRST +  30 
Private Const LVM_GETTOPINDEX = LVM_FIRST +  39 
Private Const LVM_SETITEMSTATE As Long = LVM_FIRST +  43 
Private Const LVM_GETITEMSTATE As Long = LVM_FIRST +  44 
Private Const LVM_GETITEMTEXT As Long = LVM_FIRST +  45 
Private Const LVM_SORTITEMS As Long = LVM_FIRST +  48 
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST +  54 
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST +  55 
Private Const LVM_SETCOLUMNORDERARRAY = LVM_FIRST +  58 
Private Const LVM_GETCOLUMNORDERARRAY = LVM_FIRST +  59 

Private Const LVS_EX_GRIDLINES As Long = &H1
Private Const LVS_EX_SUBITEMIMAGES As Long = &H2
Private Const LVS_EX_CHECKBOXES As Long = &H4
Private Const LVS_EX_TRACKSELECT As Long = &H8
Private Const LVS_EX_HEADERDRAGDROP As Long = &H10
Private Const LVS_EX_FULLROWSELECT As Long = &H20

Private Const LVFI_PARAM As Long =  1 

Private Const LVIF_TEXT As Long =  1 
Private Const LVIF_IMAGE As Long =  2 
Private Const LVIF_PARAM As Long =  4 
Private Const LVIF_STATE As Long =  8 
Private Const LVIF_INDENT As Long = &H10
Private Const LVIF_NORECOMPUTE As Long = &H800
Private Const LVIS_STATEIMAGEMASK As Long = &HF000&

Private Type LV_ITEM
   Mask As Long
   Index As Long
   SubItem As Long
   State As Long
   StateMask As Long
   Text As String
   TextMax As Long
   Icon As Long
   Param As Long
   Indent As Long
End Type

Private Type LV_FINDINFO
   Flags As Long
   pSz As String
   lParam As Long
   pt As POINT
   vkDirection As Long
End Type
...
Рейтинг: 0 / 0
Рабочий стол
    #34218627
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это пример который меняет цвет всех иконок на столе

там нужно получить детей от Listview-класса есть дескриптор

и впёрёд с песней
...
Рейтинг: 0 / 0
Рабочий стол
    #34224506
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вроде всё сделала, нашла hwnd раб. стола, определила кол-во иконок.
далее не могу понять, как выделить иконку. помогите с этим.
...
Рейтинг: 0 / 0
Рабочий стол
    #34224940
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Внимательное чтение поста с константами и одновременными попытками перевести их названия на русский может помочь.
...
Рейтинг: 0 / 0
Рабочий стол
    #34224977
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Внимательно прочитала пост, вот что сделала, выдает ошибку:

Код: plaintext
1.
2.
3.
4.
5.
Private Function ListView_SetItemState(hwndLV As Long, i As Long, state As LVITEM_state, mask As LVITEM_state) As Long
      Dim lvi As LVITEM
      lvi.state = state
      lvi.stateMask = mask
      ListView_SetItemState = SendMessage(hwndLV, LVM_SETITEMSTATE, i, lvi.state)
End Function

вызов:

Код: plaintext
a = ListView_SetItemState(lSysListView32,  5 , LVIS_SELECTED, LVIS_SELECTED)

выдает ошибку. что здесь то не так? подскажите
...
Рейтинг: 0 / 0
Рабочий стол
    #34226401
RUSYA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
где\как объявлена "а" ?
что за ошибка?
...
Рейтинг: 0 / 0
Рабочий стол
    #34226569
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
a as long, хотя и другие пробовала, результат тот же.

а вот ошибка:
...
Рейтинг: 0 / 0
Рабочий стол
    #34226901
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну помогите же мне. неужели никто такого не делал?
как правильно выделить иконку на раб. столе?
...
Рейтинг: 0 / 0
Рабочий стол
    #34229356
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
3-й день пошел, а ответа никакого. ну почему никто не хочет мне помочь.
...
Рейтинг: 0 / 0
Рабочий стол
    #34229492
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемая Настенька
Вам дали направление, хотя бы в сети поискали бы чтоли?
Например на www.freevbcode.com поискать коды по ключевому слову Desktop
Например я там нашел
Shuffle Desktop Icons Using Interprocess Memory Communication
...
Рейтинг: 0 / 0
Рабочий стол
    #34229637
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
такие примеры я уже находила. там просто меняется позиция иконок.
там нигде нет выделения их. в инете уже всё обрыла. ничего нет.
меня интересует команда listview_setitemstate. по ней инфы очень мало.
что я нашла, попробовала у себя, не работает ничего.
...
Рейтинг: 0 / 0
Рабочий стол
    #34234471
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я думаю что это не получится
если меняется активизация другого приложения
то выделение с рабочего стола пропадает
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рабочий стол
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]