Gå till innehåll

Bildskärmsegenskaper...


kjell-ake

Recommended Posts

Hej!

Hur får jag fram bildskärmsegenskaper?

På min "stora" dator så högerklickar jag på skrivbordet. Går in på egenskaper och där är det.

Det enda jag får fram på den bärbara är att jag kan ändra teman.

Om jag däremot går via programmet "Style xp" så kan jag komma in på bildskärmsegenskaper

med  "fönster och knappar" färgschema" osv.

Det går inte hellar att gå via kontrollpanelen.

Inget sort fel men j----- störande när man inte får det att fungera.

Med vänlig hälsning Kjell-Åke

Länk till kommentar
Dela på andra webbplatser

Hej! Visst är det en bärbar HP...men den andra tråden gäller min "stationära" burk.

Upptäckte förresten att när jag är inne på Style xp så måste jag stå på "visuella stilar" för

att få fram de önskade bildskärmsinställningarna.

Står jag på "teman" så blir det samma som i "högerklicket".

Tur att det bara är ett irritationsmoment och inte ett RIKTIGT fel.

Tips välkomnas!

Med vänlig hälsning Kjell-Åke

Länk till kommentar
Dela på andra webbplatser

Hitta en tråd me samma fel.

I slutet är de nån vbs-fil. (Inte säker på innehållet)

http://eforum.idg.se/viewmsg.asp?entriesid=936690


vbs filen, om nån har lust o kolla ifall den e ok?

'Restores missing tabs in the Display properties

'For use with Windows® XP only.

'Created on May 09, 2006

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'    Homepage: http://windowsxp.mvps.org

'    Copyright © 2006, Ramesh Srinivasan

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Option Explicit

Dim WshShell, basekey,basekey2, rtn

Set WshShell = CreateObject("WScript.Shell")

basekey="HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"

Task1

basekey="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"

Task1

basekey2="HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

Task2

basekey2="HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer"

Task2

Sub Task1()

On Error Resume Next

rtn = WshShell.Regdelete (basekey & "NoDispCPL")

rtn = WshShell.Regdelete (basekey & "NoDispAppearancePage")

rtn = WshShell.Regdelete (basekey & "NoDispBackgroundPage")

rtn = WshShell.Regdelete (basekey & "NoDispScrSavPage")

rtn = WshShell.Regdelete (basekey & "NoDispSettingsPage")

On Error Goto 0

End Sub

Sub Task2()

On Error Resume Next

rtn = WshShell.Regdelete (basekey2 & "NoThemesTab")

rtn = WshShell.Regdelete (basekey2 & "ClassicShell")

rtn = WshShell.Regdelete (basekey2 & "NoChangingWallPaper")

rtn = WshShell.Regdelete (basekey2 & "ForceActiveDesktopOn")

rtn = WshShell.Regdelete (basekey2 & "NoActiveDesktop")

rtn = WshShell.Regdelete (basekey2 & "NoWebView")

On Error Goto 0

End Sub

Wshshell.RUN ("regsvr32.exe shell32.dll -i -s")

Wshshell.RUN ("regsvr32.exe themeui.dll -s")

Msgbox "Done"

Set WshShell = Nothing

:)

Länk till kommentar
Dela på andra webbplatser

Delta i dialogen

Du kan skriva svaret nu och registrera dig senare, Om du har ett konto, logga in nu för att svara på inlägget.

Gäst
Svara i detta ämne...

×   Du har klistrat in innehåll med formatering.   Ta bort formatering

  Only 75 emoji are allowed.

×   Din länk har automatiskt bäddats in.   Visa som länk istället

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Skapa nytt...