1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| ' Gambas class file
PUBLIC SUB Button1_Click()
ME.Close()
END
'<------------------------------------- Ne pas oublier de cocher gb.desktop dans les composants
PUBLIC SUB URLLabel1_Click()
Desktop.Open("www.pvacoustics.net")
END
PUBLIC SUB URLLabel2_Click()
Desktop.Open("valaquarus@gmail.com")
END
|