OK
Det har jeg også lige sat og fundet ud af, men tak alligevel
"Mads Andreasen" <man@aub.dk> skrev i en meddelelse
news:3a5b6c11$0$3191$73beb97d@news.dk.uu.net...
> Hejsa
>
> Jeg var hvist lidt for hurtig. Problemet er at GetSetting er en funktion,
> følgende skulle virke:
> frmindstil.txtReplase.Text = GetSetting(App.Title,
> "Indstillinger","Replase","Standard Text")
>
> -Mads
>
> "Jan Damkjær Dahl" <jpd@post12.tele.dk> wrote in message
> news:93fpau$mm8$1@news.inet.tele.dk...
> > Ok tak for det
> >
> > Det ser også ud til at virke. Dette her gør i hvertfald
> >
> > SaveSetting App.Title, "Indstillinger", "Replase", txtReplase.Text
> > SaveSetting App.Title, "Indstillinger", "lokalsti", txtlokalsti.Text
> > SaveSetting App.Title, "Indstillinger", "Seperator",
txtSeperator.Text
> >
> >
> > men når jeg så vil hente igen
> >
> > frmindstil.txtReplase.Text = GetSetting App.Title, "Indstillinger",
> > "Replase","Standard Text"
> > frmindstil.txtlokalsti.Text = GetSetting App.Title, "Indstillinger",
> > "lokalsti","Standard Text"
> > frmindstil.txtSeperator.Text = GetSetting App.Title,
"Indstillinger",
> > "Seperator","Standard Text"
> >
> >
> > Så siger den "Expected end of statement" og markerer App
> >
> >
> >
> > "Mads Andreasen" <man@aub.dk> skrev i en meddelelse
> > news:3a5a0fda$0$3195$73beb97d@news.dk.uu.net...
> > >
> > > "Jan Damkjær Dahl" <jpd@post12.tele.dk> wrote in message
> > > news:93cs2p$b14$1@news.inet.tele.dk...
> > > > hejsa
> > > >
> > > > der skulle vel ikke være nogen her der kan give et lille eksempel på
> > > hvordan
> > > > man gemmer nogle
> > > > programindstillinger i registreringsdatabasen.
> > > >
> > > > Det er vel noget med "set settings" og "get settings" eller sådan
> > noget.
> > > >
> > > > Jeg kunne godt bruge et eksempek hvor f.eks. indholdet af en textbog
> > > bliver
> > > > gemt i regi.
> > > >
> > > >
> > > Hejsa
> > >
> > > Du kan bruge GetSetting og SaveSetting funktionerne. Nedenstående
> eksempel
> > > gemmer text1 textboxen fra applicationen DemoTest i registry under
> > > hkey_current_user\Software\VB and VBA Program
> settings\DemoTest\Text\Text1
> > >
> > > SaveSetting App.Title,"Text","Text1",Text1.text
> > > Text1.Text=GetSetting App.Title,"Text","Text1","Standard Text"
> > >
> > > Håber det hjælper lidt på vej.
> > >
> > > --
> > > -Mads
> > > ---------------------------------------
> > > man@aub.dk
> > > ICQ: 17528869
> > > EmbedIT website:
http://www.aub.dk/~man
> > >
> > >
> >
> >
>
>