-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: spprivate
Message 2 in Discussion
Use system.windows.forms.screen This is one way Dim h, w As Integer
'Declare height and width
h = Screen.PrimaryScreen.Bounds.Height w =
Screen.PrimaryScreen.Bounds.Width
'[Set the resolution to fit the screen/]
Anotherway to get all the info about client machine Dim Index As Integer
Dim UpperBound As Integer
' Gets an array of all the screens connected to the system.
Dim Screens() As System.Windows.Forms.Screen = _
System.Windows.Forms.Screen.AllScreens
UpperBound = Screens.GetUpperBound(0)
For Index = 0 To UpperBound
' For each screen, add the screen properties to a list box.
ListBox1.Items.Add("Device Name: " + Screens(Index).DeviceName)
ListBox1.Items.Add("Bounds: " + Screens(Index).Bounds.ToString())
ListBox1.Items.Add("Type: " + Screens(Index).GetType().ToString())
ListBox1.Items.Add("Working Area: " + Screens(Index).WorkingArea.ToString())
ListBox1.Items.Add("Primary Screen: " + Screens(Index).Primary.ToString())
Next HTH cheers Satheesh
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
