Video card settings

[OsamaBinGhandi]

Wow it's been a long time since i posted here.

Anyway...I'm curious if/how i can pull up the video card settings (options?) to show what possible resolutions can be set.

Any help is appreciated.

[Cander]

REquires use of DirectX.

This is a start

http://216.5.163.53/DirectX4VB/Tutor...R_Lesson02.asp

[RobDog888]

You mean like bring up the "Display Settings"?

[RobDog888]

Here like this.

Option Explicit
'Opens the display properties dialog window with the settings tab selected.
'Add one (1) Command button (Command1)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL As Long = 1
 
Private Sub Command1_Click()
    ShellExecute 0&, "OPEN", "rundll32.exe", "shell32.dll Control_RunDLL Desk.cpl,,3", "C:\", SW_SHOWNORMAL
End Sub

[Jlarini]

RobDog888,

It seems not work at w98...

JL

[RobDog888]

If you enter this in the run box does it work?

rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3

[RobDog888]

Other options...

Background tab:  rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0 
Screen Saver tab:  rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1 
Appearance tab:  rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2 
Settings tab:  rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3

[Jlarini]

Originally posted by RobDog888
If you enter this in the run box does it work?

rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3

Yes. This way it works , but in VB6... no way

[RobDog888]

It should work in 98. The ShellExecute API's requirements
are 95+ or NT 3.1 +. Try this one.

Option Explicit
 
Private Sub Command1_Click()
    Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3"
End Sub

[Jlarini]

Originally posted by RobDog888
It should work in 98. The ShellExecute API's requirements
are 95+ or NT 3.1 +. Try this one.

Option Explicit
 
Private Sub Command1_Click()
    Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3"
End Sub

Yes, this way works fine !

thanx!

[RobDog888]

No prob.