mimic Windows screen identify function

Ultrawhack

Well-known member
Joined
Jul 5, 2006
Messages
164
Location
Canada
Programming Experience
3-5
Hi,

How can I mimic Windows screen identify function ?

In a multiple monitor setup there is an Identify option which throws up big numbers 1, 2, 3 etc for every screen. Right click desktop, go properties, settings, identify...

I'd really like to know how to achieve this by having forms appear on each screen in a multiple monitor setup showing the screen number.

Here's translated code I have been running but it does not kick the forms to relevant screens. All forms appear on primary screen.

VB.NET:
[COLOR=blue]Dim [/COLOR][COLOR=black]theScreenNumber [/COLOR][COLOR=blue]As Integer = [/COLOR][COLOR=black]-[/COLOR][COLOR=maroon]1
[/COLOR][COLOR=black]public FrmScreen([/COLOR][COLOR=blue]int[/COLOR][COLOR=black], screenNumber)

{
[/COLOR][COLOR=blue]Me[/COLOR][COLOR=black].theScreenNumber [/COLOR][COLOR=blue]= [/COLOR][COLOR=black]screenNumber
[/COLOR]}

in other form's load event
VB.NET:
[COLOR=blue]Dim [/COLOR][COLOR=black]counter [/COLOR][COLOR=blue]As Integer = [/COLOR][COLOR=maroon]0
[/COLOR][COLOR=blue]Do While [/COLOR][COLOR=black](counter < Screen.AllScreens.Length)
    [/COLOR][COLOR=blue]Dim [/COLOR][COLOR=black]theScreenForm [/COLOR][COLOR=blue]As [/COLOR][COLOR=black]FrmScreen [/COLOR][COLOR=blue]= New [/COLOR][COLOR=black]FrmScreen(counter)
    theScreenForm.Location [/COLOR][COLOR=blue]= New [/COLOR][COLOR=black]Point(Screen.AllScreens(counter).Bounds.X, Screen.AllScreens(counter).Bounds.Y)
    theScreenForm.Show
    counter [/COLOR][COLOR=blue]= [/COLOR][COLOR=black](counter + [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black])
[/COLOR][COLOR=blue]Loop[/COLOR]

Thanks in advance
 
Last edited:
Add this before you show the form:
VB.NET:
theScreenForm.StartPosition = FormStartPosition.Manual
 
Back
Top