/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Gemme i regestry
Fra : Jan Damkjær Dahl


Dato : 08-01-01 18:06

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.



 
 
Mads Andreasen (08-01-2001)
Kommentar
Fra : Mads Andreasen


Dato : 08-01-01 20:09


"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



Jan Damkjær Dahl (09-01-2001)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 09-01-01 20:37

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
>
>



Mads Andreasen (09-01-2001)
Kommentar
Fra : Mads Andreasen


Dato : 09-01-01 20:54

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
> >
> >
>
>



Jan Damkjær Dahl (09-01-2001)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 09-01-01 21:09

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
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste