|
|
 | Genvej til skærmindstillinger
Fra : Mikkel Jørgensen |
Dato : 20-04-03 22:27 |
|
Hej...
Jeg har en ven som har et grafikkort, han vil gerne have en eller anden
lille genvej til de avancerede indstillingerne for hans grafikkort.... Er
det noget som kan laves i VB, og hvordan får jeg evt. begyndt ?
Mvh.
Mikkel Jørgensen
| |
 Henrik Cichosz (21-04-2003)
| Kommentar
Fra : Henrik Cichosz |
Dato : 21-04-03 08:33 |
|
"Mikkel Jørgensen" <mikkel_post@marjNOSPAM.dk> skrev i en meddelelse
news:3ea31118$0$24694$edfadb0f@dread14.news.tele.dk...
> Hej...
>
> Jeg har en ven som har et grafikkort, han vil gerne have en eller anden
> lille genvej til de avancerede indstillingerne for hans grafikkort.... Er
> det noget som kan laves i VB, og hvordan får jeg evt. begyndt ?
hej her er lidt at begynde med
Finde antal farver på skærmen
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long,
ByVal nIndex As Long) As Long
Const BITSPIXEL = 12
Private Sub Command1_Click()
MsgBox "Der kan vises " & CStr(2 ^ GetDeviceCaps(Form1.hDC, BITSPIXEL)) &
" farver samtidig."
End Sub
----------------------------------------------------------------------------
-------------------------------------------------
Ændre skærmopløsningen
Private Declare Function EnumDisplaySettings Lib "user32" Alias
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As
Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias
"ChangeDisplaySettingsA" (lpDevMo-de As Any, ByVal dwflags As Long) As Long
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE
Sub ChangeRes(iWidth As Single, iHeight As Single)
Dim a As Boolean
Dim i&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
Dim b&
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub
Private Sub cmd600x600_Click()
Call ChangeRes(800, 600)
End Sub
Private Sub cmd640x480_Click()
Call ChangeRes(640, 480)
End Sub
----------------------------------------------------------------------------
----------------------------------------------------------------------------
-----
mvh HC
| |
Tim Sørensen (21-04-2003)
| Kommentar
Fra : Tim Sørensen |
Dato : 21-04-03 09:10 |
|
"Henrik Cichosz" <cichosz@tdcadsl.dk> wrote
[API]
Så er der bare et problem: RefreshRaten?
60Hz er jo ikke ligefrem smukt!
--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E
| |
 Henrik Cichosz (21-04-2003)
| Kommentar
Fra : Henrik Cichosz |
Dato : 21-04-03 09:35 |
|
"Tim Sørensen" <dondata@vip.cybercity.dk> skrev i en > Så er der bare et
problem: RefreshRaten?
> 60Hz er jo ikke ligefrem smukt!
nej det har du ret i
mvh HC
| |
Mikkel Jørgensen (21-04-2003)
| Kommentar
Fra : Mikkel Jørgensen |
Dato : 21-04-03 11:27 |
|
Jeg kan desværre se mit spørgsmål, blev lidt misforstået.
Når man går ind og vælger egenskaber for skærmen, ovre under det faneblad
som hedder indstillinger, der er en knap hvorpå der står avanceret. Den boks
der så fremkommer er den jeg gerne ville have en genvej til.
Men hele projektet går ud på, han gerne vil kunne skifte mellem PC skærm og
TV, men umiddelbart vil jeg sige uden jeg ved for meget om det, at det er
mere indviklet at programmere sådan en funktion.
/ Mikkel
"Henrik Cichosz" <cichosz@tdcadsl.dk> skrev i en meddelelse
news:3ea39ec1$0$723$edfadb0f@dread11.news.tele.dk...
>
> "Mikkel Jørgensen" <mikkel_post@marjNOSPAM.dk> skrev i en meddelelse
> news:3ea31118$0$24694$edfadb0f@dread14.news.tele.dk...
> > Hej...
> >
> > Jeg har en ven som har et grafikkort, han vil gerne have en eller anden
> > lille genvej til de avancerede indstillingerne for hans grafikkort....
Er
> > det noget som kan laves i VB, og hvordan får jeg evt. begyndt ?
>
> hej her er lidt at begynde med
>
> Finde antal farver på skærmen
>
> Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long,
> ByVal nIndex As Long) As Long
> Const BITSPIXEL = 12
>
>
> Private Sub Command1_Click()
> MsgBox "Der kan vises " & CStr(2 ^ GetDeviceCaps(Form1.hDC, BITSPIXEL))
&
> " farver samtidig."
> End Sub
>
> --------------------------------------------------------------------------
--
> -------------------------------------------------
>
> Ændre skærmopløsningen
>
> Private Declare Function EnumDisplaySettings Lib "user32" Alias
> "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As
> Long, lpDevMode As Any) As Boolean
> Private Declare Function ChangeDisplaySettings Lib "user32" Alias
> "ChangeDisplaySettingsA" (lpDevMo-de As Any, ByVal dwflags As Long) As
Long
>
> Const CCDEVICENAME = 32
> Const CCFORMNAME = 32
> Const DM_PELSWIDTH = &H80000
> Const DM_PELSHEIGHT = &H100000
>
> Private Type DEVMODE
> dmDeviceName As String * CCDEVICENAME
> dmSpecVersion As Integer
> dmDriverVersion As Integer
> dmSize As Integer
> dmDriverExtra As Integer
>
> dmFields As Long
> dmOrientation As Integer
> dmPaperSize As Integer
> dmPaperLength As Integer
> dmPaperWidth As Integer
> dmScale As Integer
> dmCopies As Integer
> dmDefaultSource As Integer
> dmPrintQuality As Integer
> dmColor As Integer
> dmDuplex As Integer
> dmYResolution As Integer
> dmTTOption As Integer
> dmCollate As Integer
>
> dmFormName As String * CCFORMNAME
> dmUnusedPadding As Integer
> dmBitsPerPel As Integer
> dmPelsWidth As Long
> dmPelsHeight As Long
> dmDisplayFlags As Long
> dmDisplayFrequency As Long
> End Type
> Dim DevM As DEVMODE
>
> Sub ChangeRes(iWidth As Single, iHeight As Single)
> Dim a As Boolean
> Dim i&
> i = 0
> Do
> a = EnumDisplaySettings(0&, i&, DevM)
> i = i + 1
> Loop Until (a = False)
>
> Dim b&
> DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
>
> DevM.dmPelsWidth = iWidth
> DevM.dmPelsHeight = iHeight
>
> b = ChangeDisplaySettings(DevM, 0)
> End Sub
>
>
> Private Sub cmd600x600_Click()
> Call ChangeRes(800, 600)
> End Sub
>
> Private Sub cmd640x480_Click()
> Call ChangeRes(640, 480)
> End Sub
>
> --------------------------------------------------------------------------
--
> --------------------------------------------------------------------------
--
> -----
> mvh HC
>
>
| |
|
|