Le portail francophone de la géomatique

Declare sub main
Declare sub modif

dim nom_fenetre as string
sub main

'j ouvre un .wor qui fonctionne avec map info 7.8
Run Application "U:\6_BD_APPLICATIONS\01_Sirs\04_Esp_sig\Manu\Mise_en_page\A4_Manu_10.wor"
call modif
end sub

sub modif
'modifier la fenetre mise en page
set layout window WindowID(3)

nom_fenetre = windowinfo(windowid(1), 1)
  Set CoordSys Layout Units "in"
  Create Frame (0.1938,0.1882) (8.0896,11.5215)
  Pen (1,2,255)
   Brush (1,0)
   Title nom_fenetre
   FillFrame On
end sub