salut,
tu peux utiliser les fonctions (de VB) GetSetting, SaveSetting, DeleteSetting, GetAllSettings pour sauvegarder dans le registre la page d'accueil et les favoris
Sub AddFavoris(url as string) dim nb as long nb = getsetting("tonapp","favoris","max",1)+1 savesetting "tonapp","favoris","max",nb savesetting "tonapp","favoris",str(nb),url end sub
function GetFavoris() GetFavoris = getAllSettings("tonapp","favoris") end function
sub SetAccueil(url as string) SaveSetting "tonapp","params","accueil",url end sub
function GetAccueil() as string getaccueil = getsetting("tonapp","params","accueil","about:blank") end function
pour plus d'infos, regarde l'aide de VB (ou MSDN)...
ShareVB
|