Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Activedesktop

Activedesktop

5 réponses
Avatar
jerome
Bonjour,

J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de mettre en
papier peint une page web.
Seulement, je ne sais pas l'utiliser.
Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com (faut dire
que c'est en anglais).

Pouvez-vous m'aider ?
Merci
Jerome
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jerome
J'ai trouvé ca, mais bon, ca me l'affiche dans une petite fenêtre.
Dim ActiveDesktop1 As ActiveDesktop
Dim Component1 As COMPONENT

Set ActiveDesktop1 = New ActiveDesktop

Component1.iComponentType = COMP_TYPE_WEBSITE
Component1.dwSize = 8924
ActiveDesktop1.ADDURL Me.hWnd, Filename, Component1, ADDURL_SILENT
ActiveDesktop1.ApplyChanges AD_APPLY_ALL

Comment faire pour régler la taille de la fenêtre ?

Merci
Jerome

"jerome" a écrit dans le message de news:
c037ds$bqa$
Bonjour,

J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de mettre en
papier peint une page web.
Seulement, je ne sais pas l'utiliser.
Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com (faut


dire
que c'est en anglais).

Pouvez-vous m'aider ?
Merci
Jerome




Avatar
François Picalausa
Bonjour/Soir,

Dans quelle bibliothèque (dll/ocx/tlb/...) trouve tu ActiveDesktop?

Apparement, une tlb utilisant IActiveDesktop du Shell?
DAns ce cas, il faut savoir que AddUrl ne sert que pourajouter un élément du
bureau.
Il te faudra utiliser SetWallpaper et/ou SetWallpaperOptions pour pouvoir
définir le wallpaper(papier peint)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"jerome" a écrit dans le message de
news:c037ds$bqa$
Bonjour,

J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de
mettre en papier peint une page web.
Seulement, je ne sais pas l'utiliser.
Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com
(faut dire que c'est en anglais).

Pouvez-vous m'aider ?
Merci
Jerome


Avatar
jerome
C un tlb.
Oui mais SetWallpaper et SetWallpaperOptions, ca marche avec une page web ?
Aurais-tu un exemple ?
Sinon, le code que j'ai mis plus haut fonctionne plutôt bien sauf que ca me
met dans une petite fenêtre.

Merci
Jerome
"François Picalausa" a écrit dans le message de news:
OrKWh$
Bonjour/Soir,

Dans quelle bibliothèque (dll/ocx/tlb/...) trouve tu ActiveDesktop?

Apparement, une tlb utilisant IActiveDesktop du Shell?
DAns ce cas, il faut savoir que AddUrl ne sert que pourajouter un élément


du
bureau.
Il te faudra utiliser SetWallpaper et/ou SetWallpaperOptions pour pouvoir
définir le wallpaper(papier peint)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"jerome" a écrit dans le message de
news:c037ds$bqa$
> Bonjour,
>
> J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de
> mettre en papier peint une page web.
> Seulement, je ne sais pas l'utiliser.
> Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com
> (faut dire que c'est en anglais).
>
> Pouvez-vous m'aider ?
> Merci
> Jerome




Avatar
François Picalausa
Bonjour/soir,

ce code fonctionne bien:
Dim AD As IActiveDesktopTLB.ActiveDesktop
Set AD = New ActiveDesktop

AD.SetWallpaper "e:wallpaperindex.htm"
AD.ApplyChanges AD_APPLY_ALL

Set AD = Nothing

Et effectivement, AddUrl fonctionne. Mais il crée un nouvel élément de
bureau (c'est sa fonction) qui est donc dans une fenêtre.
AddUrl est équivalent sous windows XP à
Click droit sur le bureau > Propriétés > onglet bureau > boutton
Personnalisation du Bureau... > onglet Web > Nouveau...

Pour changer la manière dont est affichée la page web:
WallPaperOptions.dwSize = Len(WallPaperOptions)
'Centré
WallPaperOptions.dwStyle = WPSTYLE_CENTER
AD.SetWallpaperOptions WallPaperOptions

Pour ceux qui veulent, pour changer le papier peint du bureau (avec des jpg,
gif, htm, ...), ma typelib est a disposition sur demande, avec exemple de
code :-)
Tant que ça peut servir... ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"jerome" a écrit dans le message de
news:c05p83$qos$
Oui mais SetWallpaper et SetWallpaperOptions, ca marche avec une page
web ? Aurais-tu un exemple ?
Sinon, le code que j'ai mis plus haut fonctionne plutôt bien sauf que
ca me met dans une petite fenêtre.
"François Picalausa" a écrit dans le message de
news: OrKWh$
Dans quelle bibliothèque (dll/ocx/tlb/...) trouve tu ActiveDesktop?

Apparement, une tlb utilisant IActiveDesktop du Shell?
DAns ce cas, il faut savoir que AddUrl ne sert que pourajouter un
élément du bureau.
Il te faudra utiliser SetWallpaper et/ou SetWallpaperOptions pour
pouvoir définir le wallpaper(papier peint)

"jerome" a écrit dans le message de
news:c037ds$bqa$
J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de
mettre en papier peint une page web.
Seulement, je ne sais pas l'utiliser.
Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com
(faut dire que c'est en anglais).






Avatar
jerome
merci, je vais essayer :)

Jerome
"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

ce code fonctionne bien:
Dim AD As IActiveDesktopTLB.ActiveDesktop
Set AD = New ActiveDesktop

AD.SetWallpaper "e:wallpaperindex.htm"
AD.ApplyChanges AD_APPLY_ALL

Set AD = Nothing

Et effectivement, AddUrl fonctionne. Mais il crée un nouvel élément de
bureau (c'est sa fonction) qui est donc dans une fenêtre.
AddUrl est équivalent sous windows XP à
Click droit sur le bureau > Propriétés > onglet bureau > boutton
Personnalisation du Bureau... > onglet Web > Nouveau...

Pour changer la manière dont est affichée la page web:
WallPaperOptions.dwSize = Len(WallPaperOptions)
'Centré
WallPaperOptions.dwStyle = WPSTYLE_CENTER
AD.SetWallpaperOptions WallPaperOptions

Pour ceux qui veulent, pour changer le papier peint du bureau (avec des


jpg,
gif, htm, ...), ma typelib est a disposition sur demande, avec exemple de
code :-)
Tant que ça peut servir... ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"jerome" a écrit dans le message de
news:c05p83$qos$
> Oui mais SetWallpaper et SetWallpaperOptions, ca marche avec une page
> web ? Aurais-tu un exemple ?
> Sinon, le code que j'ai mis plus haut fonctionne plutôt bien sauf que
> ca me met dans une petite fenêtre.
> "François Picalausa" a écrit dans le message de
> news: OrKWh$
>> Dans quelle bibliothèque (dll/ocx/tlb/...) trouve tu ActiveDesktop?
>>
>> Apparement, une tlb utilisant IActiveDesktop du Shell?
>> DAns ce cas, il faut savoir que AddUrl ne sert que pourajouter un
>> élément du bureau.
>> Il te faudra utiliser SetWallpaper et/ou SetWallpaperOptions pour
>> pouvoir définir le wallpaper(papier peint)
>>
>> "jerome" a écrit dans le message de
>> news:c037ds$bqa$
>>> J'aimerais utiliser la fonction AddUrl de ActiveDesktop, afin de
>>> mettre en papier peint une page web.
>>> Seulement, je ne sais pas l'utiliser.
>>> Je n'ai pas tout compris ce qu'il y a écrit sur msdn.microsft.com
>>> (faut dire que c'est en anglais).