Oppdatere form1 fra form2

[Leroy]

Sitter og klør meg litt i hodet her...

 

Skal lage et prog der man skal kunne skrive inn en tekst i en eller flere textboxer i en form, og så trykke på en knapp og oppdatere tilsvarende labels i form2.

Får ikke dette til og lurte på om det er noen som har noen tips!

 

På forhånd takk.

[Leroy]

Fant det ut!

 

Nå bare lurer jeg bare på hvordan man får det til å lagres.... :-?

[aadnk]

Tips 1:

 

For å lagre noe, kan du bare skrive:

 

Open App.Path & "Data.dat" For Output As #1

Print #1, Text1.Text

Close #1

 

Dette vil lagre innholdet i Text1 til filen "Data.dat" som lagres i mappen der EXE (eller programmet) ligger.

 

For å hente:

 

Dim Buff$



Open App.Path & "Data.dat" For Input As #1

Line Input #1, Buff

Close #1



Text1.Text = Buff

 

For å lagre flere ting på en gang kan du bruke flere filer (skift navnet på "Data.dat") eller bruke såkalte TYPE.

 

Tips 2:

 

F.eks:

 

Private Type Data

Navn As String * 40

Addresse As String * 40

Telefonnummer As String * 15

End Type

 

For å lagre lager du en variabel med denne brukerdefinerte typen.

 

Dim Buff As Data

 

Så setter du variablene inn i typen.

 

Buff.Navn = Text1.Text 

Buff.Addresse = Text2.Text 

Buff.Telefonnummer = Text3.Text

 

Lagre så ganske enkelt all informasjonen i denne variabelen til en fil slik:

 

Open App.Path & "Data.dat" For Binary As #1

Put #1, , Buff

Close #1

 

For å hente informasjonen må du:

 

Open App.Path & "Data.dat" For Binary Access Read As #1

Get #1, , Buff

Close #1

 

Husk at du må ha dimmet buff variabelen når du bruker disse kodene.

For å få informasjonen fra buff variabelen etter den er blitt fylt med informasjonen fra filen gjør du ganske enkelt:

 

Text1.Text = Buff.Navn

Text2.Text = Buff.Addresse

Text3.Text = Buff.Telefonnummer

 

Og det kan bli enda mer avansert, men det trengs neppe. Du kan selvsakt også bruke arrays istedenfor TYPE, men jeg tror egentlig at det er lettere med TYPE.

Skal du lagre mer, legger du bare til flere variabler i TYPE. F.eks:

 

Private Type Data

Navn As String * 40

Addresse As String * 40

Telefonnummer As String * 15

By As String * 10

End Type

 

Nå er også Buff.By gylding og du kan lagre og hente informasjon fra den variabelen som beskrevet her.[/code]