Re: Screen eines Fensters?

[Andreas Bernhardt <rb at andreasbe dot de>]

Am 15.06.2006 um 11:31 schrieb Andy Fuchs:

> > Kannst Du mir die entsprechende Methode schicken oder hier posten?
> >
> > MfG, Metti.
> Bis ich das gefunden habe, hast du das selbst geschrieben....
Wohl wahr - falls nach 2.5h die Methode noch gesucht wird:
getCurrentScreen gibt zurück, auf welchem Bildschirm der Pixel ist.

Function getCurrentScreen(x as integer, y as integer) As integer
  dim i,c,s as integer
  c=screencount-1
  for i=0 to c
    if x>=screen(i).left and x<=screen(i).left+screen(i).width then
      if y>=screen(i).top and y<=screen(i).top+screen(i).height then
        s=i
      end if
    end if
  next
  return s
End Function