Hi,
i am nasima. I have got a code for setting the screen resolution of my page, but i am unable to understand. Can any one give a complete data explanation of the below code. -
Sub ChangeRes(X As Long, Y As Long, Bits As Long)
-
Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult
-
'Get the info into DevM
-
erg = EnumDisplaySettings(0&, 0&, DevM)
-
'This is what we're going to change
-
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
-
DevM.dmPelsWidth = X 'ScreenWidth
-
DevM.dmPelsHeight = Y 'ScreenHeight
-
DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)
-
'Now change the display and check if possible
-
erg = ChangeDisplaySettings(DevM, CDS_TEST)
-
'Check if succesfull
-
Select Case erg&
-
Case DISP_CHANGE_RESTART
-
an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")
-
If an = vbYes Then
-
erg& = ExitWindowsEx(EWX_REBOOT, 0&)
-
End If
-
Case DISP_CHANGE_SUCCESSFUL
-
erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
-
ScInfo = Y * 2 ^ 16 + X
-
'Notify all the windows of the screen resolution change
-
SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo
-
MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"
-
Case Else
-
MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
-
End Select
-
End Sub
-
-
Private Sub Command1_Click()
-
Dim sMyData As String
-
Dim iReply As Integer
-
Dim aXY As Variant
-
aXY = Array("", "")
-
sMyData = aPossible(List1.ListIndex + 1)
-
iReply = MsgBox("You have chosen:" + vbCrLf + sMyData, vbCritical + vbOKCancel)
-
If iReply = vbOK Then
-
aXY = Split(sMyData, "x")
-
aXY(0) = CInt(aXY(0))
-
aXY(1) = CInt(aXY(1))
-
' ChangeRes aXY(0), aXY(1), GetDeviceCaps(nDC, BITSPIXEL)
-
End If
-
End Sub
-
-
Private Sub Form_Load()
-
'KPD-Team 1999
-
'URL: http://www.allapi.net/
-
'E-Mail: KPDTeam@Allapi.net
-
Dim nDC As Long
-
Dim sMyString As String
-
Dim bReturn As Boolean
-
Dim bFound As Boolean
-
Dim lX As Long
-
Dim iY As Integer 'resrved for the ordinal ubound of apossible
-
Dim iz As Integer
-
Dim DevM As DEVMODE
-
sMyString = "The current list" + vbCrLf + vbCrLf
-
sMyString = sMyString + "Screen Width:" + Str(Screen.Width) + vbCrLf
-
sMyString = sMyString + "Screen Height:" + Str(Screen.Height) + vbCrLf
-
sMyString = sMyString + "Screen TwipsPerPixelX:" + Str(Screen.TwipsPerPixelX) + vbCrLf
-
sMyString = sMyString + "Screen TwipsPerPixelY:" + Str(Screen.TwipsPerPixelY) + vbCrLf
-
-
'retrieve the screen's resolution
-
OldX = Screen.Width / Screen.TwipsPerPixelX
-
OldY = Screen.Height / Screen.TwipsPerPixelY
-
sMyString = sMyString + "X resolution:" + Str(OldX) + vbCrLf
-
sMyString = sMyString + "Y resolution:" + Str(OldY) + vbCrLf
-
' MsgBox sMyString
-
' Text2.Text = Trim$(Str(OldX))
-
' Text3.Text = Trim$(Str(OldY))
-
ReDim aPossible(1)
-
aPossible(0) = Trim$(Str$(OldX)) + " x " + Trim$(Str$(OldY))
-
Text4.Text = aPossible(0)
-
' MsgBox aPossible(0)
-
sMyString = ""
-
lX = 0
-
iY = 0
-
'Create a device context, compatible with the screen
-
nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
-
bReturn = True
-
While bReturn
-
bReturn = EnumDisplaySettings(0&, lX, DevM)
-
If bReturn Then 'ie. a valid entry
-
' sMyString = sMyString + Trim$(Str$(DevM.dmBitsPerPel)) + ":" + Trim$(Str$(DevM.dmPelsWidth)) + ":" + Trim$(Str$(DevM.dmPelsHeight)) + ":" + Str(lX) + vbCrLf
-
sMyString = Trim$(Str$(DevM.dmPelsWidth)) + " x " + Trim$(Str$(DevM.dmPelsHeight))
-
bFound = False
-
For iz = 0 To iY
-
If sMyString = aPossible(iz) Then
-
bFound = True
-
Exit For
-
End If
-
Next
-
If Not bFound Then
-
iY = iY + 1
-
ReDim Preserve aPossible(iY)
-
aPossible(iY) = sMyString
-
End If
-
lX = lX + 1 'Dont forget this
-
End If
-
Wend
-
sMyString = ""
-
For iz = 1 To iY
-
List1.AddItem aPossible(iz)
-
Next
-
' MsgBox sMyString
-
'Change the screen's resolution
-
' ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)
-
' Unload Me
-
End Sub
-
1 2505 numberwhun 3,509
Recognized Expert Moderator Specialist
If you can please confirm that this is VB code, I will move it to the appropriate forum to get your question answered.
Regards,
Jeff
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Dufe |
last post by:
Hello all:
To deal with the problem of differing user screen resolutions, I've
explored: 1) making the pages in PHP, 2) having different pages on the
same page and selecting the proper one via JavaScript, and 3) using
fancy redirects and forced "back skip" redirects with cookies. Every
approach has some fatal flaw as far as I have been able to persue it.
My most recent idea is to make multiple style sheets (selectable via
javascript...
|
by: Chris |
last post by:
After exhausting my search on the MS website, I can't find a straight answer.
I fin dit hard to believe that MS left our something so useful in ASP.NET as
screen resolution detection.
Problem:
I would like to detect, get values for, the screen resolution in px but in a
code behind. Is this possible?
There is a System.Windows.Forms.Screen class for the Windows client side,
why are there none for browser/ASP.NET client?
|
by: Prophet |
last post by:
when I first started to write my page, I had my settings at 1024 x 768.
I then saw the page on a 800 x 600 computer - wow - what a difference!!!
I then went back and redid my page at 800 x 600.
now when I look at the page at a higher resolution, I am not happy with it.
How can I set the users computer (or page) to match what I want it to make
the page look it's best???
|
by: Wayne Aprato |
last post by:
How do most Access developers handle the issue of different database
users possibly running different screen resolutions? At the moment, I
design for the worst case scenario ie. 800 x 600 screen resolution. I
use sized forms that will fit onto the screen at that resolution. The
obvious downside is that for users who are running higher resolutions
the application is not utilising the whole screen.
I would be interested in how other...
|
by: Roger Withnell |
last post by:
How to I find out what size text the browser is set to?
Thanks in anticipation.
| |
by: Maxi |
last post by:
I have a 30X16 cells table in my html page. Table height and width are
set to 100%. I have set size of every cell inside the table to 24
pixel.
When I open the html page in maximize state in either resolution 800 X
600 or 1152 X 864 it takes up the entire explorer size.
In screen resolution 800 X 600, if I insert a pictures of 24 X 24 pixel
in the cells it takes up the entire cell size (ideally it should as the
cell size is also 24 X...
|
by: Steve Wright |
last post by:
Hi
I'm developing a webpage that needs to include a different stylesheet
depending on the screen resolution.
I know that I could read the resolution in javascript and then do some
sort of stylesheet switcher as part of the onload event but I would
rather link in the correct stylesheet for the resolution in the first
place.
|
by: mikek12004 |
last post by:
I want to load a different swf in PHP based on the viewer's screen resolution. All would be fine if I could get the screen resolution in a variable in PHP. Problem is that after I done a bit of a digging that this can be only done through javascript(or so most claim) and to pass the resolution from javascript to PHP you would need to refresh the page again (to put the resolution in the URL or in a coockie) The other solution is to use ajax and...
|
by: =?Utf-8?B?UmljaA==?= |
last post by:
A lot of users at my workplace use different screen resolutions, and I build
apps to use 1680 x 1050 pixels res by default. But some users are using 800
x 600, and the apps are too large for their screen.
I used to write code in Java a few years ago (2005), and you could stretch a
form with the mouse and all the controls and fonts would resize to larger or
smaller size. Does .Net framework 3.5 support this kind of functionality?
Or -...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |