Am 15.06.2006 um 22:09 schrieb Christian Schmitz:
Function getCurrentScreen(x as integer, y as integer) As integer
dim i,c as integer
dim sc as Screen
c=screencount-1
for i=0 to c
sc=Screen(i)
if x>=sc.left and x<=sc.left+sc.width then
if y>=sc.top and y<=sc.top+sc.height then
return i
end if
end if
next
Return -1 // no screen
End Function
Ist das dann "nur" schöner programmiert oder habe ich da auch andere Vorteile, die ich jetzt nicht sehe?
Grüße, Andreas
