Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рабочий стол / 15 сообщений из 15, страница 1 из 1
22.12.2006, 11:57
    #34218317
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
нужна прога, которая бы определила кол-во значков на рабочем столе компа.
и далее пробегала бы по ним, выделяя каждый. т.е. также как бы и мы выделяли один значок (он подсветился синим), потом второй и так далее. должна в итоге получиться забавная иллюминация.

помогите чем сможете.
...
Рейтинг: 0 / 0
22.12.2006, 12:13
    #34218414
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
Точно не знаю, потому что сам не делал
Но говорят, что все значки на рабочем столе это элементы ListView
поэтому чтобы получить доступ к значкам на рабочем столе находите hWnd этого самого ListView и дальше делаете что хотите с ним через API, в сети вроде видел примеры доступа к значкам
...
Рейтинг: 0 / 0
22.12.2006, 12:20
    #34218448
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
хотелось бы поконкретнее. хотя бы что искать в инете.
...
Рейтинг: 0 / 0
22.12.2006, 12:38
    #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
22.12.2006, 12:58
    #34218627
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
это пример который меняет цвет всех иконок на столе

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

и впёрёд с песней
...
Рейтинг: 0 / 0
26.12.2006, 11:12
    #34224506
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
вроде всё сделала, нашла hwnd раб. стола, определила кол-во иконок.
далее не могу понять, как выделить иконку. помогите с этим.
...
Рейтинг: 0 / 0
26.12.2006, 13:07
    #34224940
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
Внимательное чтение поста с константами и одновременными попытками перевести их названия на русский может помочь.
...
Рейтинг: 0 / 0
26.12.2006, 13:18
    #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
26.12.2006, 22:10
    #34226401
RUSYA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
где\как объявлена "а" ?
что за ошибка?
...
Рейтинг: 0 / 0
27.12.2006, 05:13
    #34226569
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рабочий стол
a as long, хотя и другие пробовала, результат тот же.

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


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